- 329 名前：デフォルトの名無しさん [2007/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に渡すことができるでしょうか？
よろしくお願いします。
