●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えて ..

329:デフォルトの名無しさん
07/02/20 11:06:07
Type MyTestType
ID As Integer
Name As String
End Type

Sub test()
Dim a(3) As MyTestType
'中略
i = TypeTest(a)
End Sub

Function TypeTest(a As Variant) As Integer
'省略
End Function

とコードを組むと、コンパイルエラーが出ます。
Functionの引数の型宣言で、配列を使うこともできませんが、
どのようにしたら、aをFunctionに渡すことができるでしょうか？

よろしくお願いします。

次ページ

続きを表示

1を表示