「VBA入門」Select Case文のサンプル
サンプルコード
Sub example() Dim tt As Integer tt = 56 Select Case tt Case Is > 100 Debug.Print "100より大きい" Case Is = 6,7,8 Debug.Print "6 or 9" Case Else Debug.Print "other" End Select End Sub
Coding Changes the World
サンプルコード
Sub example() Dim tt As Integer tt = 56 Select Case tt Case Is > 100 Debug.Print "100より大きい" Case Is = 6,7,8 Debug.Print "6 or 9" Case Else Debug.Print "other" End Select End Sub