「VBA入門」Toで範囲指定で比較するサンプル

2020年6月14日

サンプルコード

Sub examplefunc()
    Dim tt As Integer
    tt = 37
    
    Select Case tt
        Case 10 To 30
            Debug.Print "10～30"
        
        Case 40 To 50
            Debug.Print "40～50" 
            
        Case Else
            Debug.Print "other"
    End Select
End Sub