VBA入门之IF

weixin_33957036

于 2018-07-23 16:55:30 发布

阅读量239

点赞数

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

本文链接：https://blog.youkuaiyun.com/weixin_33957036/article/details/81170306

版权

VBA 专栏收录该内容

5 篇文章

订阅专栏

If...Then...End If

If 7>3 Then
    Debug.Print "Yes"
End If

If...Then...Else...End If

If 7>2 Then
    Debug.Print "Yes"
Else 
    Debug.Print "No"
End If

If...Then...ElseIf...Then...End If

If 7>5 Then
    Debug.Print "True"
ElseIf 5>7 Then
    Debug.Print "False"
End If

无Else/有Else的 Select Case

Sub test()
    Dim score As Integer
    score = 98
    Select Case score
        Case Is >=90
            Debug.Print "优秀"
        Case Is >=80
            Debug.Print "良好"
        ....
        ' Case Is >= 60, Is <= 70
            ' Debug.Print "中"
    End Select 
End Sub