「Excel VBA」Select Case文に比較演算子で比較する (Is)で比較する

書式
Case Is 比較演算子
Isと比較演算子で比較しています。
Case文の後ろにIsを利用して、比較演算子で比較を行います。

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub testFunc()
Dim score As Integer
score = 70
Select Case score
Case Is = 70, 80
Debug.Print "70または80です"
Case Is > 85
Debug.Print "85より大きい"
Case Else
Debug.Print "それ以外の値"
End Select
End Sub
Sub testFunc() Dim score As Integer score = 70 Select Case score Case Is = 70, 80 Debug.Print "70または80です" Case Is > 85 Debug.Print "85より大きい" Case Else Debug.Print "それ以外の値" End Select End Sub
Sub testFunc()
    Dim score As Integer
    score = 70
    
    Select Case score
        Case Is = 70, 80
            Debug.Print "70または80です"
            
        Case Is > 85
            Debug.Print "85より大きい"
            
        Case Else
            Debug.Print "それ以外の値"
    End Select
End Sub

実行結果
70または80です

Excel VBA

Posted by arkgame