「Excel VBA」Select Case文に比較演算子で比較する (Is)で比較する
書式
Case Is 比較演算子
Isと比較演算子で比較しています。
Case文の後ろにIsを利用して、比較演算子で比較を行います。
使用例
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です