Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49835 / 76736 ←次へ | 前へ→

【31801】Re:稼働日以外を除外して計算したい(追加)
発言  ichinose  - 05/11/30(水) 12:50 -

引用なし
パスワード
   茶眠さん、やま さん、こんにちは。

>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

としても良いんですけどね!!
ご参考までに!!

0 hits

【31789】稼働日以外を除外して計算したい。 茶眠。 05/11/30(水) 9:37 質問
【31791】Re:稼働日以外を除外して計算したい。 やま 05/11/30(水) 11:14 発言
【31792】Re:稼働日以外を除外して計算したい(追加) やま 05/11/30(水) 11:21 発言
【31801】Re:稼働日以外を除外して計算したい(追加) ichinose 05/11/30(水) 12:50 発言
【31805】Re:稼働日以外を除外して計算したい(追加) 茶眠。 05/11/30(水) 13:18 質問
【31810】Re:稼働日以外を除外して計算したい(追加) ichinose 05/11/30(水) 13:44 発言
【31915】ありがとうございました。 茶眠。 05/12/2(金) 10:17 お礼
【31806】Re:稼働日以外を除外して計算したい(追加) 茶眠。 05/11/30(水) 13:21 お礼
【31809】Re:稼働日以外を除外して計算したい(追加) Kein 05/11/30(水) 13:39 発言
【31813】Re:稼働日以外を除外して計算したい(追加) やま 05/11/30(水) 14:22 お礼
【31917】ありがとうございました。 茶眠。 05/12/2(金) 10:22 お礼
【31916】ありがとうございました。 茶眠。 05/12/2(金) 10:19 お礼

49835 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free