「VBA入門」Select Case文のサンプル

2020年6月14日

サンプルコード

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