2017-01-19 9 views
0

私はVBAコードでより「オブジェクト指向」にしようとしています。しかし、関数に変数を渡すことができません。ここでは、IsEmpty関数で無効な修飾子エラーメッセージが表示されます。VBAのサブ関数から関数を呼び出す - 修飾子エラー

コードを修正するにはどうすればよいですか?

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 

ありがとうございます!

+0

あなたは以下の私の答えのコードをテストしていますか?どんなフィードバック? –

答えて

0

更新以下のようなものにあなたのFunctionコード:

Function toomuchdata(sheetStr As String, RngStr As String) As Boolean 
    toomuchdata = IsEmpty(Sheets(sheetStr).Range(RngStr).Value) 
End Function 
関連する問題