從VBA中的子調用函數-限定符錯誤

Question

我試圖在我的VBA代碼中更加“面向對象”。 但是，我在將變量傳遞給函數時遇到了麻煩。 在這里，我在IsEmpty函數上收到無效的限定符錯誤消息。

我該如何更正我的代碼？

Sub test_too_much_data()

If toomuchdata("Data input", "B1018") = False Then
    MsgBox ("Sorry, the tool can only accomodate 1000 rows.")
    Exit Sub
End If

End Sub


Function toomuchdata(sheet As String, range As Variant) As Boolean
    toomuchdata = IsEmpty(Sheets("String")).range(range)
End Function

謝謝！

Answer 1

將您的Function代碼更新為如下所示：

Function toomuchdata(sheetStr As String, RngStr As String) As Boolean
    toomuchdata = IsEmpty(Sheets(sheetStr).Range(RngStr).Value)
End Function