Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3204 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【63599】今日から土日を除く３日後 hiro 09/11/20(金) 15:21 質問[未読]
【63600】Re:今日から土日を除く３日後 Jaka 09/11/20(金) 15:43 発言[未読]
【63603】Re:今日から土日を除く３日後 hiro 09/11/20(金) 16:13 お礼[未読]
【63601】Re:今日から土日を除く３日後 ぴかる 09/11/20(金) 15:55 発言[未読]
【63604】Re:今日から土日を除く３日後 hiro 09/11/20(金) 16:16 お礼[未読]
【63599】今日から土日を除く３日後
質問  hiro  - 09/11/20(金) 15:21 -
引用なし
パスワード
   11/16の3日後は11/19でそのままプラスすればいいんですけど、
11/20の3日後は11/26で土日を考慮しなければなりません。

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

何かいい案があればご教示ください。
【63600】Re:今日から土日を除く３日後
発言  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:今日から土日を除く３日後
発言  ぴかる  - 09/11/20(金) 15:55 -
引用なし
パスワード
   hiroさん、こんにちは。

Jakaさんが既にお答えの様ですが、数式でいくならこんな感じでしょうか？
=IF(WEEKDAY(A1)<4,A1+3,IF(WEEKDAY(A1)=7,A1+4,A1+5))
残念ながら、祝日は無視してしまします・・・
【63603】Re:今日から土日を除く３日後
お礼  hiro  - 09/11/20(金) 16:13 -
引用なし
パスワード
   jakaさん

ご回答ありがとうございました。
早速使わせていただきます。
【63604】Re:今日から土日を除く３日後
お礼  hiro  - 09/11/20(金) 16:16 -
引用なし
パスワード
   ぴかるさん

数式でも十分いけそうですね。
勉強不足でした。
ご教示ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3204 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free