Excel VBA配列をFunctionに渡す
こんばんは、引数について教えてください。
Excel VBAの関数を作っていましたが、
1.Function ColumnArrayの部分でコンパイルエラーが発生し、
「配列がありません」と表示されます。
引数を配列のみで渡した場合、問題なく渡せるようですが、
他の引数と、CriteriaArrsの配列と一緒に渡せないのでしょうか。
すべて配列として１つにまとめて渡さなければならないのでしょうか。
2.CriteriaArrs = Array("田中", "鈴木")の部分は、文字列の増減が発生しますので
配列はParamArray CriteriaArrs()とした方がよいのでしょうか
説明が不足している点があるかもしれませんが宜しくお願いいたします。
Function ColumnArray(SheetName As Worksheet, _
StartCell As Range, _
FieldColumn As Long, _
CountColumn As Long, _
CriteriaArrs As Variant _
) As Long
・・・
End Function
-------------------------------------
sub test()
Dim CriteriaArrs() As Variant
Dim SheetA As WorkSheet
DIm RangeA range
CriteriaArrs = Array("田中", "鈴木")
set SheetA =Worksheet(1)
set RangeA=Range("B3")
FilterCount = ColumnArray(SheetA, RangeA, 3, 2, CriteriaArrs)
end sub
お礼
すばやい回答、ありがとうございます！！ 困っていたのでとても助かりました！ 数値と文字列ということは、 プリミティブ型のだけが直接かけるのですね。 （↑違って理解していたら仰ってください…。） 今後とも、よろしくおねがいします。