構文
構文は以下の通りです。
WorksheetFunction.WeekNum(日付, [週の開始日])
解説
WorksheetFunctionは、ExcelVBAの組み込みオブジェクトで、Excelのワークシート関数をVBAから呼び出す際に使用します。WeekNum関数は、指定した日付が年の何週目に属するかを表示します。これは、スケジュール管理や日付に基づいた分割などに便利です。日付は、週番号を取得したい日付を指定します。週の開始日（省略可能）は、週の開始日を指定します。1が日曜日、2が月曜日、21〜17はそれぞれ特定の国や文化に基づく週の設定です。省略すると日曜日が週の開始日になります。
プログラミング例
具体的なプログラミング例を紹介します。
Sub 週番号を計算()
Dim 日付 As Date
Dim 週番号 As Integer
' 計算する日付を指定
日付 = #1/10/2024#
' 週番号を計算（週の開始日は日曜日とする）
週番号 = WorksheetFunction.WeekNum(日付, 1)
' 結果をメッセージボックスで表示
MsgBox "日付 " &日付 & " は年の " &週番号 & " 週目です。"
End Sub
Dim 日付 As Date
Dim 週番号 As Integer
' 計算する日付を指定
日付 = #1/10/2024#
' 週番号を計算（週の開始日は日曜日とする）
週番号 = WorksheetFunction.WeekNum(日付, 1)
' 結果をメッセージボックスで表示
MsgBox "日付 " &日付 & " は年の " &週番号 & " 週目です。"
End Sub
上記のプログラムは、WorksheetFunction.WeekNum(日付, 1)これにより、指定した日付が年の何週目に属しているかが取得できます。この例では週の開始日が日曜日と設定されています。最後にMsgBoxで計算結果を表示しています。
まとめ
WeekNum関数は、特定の日付が年の何週目になるために使われます。週の開始日はオプションで指定でき、とりあえずでは日曜日を週の始まりとして計算されます。スケジュールの整理や、日付に基づいたデータ分析で活用できる便利な関数です。