vba，case中的“逻辑或”、使用“to”匹配数字范围、模糊匹配

最新推荐文章于 2025-03-17 15:43:23 发布

jieru_liu

最新推荐文章于 2025-03-17 15:43:23 发布

阅读量3k

点赞数 2

分类专栏： vba 文章标签： vba

本文链接：https://blog.youkuaiyun.com/ljr_123/article/details/115716791

版权

vba 专栏收录该内容

28 篇文章

订阅专栏

这篇博客详细介绍了VBA中SelectCase语句的三种用法：1) 使用'To'进行区间判断，2) 使用逗号进行逻辑'或'操作，3) 实现模糊匹配。通过案例展示了如何在不同场景下灵活运用这些功能来实现条件判断。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub case的使用()
    
'1、to的使用：相当于“大于等于，且小于等于”。左右边界都包含
    score = 100
    Select Case score
        Case 90 To 100    '等价于[90, 100]
            MsgBox "优秀"
            
        Case 60 To 89
            MsgBox "及格"
            
        Case Is < 60
            MsgBox "不及格"
    End Select
        
    
'2、逗号的使用：相当于逻辑“或”
    my_month = "13"
    Select Case my_month
        Case "1", "2", "3"    '1或2或3
            MsgBox my_month & "月属于: 1季度."

        Case "4", "5", "6"
            MsgBox my_month & "月属于: 2季度."

        Case "7", "8", "9"
            MsgBox my_month & "月属于: 3季度."

        Case "10", "11", "12"
            MsgBox my_month & "月属于: 4季度."
        
        Case Else
            MsgBox "没有 “" & my_month & "月” 这个月份."
            
    End Select    
    

'3、模糊匹配
    str = "FTxxxxS"
    Select Case True
        Case str Like "DL*" Or str Like "FWT*"
            MsgBox str
        Case str Like "*T*" And str Like "*S"
            MsgBox str
    End Select
       
End Sub