VBA常用语句（判断语句）

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

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

1、单条件的判断语句：

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

if  判断1   then

代码 1    

else   

代码  2    

end if 

当条件成立时执行代码1的操作，否则执行代码2的操作。

举例：

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

Sub 判断()

If Range('A1') >= 60 Then

Range('b1').Value = '及格'

Else

Range('b1').Value = '不及格'

End If

End Sub

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

2、多条件的判断语句

多条件判断有两种语句

1）、

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 If

End Sub

2）、

select case 判断的对象

case （is）条件1           

代码1

case（is）条件2

代码2

……

case ( is) 条件N

代码n

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 Select

End Sub

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

今天的分享就到这里。

想报名参加培训的同学请联系本人微信：527240310，针对你日常工作中遇到的问题进行培训，培训时会发你素材，同步操作，让你真正学明白。一次报名后，后期录制的所有视频均可免费观看。

只要你行动，离梦想就会更近一步，欢迎加入我们的学习行列，经常问问题的同学也希望你能转发、分享、赞赏，帮助别人也是在帮自己。