調用在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