If文 （単純な条件分岐） ｜ ExcelVBA基礎

エクセルの通常の機能である”条件付き書式”のように、条件を指定して、それが満たされたときに実行結果を変えます。

IF（単純な条件分岐）

例えば、ボタンを押すと、セルA1に180と入力されていたら、セルB1に”背が高い”と入力するにはこうします。

Private Sub CommandButton1_Click()
If Range("A1").Value = "180" Then
Range("B1").Value = "背が高い"
End If
End Sub

セルA1が180以外なら何もしません。

1行ずつ解説します。

Private Sub CommandButton1_Click()

「CommandButton1」という名前のボタンをクリックしたときに実行する機能だ、という意味です。

ワークシートにボタンを作ると、デフォルトで「CommandButton1」となります。２つめなら「CommandButton2」です。

If Range("A1").Value = "180" Then

もしセルA1の値が”180”ならば、という意味です。

Range("B1").Value = "背が高い"

（もしセルA1の値が”東京”ならば）セルB1の値を”背が高い”にする、という意味です。

End If

IF文はここでおしまい、という意味です。

さて、上記は、条件が1個だけだから良いですが、『セルA1が180なら”背が高い”、それ以外なら”高いか低いかわからない”』としたい場合はどうすれば良いでしょうか。

---