Excel VBA - 自定义函数； #VALUE 错误；不同工作表上的 VLOOKUP

Question

我正在尝试根据函数中的给定参数在不同的工作表上执行 VLOOKUP。我已经玩了几个小时，无法弄清楚为什么它不起作用。我尽可能多地减少代码进行测试，但无法有效地找到解决方案。我认为这可能是我如何从另一个工作表中为 VLOOKUP 调用范围的问题。代码如下。请指教。如果我不清楚我在问什么，请询问，我会提供反馈。谢谢

Function GraphDataA(cR As String, time As String, aClient As String, tps As String, dat As String)

Dim client As Boolean
Dim day As Boolean
Dim tot As Boolean

Dim dayTotData As Range
Dim dayTotDatas As Worksheet


Set dayTotDatas = ActiveWorkbook.Sheets("DayTot")
Set dayTotData = dayTotDatas.Range("A3:AI168")

client = False
day = False
tot = False

If date = "" Then
    GraphDataA = ""
End If

If aClient = "" Then
    GraphDataA = ""
End If

If cR = "Client" Then
    client = True
End If

If time = "Day" Then
    day = True
End If

If tps = "Total" Then
    tot = True
End If

If client = True Then
    If day = True Then
        If tot = True Then
            GraphDataA = WorksheetFunction.VLookup(aClient, dayTotData, WorksheetFunction.Match(dat, dayDate, 0) + 8, _
        False)
        End If
    End If
End If
End Function

Answer 1

VLOOKUP() 如果没有匹配项将抛出错误。所以你需要在你的函数中添加错误捕获代码。

需要修改函数为

Function MyFunction() as Something
    On Error Goto ErrorHandler
    ' Your existing code goes here
    Exit Function
ErrorHandler:
    MyFunction = -1 ' Or something which indicates that the value isn't found
End Function

Answer 2

您的函数似乎没有返回任何值。尝试将As Variant 添加到第一行的末尾，如下所示：

Function GraphDataA(cR As String, time As String, aClient As String, tps As String, dat As String) As Variant