Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1882 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【71287】日付の範囲指定 nakataka 12/2/17(金) 16:29 質問[未読]
【71289】Re:日付の範囲指定 hint 12/2/17(金) 17:48 発言[未読]
【71290】Re:日付の範囲指定 ponpon 12/2/17(金) 17:50 発言[未読]
【71287】日付の範囲指定
質問  nakataka  - 12/2/17(金) 16:29 -
引用なし
パスワード
   ユーザーフォームがございまして、
この中にテキストボックスが2つあります。

テキストボックス1には
前日 = DateAdd("d", -1, 当日)

テキストボックス2には
当日 = Date

の値を返すスクリプトをいれているのですが、

テキストボックス2の今日日付が月曜日の場合、

テキストボックス1には、
日曜はお休みですので、日曜の日付を返さずに、土曜日の日付を返す形で
テキストボックスの値を表示させるスクリプトを考えています。

誰かご教授下さい
【71289】Re:日付の範囲指定
発言  hint  - 12/2/17(金) 17:48 -
引用なし
パスワード
   土日が休みならWorkdayワークシート関数が使えますが、
土曜が出勤なら、Weekday関数で曜日を取得して、
当日が月曜の時だけ特別の処理をするしかないと思います。
それから祭日を考えると、祭日のテーブルなども必要になるかもしれませんね。
【71290】Re:日付の範囲指定
発言  ponpon  - 12/2/17(金) 17:50 -
引用なし
パスワード
   ▼nakataka さん：
>ユーザーフォームがございまして、
>この中にテキストボックスが2つあります。
>
>テキストボックス1には
>前日 = DateAdd("d", -1, 当日)
>
>テキストボックス2には
>当日 = Date
>
>の値を返すスクリプトをいれているのですが、
>
>テキストボックス2の今日日付が月曜日の場合、
>
>テキストボックス1には、
>日曜はお休みですので、日曜の日付を返さずに、土曜日の日付を返す形で
>テキストボックスの値を表示させるスクリプトを考えています。
>
>誰かご教授下さい

weekday関数で当日の曜日を調べて振り分けたらどうでしょう？
考え方です。この通り書いてもダメですよ。

if weekday（当日）＝月曜日　then
　前日 = DateAdd("d", -2, 当日)
else
　前日 = DateAdd("d", -1, 当日)
end　if
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1882 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free