【VBA】Enum（列挙型）の使い方｜マジックナンバーをなくしコードを読みやすくする方法

2025年8月16日

はじめに

VBAでプログラムを書いていると、「もし shippingType が 1 なら通常配送、2 なら速達…」のように、特定の数値を特定の意味として扱う場面がよくあります。

' マジックナンバーを使った悪い例
Sub ProcessOrder(shippingType As Long)
    If shippingType = 1 Then
        ' 通常配送の処理...
    ElseIf shippingType = 2 Then
        ' 速達の処理...
    End If
End Sub

このようなコード内の意味が分かりにくい数値 (1, 2 など) は「マジックナンバー」と呼ばれ、後からコードを見返したときに「この 1 って何だっけ？」となりやすく、バグの原因にもなります。

この問題を解決するのが、VBAの Enum (列挙型) です。Enum を使うと、これらの数値に分かりやすい名前を付け、コードを劇的に読みやすく、安全にすることができます。

`Enum` (列挙型) を使ったサンプルコード

Enum を使うと、先ほどのコードは以下のように書き換えられます。

完成コード

' --- Enum（列挙型）を定義 ---
' モジュールの先頭（Option Explicit の下など）に記述します
Public Enum ShippingMethod
    shipStandard = 1  ' 通常配送
    shipExpress = 2   ' 速達
    shipOvernight = 3 ' 翌日便
End Enum

' --- Enumを使った良い例 ---
Sub ProcessOrder_EnumVersion(deliveryType As ShippingMethod)
    Select Case deliveryType
        Case shipStandard
            MsgBox "通常配送で処理します。"
        Case shipExpress
            MsgBox "速達で処理します。"
        Case shipOvernight
            MsgBox "翌日便で処理します。"
    End Select
End Sub

' --- 実行用のサンプルマクロ ---
Sub Test_ProcessOrder()
    ' Enumのメンバーを直接指定して呼び出す
    Call ProcessOrder_EnumVersion(shipExpress)
End Sub

コードの解説

Public Enum ShippingMethod ... End Enum: ShippingMethod という名前で、新しいデータ型グループ（列挙型）を定義しています。その中で、shipStandard という名前が内部的に 1 という数値を持つ、といった対応付けを行っています。
deliveryType As ShippingMethod: マクロの引数のデータ型として、Long などの数値型ではなく、先ほど定義した ShippingMethod を指定しています。これにより、この引数には shipStandard, shipExpress, shipOvernight のいずれかしか渡せなくなり、間違いが起こりにくくなります。
Case shipStandard: If文やSelect Case文の中で、1 や 2 といったマジックナンバーの代わりに、shipStandard のような意味のある名前が使えるようになります。