function - 如何为VLookup函数传入Range参数？

Question

我在 VBA 中有以下两个函数。 abb00 工作正常，但 abb11 不行。

我的问题是如何传入 Range 变量作为 VLookup 函数的参数？

Function abb00() 'demo func
    abb00 = Application.WorksheetFunction.VLookup("a", _ 
        Worksheets("SheetCache").Range("A:B"), 2, False)
End Function

Function abb11() 'demo func
    rangeVar = Worksheets("SheetCache").Range("A:B")
    abb11 = Application.WorksheetFunction.VLookup("a", rangeVar, 2, False)
End Function

Answer 1

您可以通过两种方式做到这一点

修复你的函数
您当前的函数未设置范围变量。它将像这样工作

Function abb11()
    Dim rangeVar as Range
    Set rangeVar = Worksheets("SheetCache").Range("A:B")
    abb11 = Application.WorksheetFunction.VLookup("a", rangeVar, 2, False)
End Function

将范围传递给您的函数
或者，您可以将范围传递给函数，如下所示

Sub GetRange()
    Dim rangeVar As Range
    Set rangeVar = Worksheets("SheetCache").Range("A:B")
    MsgBox abb2(rangeVar)
End Sub
Function abb2(ByVal rangeVar)
       abb2 = Application.WorksheetFunction.VLookup("a", rangeVar, 2, False)
End Function