WeekDay関数を使用したプログラミング例を紹介します。
例題
例題は、＜実行＞ボタンをクリックすると、判定日に入力されている日付を判定して「出勤日です。」「休日です。」の結果を返すプログラミング方法です。
[実行前]：
①判定日に「2020/10/2」を入力します。
[実行後]：
②「2020/10/2」は金曜日であり出勤日なので、「出勤日です。」がMsgBoxで表示されます。
プログラミング
プログラミングは以下の通りとなります。
[記述例]：
Sub サンプル()
Dim 対象日 As Date
対象日 = Range("A2")
Select Case Weekday(対象日)
Case 1
MsgBox "休日です。"
Case 2
MsgBox "出勤日です。"
Case 3
MsgBox "出勤日です。"
Case 4
MsgBox "出勤日です。"
Case 5
MsgBox "出勤日です。"
Case 6
MsgBox "出勤日です。"
Case 7
MsgBox "休日です。"
End Select
End Sub
内容を説明すると、
WeekDay関数を使用して判定日（A2セル）に入力されている日付を判定し、曜日が月火水木金の場合は「出勤部です。」を、土日の場合は「休日です。」をMsgboxで表示して下さい。
との意味になります。
※上記の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。