VBAのMod演算子を完全解説！割り算の余りでできる便利な処理術

VBA（Visual Basic for Applications）で数値の処理をする際、頻繁に使われる演算子のひとつに「Mod」があります。Modは「割り算の余り」を求めるための演算子で、条件分岐や繰り返し処理の中でとても役立ちます。特に、偶数・奇数の判定や周期的な処理などに活用でき、初心者から上級者まで知っておきたい基本機能です。この記事では、VBAのMod演算子の使い方を初心者にもわかりやすく、具体的なコード例とともに丁寧に解説します。

---

Mod演算子とは？

Mod演算子は、割り算の「余り」を求めるための演算子です。構文はとてもシンプルで、以下のように記述します。

余り = A Mod B

これは、「AをBで割ったときの余りを求める」という意味です。

具体例

Sub Modの基本例()
    Dim result As Integer
    result = 10 Mod 3
    MsgBox result  ' 結果は「1」が表示されます
End Sub

上記の例では、10 ÷ 3 は「3余り1」なので、resultには「1」が代入されます。

---

Modを使って偶数・奇数を判定する

Mod演算子の最も代表的な使い方のひとつが、数値が偶数か奇数かを判定する処理です。

偶数の判定

Sub 偶数を判定()
    Dim num As Integer
    num = 8

    If num Mod 2 = 0 Then
        MsgBox "偶数です"
    Else
        MsgBox "奇数です"
    End If
End Sub

num Mod 2 = 0 となる場合は偶数、そうでなければ奇数と判定できます。

---

繰り返し処理での活用例

Modは、繰り返し処理と組み合わせることで、周期的な処理を実現できます。

5行ごとに背景色を変える（Excelシート）

Sub 行に色をつける()
    Dim i As Integer
    For i = 1 To 30
        If i Mod 5 = 0 Then
            Rows(i).Interior.Color = RGB(200, 200, 255)
        End If
    Next i
End Sub

この例では、5行ごとに背景色を設定しています。i Mod 5 = 0 になる行が対象です。

---

Modの負の数の扱いに注意

VBAでは、Modの演算に負の数を使うと、結果も負になることがあります。これは他の言語と挙動が異なる場合があるので注意が必要です。

例：負の数を使ったMod演算

Sub 負のMod()
    Dim result As Integer
    result = -7 Mod 3
    MsgBox result  ' 結果は「-1」になります
End Sub

この場合、-7 ÷ 3 = -2 余り -1 なので、結果は「-1」となります。

---

Modを使った複数条件の分岐

Modは、特定の条件を満たす場合のみ処理を実行する、といった分岐処理にも有効です。

3の倍数かつ5の倍数を判定（FizzBuzzの例）

Sub FizzBuzz()
    Dim i As Integer
    For i = 1 To 30
        If i Mod 3 = 0 And i Mod 5 = 0 Then
            Debug.Print i & ": FizzBuzz"
        ElseIf i Mod 3 = 0 Then
            Debug.Print i & ": Fizz"
        ElseIf i Mod 5 = 0 Then
            Debug.Print i & ": Buzz"
        Else
            Debug.Print i
        End If
    Next i
End Sub

Modを使えば、3や5の倍数だけでなく、任意の周期を簡単に判定できます。

---

Modを活用した応用テクニック

配列インデックスを循環させる

以下のように、Modを使って配列の添え字を循環させることも可能です。

Sub 配列インデックス循環()
    Dim colors(0 To 2) As String
    colors(0) = "赤"
    colors(1) = "青"
    colors(2) = "緑"

    Dim i As Integer
    For i = 0 To 9
        Debug.Print colors(i Mod 3) ' 0,1,2 を繰り返す
    Next i
End Sub

このようにすれば、任意の数だけ繰り返しながら、配列の中身をループ的に扱うことができます。

---

よくあるミスとその対処法

• 割る数がゼロになっている vbaコピーする編集するresult = 5 Mod 0 ' エラーになります！ → 「0」で割ると実行時エラーが発生するため、事前にチェックを入れましょう。 vbaコピーする編集するIf divisor <> 0 Then result = value Mod divisor Else MsgBox "割る数が0です" End If
• 負の数の扱いに慣れていない 他の言語（例：PythonやJavaScript）では-7 mod 3が「2」になることがありますが、VBAでは「-1」となるので、明示的に正の余りが欲しい場合は調整が必要です。 vbaコピーする編集するDim posResult As Integer posResult = ((-7 Mod 3) + 3) Mod 3 ' 結果は「2」

---

まとめ

VBAのMod演算子は、シンプルでありながら非常に応用の効く機能です。数値の判定や、繰り返し処理における周期制御、条件分岐など、実務でも活躍の場が多くあります。特にExcelと組み合わせた処理では、行数や列数に応じた動的な操作にも対応できます。余りをうまく活用することで、コードの可読性も高まり、効率的な処理が可能になります。ぜひ、この記事を参考にVBAでのModの使い方をマスターしてください。