Excel VBA質問箱 IV

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

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


3202 / 13644 ツリー ←次へ | 前へ→

【63599】今日から土日を除く3日後 hiro 09/11/20(金) 15:21 質問[未読]
【63600】Re:今日から土日を除く3日後 Jaka 09/11/20(金) 15:43 発言[未読]
【63603】Re:今日から土日を除く3日後 hiro 09/11/20(金) 16:13 お礼[未読]
【63601】Re:今日から土日を除く3日後 ぴかる 09/11/20(金) 15:55 発言[未読]
【63604】Re:今日から土日を除く3日後 hiro 09/11/20(金) 16:16 お礼[未読]

【63599】今日から土日を除く3日後
質問  hiro  - 09/11/20(金) 15:21 -

引用なし
パスワード
   11/16の3日後は11/19でそのままプラスすればいいんですけど、
11/20の3日後は11/26で土日を考慮しなければなりません。

平日or土日祝を判定させて、平日だったら1足して、土日祝だったら0足して
合計で3日足された日と考えたんですが、土日でも日付としては進んでもらわないと
困りますし・・・

何かいい案があればご教示ください。

【63600】Re:今日から土日を除く3日後
発言  Jaka  - 09/11/20(金) 15:43 -

引用なし
パスワード
   ツール → アドイン の、分析ツールを使えば、
WORKDAY関数が使えますけど....。
御一考されては。

VBA上だと、こんな感じで動きました。

st = "WORKDAY(TODAY(),3,)"
st = "WORKDAY(""2009/11/13"",2,)"

MsgBox Format(Application.Evaluate(st), "yyyy/m/d")

【63601】Re:今日から土日を除く3日後
発言  ぴかる  - 09/11/20(金) 15:55 -

引用なし
パスワード
   hiroさん、こんにちは。

Jakaさんが既にお答えの様ですが、数式でいくならこんな感じでしょうか?
=IF(WEEKDAY(A1)<4,A1+3,IF(WEEKDAY(A1)=7,A1+4,A1+5))
残念ながら、祝日は無視してしまします・・・

【63603】Re:今日から土日を除く3日後
お礼  hiro  - 09/11/20(金) 16:13 -

引用なし
パスワード
   jakaさん

ご回答ありがとうございました。
早速使わせていただきます。

【63604】Re:今日から土日を除く3日後
お礼  hiro  - 09/11/20(金) 16:16 -

引用なし
パスワード
   ぴかるさん

数式でも十分いけそうですね。
勉強不足でした。
ご教示ありがとうございました。

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