2

これは日常的な n00b 問題に違いありません。Test Sub から myTest Sub を呼び出しますが、引数が完全に書き出された呼び出しのみが機能します。引数 (つまり myTest(stuff)) としてものを渡すと、オブジェクトが必要なエラーが発生します。

私のパズルを解決するための助けはありがたく受け取られます

Public Sub myTest(Arg1 As Range)
Dim elem As Variant
For Each elem In Arg1
    MsgBox (elem.Value)
Next elem
End Sub

Public Sub Test()
Dim stuff As Range
Set stuff = Worksheets(1).Range("D7:D10")
myTest (Worksheets(1).Range("D7:D10"))
'myTest (stuff)

End Sub
4

1 に答える 1