[VBA][Excel]処理の分岐 Select Case ステートメント

※全てのExcelで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません

i の値によって異なる処理を実行できます

Private Sub CommandButton1_Click()

Dim i As Integer

'iの値を変えて実行して下さい
i = 31


Select Case i
    Case 1 To 10
        Sheet1.Range("A1").Value = i
    Case 11 To 18
        Sheet1.Range("A2").Value = i
    Case 19, 20
        Sheet1.Range("A3").Value = i
    Case Is <= 30
        Sheet1.Range("A4").Value = i
    Case Else
        Sheet1.Range("A5").Value = i
End Select


End Sub

このサンプルでは分岐のパターンとして順に

1以上10以下

11以上18以下

19と20

30以下

それら以外

の5つとなります。