|
初めまして。
こちらにはお世話になっています。
早速質問なのですが、配列を引数としてFunctionに渡す処理で、
「配列には割り当てられません」のエラーとなります。
おそらくday()のカッコ内に何か必要と思って、色々試したのですがうまくいきません。
また、Varient型を使えばできるのかもしれませんが、
あまり使わない方が良いというHPをいくつか見かけましたので、
使わないやり方を教えて頂きたいです。
済みませんが、よろしくお願いします。
Public Sub
'Date型配列宣言
Dim day(3) As Date
'初期化
day(0)="2001/1/1"
day(1)="2001/1/1"
day(2)="2001/1/1"
day(3)="2001/1/1"
'Data型配列を引数として処理B呼び出し
Call 処理A(day)
End Sub
Public Sub 処理B(day() As Date)
For i = 0 To 3
'Data型配列を引数として処理C呼び出し
temp = 処理C(day()) ←ここで「配列には割り当てられません」のエラー
Next
End Sub
Function 処理C(day() As Date) As Date
色々な処理
End Function
|
|