Вызов функции из подпрограммы в 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