判断语句_VBA常用语句之判断语句

我的目标：让中国的大学生走出校门的那一刻就已经具备这些office技能，让职场人士能高效使用office为其服务。支持我，也为自己加油！

今天我们来学习下VBA中另一个重要的语句结构，判断语句结构。

在工作中，我们经常会遇到根据不同的情况进行判断并做出不同的操作，有时候需要的是单条件的判断，有时候需要的是多条件的判断。

1、单条件的判断语句：

学习函数时我们经常用IF来判断，VBA 中也一样。语法如下：

If  判断1   Then

    代码 1    

Else   

    代码  2    

End If 

上面的语句翻译过来就是：

假如条件成立那么

    怎么怎么样

否则

    怎么怎么样

结束判断

举例：

如果A1单元格中的数字大于等于60，B1单元格中显示及格，否则显示不及格。

Sub 判断()  If Range("A1") >= 60 Then    Range("b1").Value = "及格"  Else    Range("b1").Value = "不及格"  End IfEnd Sub

我们在A1中输入不同数据，然后按F5运行代码试试看B1中的结果。

2、多条件的判断语句

多条件判断有两种语句

1)、If结构

If 条件1 then

    代码1

ElseIf 条件2  Then

    代码2

ElseIf 判断3  Then

    代码3

……

Else

End If

举例：

如果A1单元格中的数字大于等于85，B1单元格中显示优秀，若大于等于60，B1中显示良好，小于60，显示差。

Sub 多重判断1()  If Range("A1") >= 85 Then    Range("b1").Value = "优秀"  ElseIf Range("A1") >= 60 Then    Range("b1").Value = "良好"  ElseIf Range("A1") < 60 Then    Range("b1").Value = "差"  End IfEnd Sub

当然上面的代码还可以简化，自己动脑想想如何简化。

2)、Select Case 结构

Select Case 

    Case (is)条件1           

        代码1

    Case(is)条件2

        代码2

    ……

    Case ( is) 条件N

        代码n

    Case Else

        代码

End Selcet

还是上面的例子，我们试试用Select Case 来写

Sub 多重判断2()Select Case Range("A1")  Case Is >= 85    Range("b1").Value = "优秀"  Case Is >= 60    Range("b1").Value = "良好"  Case Is < 60    Range("b1").Value = "差"End SelectEnd Sub

通过对比我们可以发现，如果条件是单个变量，用Select Case语句写起来更加方便，而且在Case后面直接写比较运算符时，Case后面的is会自动添加上去，代码显得更加简洁。

赶快动手试试吧，也许写着写着你就爱上VBA了！

今天的分享就到这里，希望对大家有所帮助！

鼓励一下，赞完再走