サブルーチンを作成し、そのサブルーチンでエラーなしで次のコードを使用していました。
関連するコードのみ:
Dim CandleEndTimes() as Date
NoOfCndlInDay = 5
ReDim Preserve CandleEndTimes(NoOfCndlInDay)
CandleEndTimes = Array(#10:30:00 AM#, #12:00:00 PM#, #1:30:00 PM#, #3:00:00 PM#, #3:30:00 PM#)
次に、このサブルーチンで複数のケースを処理するために、配列CandleEndTimesに値を代入するステートメントを削除し、以下のようにパラメーターとして定義しました。
Sub CustomCandles(UseOnBookName As String, UseOnSheetName As String, NoOfCndlInDay As Integer, CandleEndTimes() As Date)
上記のサブルーチンを呼び出すために使用されるサブルーチンのコード:
Sub callingcust()
Dim Min90CandleEndTimes() As Date
ReDim Preserve Min90CandleEndTimes(5)
Min90CandleEndTimes = Array(#10:30:00 AM#, #12:00:00 PM#, #1:30:00 PM#, #3:00:00 PM#, #3:30:00 PM#)
End Sub
値を割り当てるために使用されるステートメントでコードをデバッグしているときに、エラー 13 が発生します。
上記のコードに問題があることは誰でもわかります。情報が十分ではないと思われる場合は、他に共有する必要があることをお知らせください。
助けてください！