「Excel VBA」Toで範囲指定の値を比較するサンプル

2021年2月20日

書式
Case 数値A To 数値B
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub sampleFunc()
Dim nn As Integer
nn = 33
Select Case nn
Case 15 To 20
Debug.Print "5~20"
Case 30 To 35
Debug.Print "20~25" '
Case Else
Debug.Print "other value"
End Select
End Sub
Sub sampleFunc() Dim nn As Integer nn = 33 Select Case nn Case 15 To 20 Debug.Print "5~20" Case 30 To 35 Debug.Print "20~25" ' Case Else Debug.Print "other value" End Select End Sub
Sub sampleFunc()
    Dim nn As Integer
    nn = 33
    
    Select Case nn
        Case 15 To 20
            Debug.Print "5~20"
        
        Case 30 To 35
            Debug.Print "20~25" '
            
        Case Else
            Debug.Print "other value"
    End Select
End Sub

 

Excel VBA

Posted by arkgame