「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です

Excel VBA

Posted by arkgame