VBAでコードを効率的に実行するためには、条件分岐の書き方を工夫することが重要です。
本記事では、If 文や Select Case 文の処理速度を意識した書き方 について解説します。
1. VBAの条件分岐の基本的な処理速度の違い
VBAでは、条件分岐の書き方によって 処理速度が大きく変わる ことがあります。
特に、大量のデータを扱う場合は、条件分岐の最適化が重要になります。
| 比較項目 | If文 | Select Case文 |
|---|---|---|
| 処理速度 | 条件が増えると遅くなる | 条件が多い場合に高速 |
| 適した用途 | 柔軟な条件設定 | 1つの変数に対する複数の値の比較 |
| 可読性 | 条件が多いと複雑になる | 見やすく整理しやすい |
2. 条件分岐の処理を高速化するテクニック
(1) If の条件順序を最適化
処理の早い条件を最初に判定
If 文では、上から順番に条件を評価するため、発生頻度が高い or 判定が早い条件を最初に置く と高速化できます。
❌ 遅い書き方（x = 1 の頻度が一番多い場合）
If x = 3 Then
'条件1の処理
ElseIf x = 2 Then
'条件2の処理
ElseIf x = 1 Then
'条件3の処理
End If上記のコードでは、x=1 の場合はすべての条件を評価するため、無駄な計算が発生する。
✅ 高速な書き方
If x = 1 Then
'条件3だった処理
ElseIf x = 2 Then
'条件2だった処理
ElseIf x = 3 Then
'条件1だった処理
End If→ x=1 の発生頻度が高いなら、最初に判定して無駄な処理を省く。
(2) Select Case を活用
Select Case は、特に 値の比較が多い場合にIf文より高速 に動作します。
例: 10種類の値を比較する場合
❌ If文での比較
If x = 1 Then
result = "A"
ElseIf x = 2 Then
result = "B"
ElseIf x = 3 Then
result = "C"
ElseIf x = 4 Then
result = "D"
ElseIf x = 5 Then
result = "E"
'さらに続く...
End If→ If 文では、すべての条件を順番にチェックするため、条件が多くなると遅くなる。
✅ Select Case で最適化
Select Case x
Case 1: result = "A"
Case 2: result = "B"
Case 3: result = "C"
Case 4: result = "D"
Case 5: result = "E"
'さらに続く...
End Select→ Select Case の方が 内部処理が最適化 されており、処理速度が向上。
(3) 複数条件の評価を最適化
複数の If を統合して短縮
条件を個別にチェックすると、無駄な処理が増えて遅くなる ことがあります。
❌ 遅い書き方
If x > 10 Then
If y < 5 Then
result = "条件A"
End If
End If→ ここでは、x > 10 をチェックした後、y < 5 を判定するため、2回のチェックが発生する。
✅ 1回の評価に統合
If x > 10 And y < 5 Then
result = "条件A"
End If→ 条件をまとめることで、処理回数を削減し、高速化 できる。
(4) 数値比較を優先し、文字列比較を避ける
文字列比較は 数値比較より遅い ため、可能な限り 数値での比較を優先 する。
❌ 文字列比較の例
If status = "Completed" Then
MsgBox "処理完了"
End If→ status の値が "Completed" であるかを毎回文字列比較するため、処理速度が低下する。
✅ 数値比較を利用
DimstatusAs StringDim statusCode As Integer
Select Case status
Case "Completed": statusCode = 1
Case "In Progress": statusCode = 2
Case "Failed": statusCode = 3
End Select
If statusCode = 1 Then
MsgBox "処理完了"
End If
→ statusCode を数値に変換することで、より高速な比較 が可能になる。
(5) Dictionary や Array で条件分岐を置き換える
大量の条件分岐を最適化するために、配列や Dictionary を活用 すると、高速化できる。
✅ Dictionary を使った最適化
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
dict.Add 1, "A"
dict.Add 2, "B"
dict.Add 3, "C"
If dict.exists(x) Then
result = dict(x)
End If→ Dictionary を使うことで、高速に値を取得可能。
まとめ
VBAの条件分岐を高速化するためには、以下のポイントを意識しましょう。
- 1.
Ifの順序を最適化（頻度が高い条件を最初にチェック） - 2.
Select Caseを活用（大量の条件を整理して高速化） - 3. 複数の
Ifを統合（条件をまとめて無駄なチェックを削減） - 4. 数値比較を優先（文字列比較を避け、処理速度を向上）
- 5.
DictionaryやArrayを活用（大量の条件をリスト化し、検索速度を向上）
適切なテクニックを活用し、VBAの処理速度を最大限に高めましょう！
コメント