プログラムの肝！ 条件分岐と繰り返しの基本文法とさまざまな書き方：Excelマクロ／VBAで始める業務自動化プログラミング入門（6）（2/4 ページ）

If〜Thenによる二者択一の条件分岐

　次に、これもプログラミングに欠かせない条件分岐について解説する。まずは、二者択一の条件分岐だ。構文は下記のようになる

　｛ステートメント｝とは、この場合「決まった処理を行う命令」のことを指す。

　例えば、図4のようなデータがあったとする。

図4　電話番号のデータがある

　「電話番号」に未入力のセルがあると「電話番号」というシート名の背景色を赤に変化させる、VBAはリスト3のようになる。先ほどのFor〜Nextも使われている。

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer
For i = 4 To 9
  If IsEmpty(Cells(i, 3)) = True Then
    ActiveSheet.Tab.Color = RGB(255, 0, 0)
    Exit For
  End If
Next
End Sub

　今回は、「電話番号」ワークシートがアクティブになったときに処理を行う。Worksheet_Activate内に処理を記述する。

　「セル4」〜「セル9」までをFor〜Next文で繰り返し処理を行い、IsEmpty関数を使って、その中に空白セルがあれば、「電話番号」ワークシートのタブの背景色を赤に変化させている。

Exit Forで繰り返し処理から抜ける

　空白処理が見つかった時点でExit Forで繰り返し処理から抜けている。この1文を記述しないと、最後まで空白のチェックがされ、最後のセルにデータが入っていると、データが全て入力されていると判断されてしまう。

　そこで、空白が見つかった時点で繰り返し処理のループから抜ける必要がある。処理を抜けるには、この場合「Exit For」を使用する。

IsEmpty関数は、指定した値が空かどうか判定

　IsEmpty関数は、指定した値が空ならTrueを返し、それ以外はFalseを返す関数だ。

実行結果

　実行すると図5のようになる。

図5　電話番号に空白のデータがあると「電話番号」シートのタブの背景色が赤のグラデーションになる。Sheet2をアクティブにすると「電話番号」タブは赤で塗りつぶされる

　しかし、このコードではまずい点がある。このままでは「正岡団子」の「電話番号」の空白セルにデータを入力しても、「電話番号」タブが赤になったままなのだ。これを解消するには、指定した条件以外の処理を記述する必要がある。

Elseで指定した条件以外の処理

　先のリスト3では二者択一の条件式を使っていた。「データが空ならワークシートのタブを赤にする」で終わっている。よって、「データが入力されたらどうするか」といった処理が記述されていないのだ。そこで、「指定した条件以外の処理」の構文を使って、データが入力されたなら、ワークシートのタブを元の色に戻す処理を書く必要がある。

　｛ステートメント2｝には｛ステートメント1｝以外の処理を記述する。

　リスト3をリスト4のように書き直す。

Private Sub Worksheet_Activate()
Dim i As Integer
For i = 4 To 9
  If IsEmpty(Cells(i, 3)) = True Then
    ActiveSheet.Tab.Color = RGB(255, 0, 0)
    Exit For
  Else
    ActiveSheet.Tab.Color = RGB(255, 255, 255)
  End If
Next
End Sub

　赤文字が追加した処理だ。Elseの後に、ワークシートのタブを「白」に戻している。実行画面は省略する。

ElseIfで複数の条件に応じた条件分岐処理

　次は複数の条件に応じて処理を分岐する処理について解説しよう。

　図6のような社員の年齢表があったとする。

図6　社員の年齢表

　この表の中から、年齢が20〜30歳までのセルの背景色を「赤」、30〜40歳までを「青」、50〜60歳までを「緑」、60歳以上を「黄」で塗りつぶしてみよう。マクロはリスト5のようになる。

Option Explicit
Private Sub Worksheet_Activate()
Dim i As Integer
Dim age As Integer
For i = 4 To 12
  If Range("C" & i).Value >= 20 And Range("C" & i).Value < 30 Then
    Range("C" & i).Interior.ColorIndex = 3
  ElseIf Range("C" & i).Value >= 30 And Range("C" & i).Value <= 40 Then
    Range("C" & i).Interior.ColorIndex = 5
  ElseIf Range("C" & i).Value >= 50 And Range("C" & i).Value < 60 Then
    Range("C" & i).Interior.ColorIndex = 10
  Else
    Range("C" & i).Interior.ColorIndex = 27
  End If
Next
End Sub

条件分岐でよく出てくる「比較演算子」を使う

　比較演算子を使って複数の条件分岐を行い、年代別にセルの背景色を変えた。

　以下の表は、数値の比較で使う比較演算子の種類と意味だ。

　数値以外の比較演算子の使い方については「Visual Basicにおける比較演算子 - MSDN」を参照してほしい。

条件分岐でよく出てくる「二項論理演算子」も使う

　ここで使用している「And」演算子は全ての条件を満たす場合はTrueを返し、それ以外はFalseを返す。

　「二項論理演算子」には、これ以外に「Or」演算子がある。これはいずれかの条件を満たす場合はTrue、それ以外はFalseを返す。

　簡単に言うとAndは「かつ」、Orは「または」という意味だ。AndやOrなど「二項論理演算子」の種類と意味については「Visual Basicの論理演算子とビット処理演算子 - MSDN」を参照してほしい。

実行結果

　実行すると図7のように表示される。この場合実行とは、「社員年齢」というワークシートがアクティブになったとき（Activate）を指す。

図7　年代別に年齢の背景色が色分けされた