005.VBA的判断语句
大家好，我是永不止步的老牛。
上一篇我们介绍了Excel宏，本篇我们介绍VBA的判断语句。
当我们在VBA编码中，碰到需要判断一种情况的结果来决定是不是要执行一些代码时，就要用到VBA的判断语句，我们逐步深入，先看最简单的判断语句 If…Then，语法如下：
If 条件 Then
代码1
代码2
代码n
End If
表示判断“条件”的结果，如果是True，就执行Then和End If之间的代码段，如果是False，就跳过Then和End If之间的代码段，执行End If语句之后的代码，If…Then必须以End If结束。
“条件”是使用关系运算符，逻辑运算符或两者结合的表达式，表达式的结果是True或False，表达式可以是数值表达式、字符表达式或类型判断表达式，比如说：
- ActiveCell.Value > 23.9 ：如果当前单元格的数值大于23.9就返回True，否则返回False。
- ActiveSheet.Name= “Sheet1” ：如果当前工作表名称是“Sheet1”，就返回True，否则返回False。
- TypeOf ActiveCell Is Range ：如果对象ActiveCell的类型是Range，就返回True，否则返回False。
ActiveCell表示当前单元格，ActiveCell.Value表示当前单元格的值。
ActiveSheet表示当前工作表，ActiveSheet.Name表示当前工作表的名称。
我们用前面编写的计算BMI的过程演示一下(BMI正常范围为18.5-23.9，低于18.5为体重过轻，高于23.9为体重过重)，代码如下：
代码中“ If BMI >= 18.5 And BMI <= 23.9 Then ”，判断BMI大于等于18.5并且小于等于23.9，就显示提示告知正常，And表示并且，就是BMI >= 18.5和BMI <= 23.9必须同时满足才返回True，否则返回False。
代码中“ If BMI < 18.5 Or BMI > 23.9 Then ”，判断BMI小于18.5或大于23.9，就显示提示告知超标，Or表示或，就是BMI < 18.5和BMI > 23.9有一个满足就返回True，全部满足就返回False。
上面的语句我们用了2次If…Then语句进行判断，能不能只用只判断一次，条件为True时，执行一段代码，为False时执行另一段代码？可以通过使用If…Then语句的子句Else实现，语法如下：
If 条件 Then
条件为True时，代码1
条件为True时，代码2
条件为True时，代码n
Else
条件为False时，代码1
条件为False时，代码2
条件为False时，代码n
End If
只要判断“条件”，如果结果为True，就执行Then和Else之间的代码，如果条件为False，就执行Else和End If之间的语句，我们将刚才的代码修改一下，如下图：
一次判断可以决定2种执行方案，代码也简化了。
我们想要在BMI超标时能准确提示用户，是体重过轻还是体重过重，有同学说：这个好办，只要给If语句种嵌套另一个If语句就行，没问题，If语句根据需要可以嵌套If语句，修改一下代码，如下图：
If语句对于多种情况进行判断时，提供了ElseIf子句，可以减少If嵌套层级，方便阅读，代码如下：
这里重点说一下，可以包括多个ElseIf子句和条件，
Else可以省略，但Else必须出现在ElseIf之后
。
如果我们需要判断的情况很多，比如，小于18.5的，换药分分3个档，BMI<10是体重轻的很严重，10<=BMI<15是体重非常轻，10<=BMI<18.5是体重有点轻，我们看下代码
如果BMI为20，代码会怎么执行呢？
代码会先执行1的判断，因为不满足，再执行2，还是不满足，再执行3，不满足，执行4，不满足，执行Else和End If语句执行的代码，这就是执行顺序。
如果是这种多情况判断，有另外一种判断语句Select Case语句，能够简单一点，语法如下：
Select Case 表达式
[Case 条件
[符合条件时执行的代码]] ...
[Case Else
[不符合条件时执行的代码]]
End Select
表达式：表示任何数值表达式或字符串表达式
省略号代表可以使用多个条件。只要有一个Case就需要有一个条件，子句Case Else是可选的，在所有Case条件都不满足时执行。
Case后面的“条件”，有多种写法：
A．一个表达式。
B．表达式1 To 表达式2，表达式1要小于表达式2。
C．Is表达式，结果必须为True或False。
修改上面的代码如下：
To可以这样写：Case 8 To 18
注意一下， 如果有多个Case都满足，执行第一个满足Case的语句 ，例如BMI为9时，同时满足<10、<15、<18.5三个Case，但执行第一个满足的<10的Case的语句，所以用Select要注意Case的前后顺序。
今天就介绍到这，大家最好能自己实际练习一下，下一篇文章我们介绍VBA的Do…While循环语句。
