10。条件　If

今回のテーマは 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文で今回とは違った条件の書き方を勉強しましょう爆　　笑
練習はその後まとめてします花