|
茶眠さん、やま さん、こんにちは。
>WORKDAY関数はVBAで使用できないみたいなので、
出来ますよ!!
'=============================
Sub test1()
Dim dd As Date
dd = #12/5/2005#
MsgBox Evaluate("text(workday(""" & Format(dd, "yyyy/m/d") & """,-1),""yyyy/m/d"")")
End Sub
アドインで「分析ツール−VBA」にチェックを入れておけば、
'============================================================
Sub test2()
Dim dd As Date
dd = #12/5/2005#
MsgBox Format(Application.Run("atpvbaen.xla!workday", dd, -1), "yyyy/m/d")
End Sub
でも同じ結果が得られます。
>
>Sub test()
> Range("A1") = "2005/11/30"
range("b1").formula="=workday(a1,-1)"
MsgBox Range("B1")
>End Sub
としても良いんですけどね!!
ご参考までに!!
|
|