使用Indirect（）VBA代碼調試vlookup（）

Question

我使用了vlookup()函數和indirect() 。 它在工作表中的完美表現為

=VLOOKUP(I$1,INDIRECT("'"&$A3&"'!"&"A:B"),2,0).

但是，一旦將其放入vba，它會返回一個錯誤，說

編譯錯誤：預期：列表分隔符或）

我的VBA功能代碼如下：

Function Haha(title As Variant, sht As Variant)

    Haha= VLOOKUP(title,INDIRECT("'"&sht&"'!"&"A:B"),2,0)

End Function

Answer 1

您不能只用VBA編寫公式-它們不是同一語言。 您可以使用此：

Function Haha(title As Variant, sht As Variant)

    Haha= Application.VLOOKUP(title,Sheets(sht).Range("A:B"),2,0)

End Function