|
>の「dd,-1」の後ろにA1:A6を入れると
>「型が一致しません」となってしまいます。
>
>申し訳ありませんが、再度お教え頂けますでしょうか?
これも二通りサンプルコードを提示します。
'==================================================
Sub test1()
Dim dd As Date
Dim ddarray(1 To 2)
dd = #12/5/2005#
ddarray(1) = #12/2/2005#
ddarray(2) = #12/1/2005#
MsgBox Format(Application.Run("atpvbaen.xla!workday", dd, -1, ddarray()), "yyyy/m/d")
End Sub
'=======================================================================
Sub test2()
Dim dd As Date
dd = #12/5/2005#
With Worksheets("sheet1")
.Range("c1").Value = #12/2/2005#
.Range("c2").Value = #12/1/2005#
MsgBox Format(Application.Run("atpvbaen.xla!workday", dd, -1, .Range("c1:c2")), "yyyy/m/d")
End With
End Sub
どちらも同じ結果を表示すると思います。
|
|