Excelで週番号を日付に変換したり、その逆を行うにはどうすればよいですか？

Excelでの日付や週番号の操作は、ビジネス分析、プロジェクト計画、およびレポート作成における一般的なニーズです。たとえば、特定の日付がどの週に属しているかを知りたい場合や、指定された年の特定の週番号に対応する日付範囲を決定したい場合があります。しかし、Excelでは、週番号を完全な日付範囲に変換したり、そのプロセスを迅速に逆転させるための直接的な組み込みオプションは提供されていません。これらのニーズに対応するために、目的や処理したいデータ量に応じて、さまざまな数式、VBAソリューション、およびその他のExcel機能を使用できます。以下では、このタスクをExcelで処理するためのいくつかの実用的な方法を紹介します。

数式を使用して週番号を日付に変換する

数式を使用して日付を週番号に変換する

VBAコードを使用して週番号と日付の間で変換する

数式を使用して週番号を日付に変換する

特定の年とワークシートに入力された週番号があると仮定します（例： 2015 セル B1 と 15 セル B2）。この週の実際の開始日（月曜日）と終了日（日曜日）を計算したい場合があります。これはスケジュール計画、週次サマリーの準備、または週次報告期間を参照する際に特に役立ちます。

指定された週番号の日付範囲を計算するには、次のExcel数式を使用できます：

1. 開始日を表示するための空白セルを選択します（ここではセル B5）。以下の数式を入力し、Enterキーを押します。この数式は日付を表すシリアル番号を返します。

=MAX(DATE(B1,1,1),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+(B2-1)*7+1)

2. 同じ週の終了日（例えばセル B6）については、次の数式を入力し、Enterキーを押します。この数式は指定された週の最終日のシリアル番号を返します。

=MIN(DATE(B1+1,1,0),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+B2*7)

注: 上記の数式では、B1は年を含むセル（例：2015年）、B2は変換したい週番号を含むセルです。必要に応じて、これらセル参照を実際のワークシートに合わせて調整してください。

3数式は最初に数値を返しますが、書式設定された日付ではないことに注意してください。正しい日付形式を表示するには、両方の数式セルを選択し、「ホーム」タブに行き、 ホーム > 数字形式 ドロップダウン > 短い日付形式を選択します。これにより、値が認識可能な日付に変換されます。

数式を使用して日付を週番号に変換する

逆に、指定された日付がどの週に該当するかを判断したい場合もあります。Excelにはこの目的のためにWEEKNUM関数が用意されています。これはタイムシートデータを分析するとき、週ごとのレポートを生成するとき、または週ごとに配送やイベントを追跡するときに特に便利です。

1. 週番号の出力先となる空白セルを選択します。次の数式を入力します（日付がB1にあると仮定します）。

=WEEKNUM(B1,1)

2. 次に、 Enterキーを押します。この数式は、週の最初の日として日曜日を考慮して週番号を返します。

注:

(1) この数式では、B1は変換したい日付を含むセルです。

(2) 週の始まりを月曜日から数える場合（ISO週システムで一般的）、このバージョンの数式を使用します。

=WEEKNUM(B1,2)

VBAコードを使用して週番号と日付の間で変換する

この記事では、週番号（および年）を対応する日付範囲に変換するVBAルーチンと、任意の日付に対するISO週番号を決定する別のVBAルーチンについて説明します。

週番号を日付範囲に変換する：

1. 「開発」タブで「Visual Basic」をクリックしてVBAエディターを開きます。開いたウィンドウで「挿入」>「モジュール」をクリックし、以下のコードをモジュールに貼り付けます。

Sub WeekNumberToDateRange()
    Dim YearNum As Long
    Dim WeekNum As Long
    Dim FirstDay As Date, LastDay As Date
    Dim Jan4 As Date
    YearNum = Application.InputBox("Enter the year:", "KutoolsforExcel", Year(Date), Type:=1)
    If YearNum < 1 Then Exit Sub
    WeekNum = Application.InputBox("Enter the week number:", "KutoolsforExcel", 1, Type:=1)
    If WeekNum < 1 Then Exit Sub
    Jan4 = DateSerial(YearNum, 1, 4)
    FirstDay = Jan4 - Weekday(Jan4, vbMonday) + 1
    FirstDay = FirstDay + (WeekNum - 1) * 7
    LastDay = FirstDay + 6
    MsgBox "Start date: " & Format(FirstDay, "yyyy-mm-dd") & vbCrLf & _
           "End date:   " & Format(LastDay, "yyyy-mm-dd"), _
           vbInformation, "KutoolsforExcel"
End Sub 

2. マクロを実行するには、 ボタンをクリックします。すると、年と週番号の入力を求められ、ダイアログボックスにそれぞれの日付範囲が表示されます。

日付を週番号に変換する：

1. 次のVBAコードをモジュールにコピーして貼り付けます。

Sub DateToWeekNumber()
 Dim InputDate As Date
 Dim WeekNum As Integer
 InputDate = Application.InputBox("Enter the date (yyyy-mm-dd):", "KutoolsforExcel", Date, Type:=2)
 WeekNum = WorksheetFunction.WeekNum(InputDate, 2)
 MsgBox "The week number is: " & WeekNum, vbInformation, "KutoolsforExcel"
End Sub  

2. このコードを挿入して実行すると、ターゲット日付の入力を求められ、マクロは週の始まりとして月曜日を考慮して週番号を表示します。週の始まりを日曜日にしたい場合は、WeekNumの第2引数を1に変更することでコードを修正できます。

関連記事：

Excelで2つの日付間に存在する特定の曜日の数をカウントする方法は？

Excelで日付に日/月/年を加算または減算する方法は？