今回のテーマは If 文です

条件で場合分けして操作したいときに使います。

基本的な形はこちらです。

If 条件1 Then

　　処理1

Elself 条件2 Then

　　処理2

Elself 条件3 Then

　　処理3

Else

　　処理

End If

上 (条件1) から順に条件に合うか見ていき、条件に合ったところの「処理○」が実行されます。

どの条件にも合わなかった場合は、 Else の「処理」が実行されます。

また、条件に合った時の文が単文であれば、

　　　If 条件 Then 処理

ともできます。

例えば、変数と繰返しの回で出した例で解いてみましょう。

毎月りんごを買っています。

4月は1個190円のりんごを5個、 5月は1個169円のりんごを8個、6月は1個211円のりんごを3個買いました。

毎月の経費はいくらでしょう?

ただし、ワークシートには月だけ入力されているものとします。

Sub If練習()

Dim 横 As Integer

For 横 = 2 To 4

If Cells(1, 横) = "4月" Then
Cells(2, 横) = 190 * 5

ElseIf Cells(1, 横) = "5月" Then
Cells(2, 横) = 169 * 8

ElseIf Cells(1, 横) = "6月" Then
Cells(2, 横) = 211 * 3
End If

Next 横

End Sub

こういったコードになります。

For NextでB1からD1までセルを見ていって、セルの値が何月かによって場合分けしています。

次回はSelect Case文で今回とは違った条件の書き方を勉強しましょう

練習はその後まとめてします

10。条件 If