【VBAリファレンス】VBA関数Weekday関数

VBA Weekday関数の完全攻略：日付処理の要をマスターする

Excel VBAにおいて、日付データの扱いは避けて通れない重要なタスクです。その中でも「特定の日付が何曜日であるか」を判定する能力は、業務自動化において極めて頻繁に求められます。本稿では、VBA標準関数である「Weekday関数」の仕様から、実務で遭遇する落とし穴、そしてプロフェッショナルな実装手法までを詳細に解説します。

Weekday関数の基本仕様と戻り値のメカニズム

Weekday関数は、指定した日付に対応する曜日の数値を返す関数です。構文は以下の通りです。

Weekday(Date, [FirstDayOfWeek])

第一引数には、日付型（Date）の値を指定します。第二引数である「FirstDayOfWeek」は、週の始まりをどの曜日に定義するかを指定するオプション設定です。この引数を省略した場合、システム設定（通常は日曜日が起点）に従います。

この関数が返す値は、1から7までの整数です。デフォルト設定では、1が日曜日、2が月曜日、というように割り当てられます。多くの初心者が陥る罠は、この「1から7」という数値が、日本で一般的な「月曜日を週の始まりとする」感覚とズレる場合があることです。そのため、実務では第二引数を明示的に指定するコーディングが推奨されます。

実務におけるWeekday関数の詳細解説

プロフェッショナルな開発においては、単にWeekday関数を呼び出すだけでなく、その戻り値をどう制御するかが重要です。特に、VBAの定数である「vbSunday」や「vbMonday」などを活用することで、コードの可読性を飛躍的に向上させることができます。

例えば、土日を判定して処理を分岐させるケースを考えます。単純に「Weekday(d) = 1」と書くのはマジックナンバーをコードに埋め込むことになり、保守性を著しく低下させます。代わりに「Weekday(d, vbSunday) = vbSaturday」のように記述することで、コードの意図が明確になります。

また、Weekday関数は「日付型」を引数に取りますが、Excelのセルから取得した値が文字列型（String）である場合、暗黙の型変換が行われます。これが日付の書式設定（「YYYY/MM/DD」か「DD/MM/YYYY」かなど）に依存してエラーを吐くことがあるため、必ず「IsDate関数」で検証し、必要に応じて「CDate関数」で明示的に型変換を行うことが堅牢なコードへの第一歩です。

サンプルコード：実務で使える日付判定ロジック

以下に、特定の期間内の土日を抽出し、イミディエイトウィンドウに出力する実用的なコードを示します。このコードは、定数利用による可読性の向上と、エラーハンドリングの基本を押さえた構成です。


Sub AnalyzeWeekdays()
    ' 変数の宣言
    Dim targetDate As Date
    Dim startDate As Date
    Dim endDate As Date
    Dim i As Long
    
    ' 期間の設定
    startDate = DateSerial(2023, 10, 1)
    endDate = DateSerial(2023, 10, 31)
    
    Debug.Print "--- 2023年10月の週末リスト ---"
    
    ' ループによる日付判定
    For i = 0 To (endDate - startDate)
        targetDate = startDate + i
        
        ' Weekday関数による土日の判定
        ' vbSundayを週の起点とし、1(日)または7(土)を判定
        Select Case Weekday(targetDate, vbSunday)
            Case vbSunday, vbSaturday
                Debug.Print Format(targetDate, "yyyy/mm/dd") & " は休日です。"
            Case Else
                ' 平日の処理を記述する場合
        End Select
    Next i
    
    Debug.Print "--- 処理完了 ---"
End Sub

プロフェッショナルな実務アドバイス

実務でWeekday関数を扱う際、エンジニアが意識すべき「3つの鉄則」を伝授します。

1. ロケール依存を排除する：
サーバー環境や多国籍なPC環境でVBAを動かす場合、日付の解釈が異なるリスクがあります。可能な限り「DateSerial関数」を使用して日付を構築し、Weekday関数に渡すようにしてください。これにより、OSの地域設定に左右されない安定したロジックを構築できます。

2. メンテナンス性を高める関数化：
「土日であるか」を判定するたびにWeekday関数を書くのではなく、`IsWeekend(targetDate As Date) As Boolean` といった自作関数（ラッパー関数）を作成してください。こうすることで、将来的に「祝日判定も追加したい」となった際、修正箇所を一箇所に集約できます。

3. パフォーマンスの最適化：
大量のデータ（数万行）に対してWeekday関数をループ内で実行する場合、処理速度が問題になることがあります。この場合、Excelシート上の条件付き書式やワークシート関数の「WEEKDAY関数」を先に適用し、VBA側ではその結果（数値）を配列として一括で読み込む手法が、圧倒的に高速です。

まとめと今後の展望

Weekday関数は、非常にシンプルでありながら、VBAによる業務自動化の根幹を支える極めて強力なツールです。その戻り値の仕様を深く理解し、定数やラッパー関数を駆使してコードを構造化することで、バグの少ない、誰が見ても理解しやすいシステムを構築することが可能です。

初心者から一歩進んだプロフェッショナルを目指すのであれば、単にWeekday関数を「曜日を取得する道具」として捉えるのではなく、「日付という不確定な情報を、論理的な数値に変換するフィルター」として位置づけてください。この視点の転換こそが、長期的なメンテナンスに耐えうる堅牢なVBAコードを生み出す源泉となります。

今後、さらに高度な日付処理が必要になった場合は、VBAの「DateAdd関数」や「DateDiff関数」とWeekday関数を組み合わせて、特定週の第何曜日を算出するなどの応用ロジックに挑戦してみてください。VBAの可能性は、こうした小さな関数の積み重ねによって無限に広がっていきます。本稿が、あなたのエンジニアリングライフの一助となれば幸いです。