这节我们来学习下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会自动添加上去，代码显得更加简洁。
转自：米宏Office