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

著者Xiaoyang変更日2025-07-09

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．数式は初期状態では日付ではなく数値を返します。正しく日付形式で表示するには、両方の数式セルを選択し、ホーム＞数値の書式ドロップダウン＞短縮日付を選択してください。これにより、値が見やすい日付形式に変換されます。
数式を含むセルを日付形式に設定

ヒント：これらの数式は、週の開始日が月曜日の ISO 週日付システムに基づいており、ヨーロッパの給与計算やレポート作成で一般的に採用されています。組織で異なる週番号システムを採用している場合、結果が異なる可能性があります。特に1 月1 日が月曜日でない年や53 週目がある年など、週の途中から始まる年の結果については、必ず二重チェックしてください。

数式で日付を週番号に変換

逆に、指定された日付がどの週番号に該当するかを調べたい場合もあります。そんなときは、Excel のWEEKNUM 関数が大活躍！タイムシートデータの分析や週次レポートの作成、配達・イベントの週単位での追跡など、さまざまなシーンで特に便利です。

1．週番号を表示したい空白セルを選択し、次の数式を入力します（日付が)B1にあると仮定）。「

=WEEKNUM(B1,1)

2．次に、Enterを押します。この数式は、週の開始日を日曜日として扱い、週番号を返します。
日付を数式で週番号に変換

注：

（1）この数式で、B1は変換したい日付が入力されているセルです。

（2） 週の開始日を月曜日に設定したい場合（ISO 週システムで一般的）、次のバージョンの数式をご利用ください。

=WEEKNUM(B1,2)

VBA コードで週番号と日付を相互変換

本記事では、2 つの VBA ルーチンをご紹介します。1 つは週番号（および年）を対応する日付範囲に変換し、もう1 つは任意の日付から ISO 週番号を算出します。

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

1．VBA エディターを開くには、開発＞Visual Basicをクリックします。開いたウィンドウで、挿入＞標準モジュールをクリックし、以下のコードをモジュールに貼り付けてください。

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に設定してください。

ヒント：週システムが異なる場合は、VBA コード内のvbMondayまたはvbSundayを適宜調整してください。

Excel で複数の非標準の書式設定日付をワンクリックで通常の日付に変換

Kutools for Excel の日付認識ユーティリティを使えば、Excel 上でワンクリックするだけで、非標準の日付や数値（例：yyyymmdd 形式）またはプレーンテキストを標準的な日付形式に簡単に識別・変換でき、生産性が向上し、手動変換によるエラーも削減できます。今すぐ30 日間のフル機能無料トライアルをお試しください！
ad 日付に変換

Excel で2 つの日付の間に含まれる特定の曜日をカウントするには、どうすればよいですか？

Excel で日付に日数、月数、または年数を加算・減算するにはどうすればよいですか？

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！