ISOWEEKNUM関数＆Excel 2010代替策 早見表

はじめに

この早見表は、ExcelでISO 8601規格に基づいた週番号を扱う際に役立つ「ISOWEEKNUM関数」と、Excel 2010環境での代替方法、関連情報をまとめたものです。

印刷して手元に置けば、必要な時にいつでも確認できます。

1. ISOWEEKNUM関数 基本情報

ISOWEEKNUM関数は、国際標準化機構（ISO）が定めたISO 8601規格に基づいて、指定された日付がその年の何週目にあたるかを返します。

1. ISOWEEKNUM関数 基本情報 (続き)

凡例: A1 は日付データが入力されているセルを指します。

2. WEEKNUM関数との主な違い

ExcelにはISOWEEKNUM関数と似たWEEKNUM関数がありますが、週の定義方法に違いがあります。

3. Excel 2010ユーザー向け ISOWEEKNUM代替策

Excel 2010のような環境ではISOWEEKNUM関数が搭載されていないため、以下の計算式で代用できます。

*以下の計算式中の A1 には、週番号を知りたい日付が入力されたセルを指定してください。

3.1. 代替案1: WEEKNUM関数を利用

(Excel 2010以降で有効)

計算式:

=WEEKNUM(A1,21)

説明:
WEEKNUM関数の第2引数 21 は、「週の始まりを月曜日とし、その年の最初の木曜日を含む週を第1週とする」というISO 8601のルールに沿って週番号を計算します。

Excel 2010ユーザーへのポイント:
Excel 2010環境で最もシンプルで分かりやすい代替策です。Excel 2016などの新しいバージョンでも同じ結果が得られるので、ファイルの互換性も保ちやすいです。

注意:
この方法はExcel 2007以前のバージョンでは使用できません。

3.2. 代替案2: 互換性の高い計算式

(Excel 2007以前でも動作する可能性あり)

計算式 (コピペして使えます):

=INT((A1-SUM(MOD(DATE(YEAR(A1-MOD(A1-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7)

説明:
この数式は、日付 (A1セル) を基に、その年の1月4日を含む週を第1週とし、月曜日始まりで週番号を計算します。これはISO 8601の定義の一つと等価です。

Excel 2010ユーザーへのポイント:
数式は複雑ですが、Excel 2010環境でISOWEEKNUM関数がない場合の確実な代替手段の一つとして覚えておくと便利です。特に古いバージョンのExcelファイルを開く可能性がある場合に役立ちます。

使用されている主な関数: INT, SUM, MOD, DATE, YEAR

3.3. 代替案3: VBAユーザー定義関数 (参考)

Excel VBA (マクロ) を使用して、ISOWEEKNUM関数と同様の機能を持つオリジナルの関数 (ユーザー定義関数) を作成する方法もあります。

関数名例: MyISOWeekNum

VBAコード例:

' ------------------------------------------------------------
'  ISO-8601 week-number (1-53) for any given date
'  ✔ Excel 2013 以降 ─ WorksheetFunction.ISOWEEKNUM を優先使用
'  ✔ Excel 2010 以前 ─ VBA fallback で完全互換
'  （DatePart + 「木曜日ベース」アルゴリズム）
' ------------------------------------------------------------
Option Explicit

'返り値: ISO 週番号（1-53）
Public Function MyISOWeekNum(ByVal targetDate As Date) As Integer

    '―――――――――――――――――――――――――――――――――――――――――
    ' ① Excel 2013 以降なら組み込み関数をそのまま呼び出し
    '―――――――――――――――――――――――――――――――――――――――――
    On Error Resume Next          ' ← 古いバージョンではエラーになるため抑止
    MyISOWeekNum = _
        Application.WorksheetFunction.IsoWeekNum(targetDate)
    If Err.Number = 0 Then Exit Function ' 成功したらここで終了
    On Error GoTo 0               ' エラー抑止を解除

    '―――――――――――――――――――――――――――――――――――――――――
    ' ② Excel 2010 以前用の VBA 実装
    '   ・ISO 週は「木曜日の属する週」を基準とする
    '   ・DatePart("ww", …, vbMonday, vbFirstFourDays) は
    '     週の開始を月曜、週番号の決定に "最初の 4 日を含む週" を採用
    '―――――――――――――――――――――――――――――――――――――――――
    Dim thursday As Date
    thursday = targetDate - Weekday(targetDate, vbMonday) + 4 ' 同週の木曜日
    MyISOWeekNum = DatePart("ww", thursday, vbMonday, vbFirstFourDays)
    
End Function

3.3. 代替案3: VBAユーザー定義関数 (続き)

シートでの使用例:

=MyISOWeekNum(A1)

説明:
VBAエディタに上記の様なコードを記述し、ワークシート上で通常の関数と同じように =MyISOWeekNum(A1) と入力して使用します。

ポイント:
毎回長い数式を入力する手間を省きたい場合や、マクロを使った自動化の一部として組み込みたい場合に有効です。

注意点:

• この関数を使用するExcelファイルは、マクロ有効ブック形式 (.xlsm) で保存する必要があります。
• ファイルを開く際に、マクロを有効にする必要があります (セキュリティ設定に注意)。
• VBAコードの作成や管理には、ある程度の知識が必要です。

4. 年またぎの週番号ルール (ISO 8601のポイント)

ISOWEEKNUM関数 (および代替策) で週番号を計算する際は、年末年始の週番号が直感と異なる場合があるので注意が必要です。これはISO 8601のルールに基づきます。

• ルール1: 「最初の木曜日」ルール
  その年の「最初の木曜日」を含む週が、その年の「第1週 (Week 01)」となります。
• ルール2: 「1月4日」ルール
  これは上記ルール1と同義で、その年の「1月4日」を含む週が、その年の「第1週 (Week 01)」となります。(1月4日が月曜～木曜であれば、その週が第1週です)

4. 年またぎの週番号ルール (結果として)

結果として:

• 年末の日付 (例: 12月29日、30日、31日) が、翌年の第1週 になることがあります。
• 年始の日付 (例: 1月1日、2日、3日) が、前年の最終週 (第52週または第53週) になることがあります。

具体例:

• 2025年12月29日 (月) のISOWEEKNUMは 1 (つまり、2026年の第1週) となります。
  (2026年の最初の木曜日は1月1日なので、12月29日(月)～1月4日(日)が2026年の第1週)
• 2026年1月1日 (木) のISOWEEKNUMは 1 (2026年の第1週) となります。
• 2024年1月1日 (月) のISOWEEKNUMは 1 (2024年の第1週) となります。
• 2021年1月1日 (金) のISOWEEKNUMは 53 (つまり、2020年の第53週) となります。
  (2021年の最初の木曜日は1月7日なので、1月1日(金)は2020年の最終週に含まれます)

5. よくあるエラーと対処ヒント

ISOWEEKNUM関数や代替策を使用する際によく見かけるエラーと、その原因・対処法のヒントです。

5. よくあるエラーと対処ヒント (続き)