「Excel VBA」Select Case文に範囲指定で比較するサンプル
書式
Select Case 値{ Case 数値1 To 数値2 xxx Case Else 値がどのCaseの値にも一致しない場合に実行コード End Select
値がCaseの値と一致すれば、一致したCaseの処理のみが実行されます。
「To」を利用して、範囲指定で比較します。
使用例
Sub testFunc() Dim score As Integer score = 60 Select Case score Case 50 To 55 Debug.Print "50から55です" Case 58 To 70 Debug.Print "58から70です" Case Else Debug.Print "それ以外の値" End Select End Sub
実行結果
58から70です