《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是VBA之Excel应用第六章第一节If...Then...Else语句
【分享成果，随喜正能量】人一辈子，只能靠长期去做某件事情来成就自己，而不是靠某一个人来成就自己。关于这点，你要么及早领悟，要么等待时光给出教训，逼你领悟。
第六章第一节If...Then...Else语句
我们再次理解If...Then...Else语句在代码中的作用，这个语句在VBA代码中随处可见，对于VBA而言，条件判断应用的非常灵活，或者可以说是EXCEL函数的终结者，当你利用VBA上手后，可以不用再去寻求用EXCEL函数去解决问题了。
1If...Then...Else 语句的理解
1）语法：If condition Then [ statements ] [ Else elsestatements ]
或者，可以使用块格式语法：
If condition Then
[ statements ]
[ ElseIf condition-n Then
[ elseifstatements ]]
[ Else
[ elsestatements ]]
End If
各个参数的作用：
① condition必需。一个或多个以下两种类型的表达式：
计算结果为 True 或 False 的数值表达式或字符串表达式。如果condition为Null, 则condition被视为False。
表达式TypeOf objectname Is objecttype。其中Objectname是任何对象引用, objecttype是任何有效的对象类型。 如果objectname是objecttype指定的对象类型, 则表达式为True;否则为false。
② statements 在块格式中为可选；在没有Else子句的单行格式中为必需。可以是由冒号分隔的一个或多个语句；在 condition 为 True 时执行。
③ condition-n可选。 与condition相同。
④ elseifstatements可选。 如果关联condition-n为True, 则执行一个或多个语句。
⑤ elsestatements可选。 如果前一个condition或condition-n表达式为True, 则执行的一个或多个语句。
2）块格式的If语句必须是行上的第一个语句。语句的Else、ElseIf和End If 组成部分的前面只能有一个行号或行标签。If块必须以End If语句结尾。
3）若要确定语句是否为块, 可以检查Then关键字后面的内容。如果同一行中出现在 Then 后面的内容不是注释，该语句将被视为单行If语句。
4）Else 和 ElseIf子句都是可选的。一个If块中可以有任意所需数量的ElseIf子句，但都必须出现在Else子句前面。If块语句可以嵌套；即，相互包含。
5）在执行If 块时，将检验condition。如果condition为True，将执行Then 后面的语句。如果condition为False，将依次计算每个ElseIf条件。找到True条件时，将执行紧跟关联的Then语句。如果所有ElseIf条件均不为True（或者不存在 ElseIf 子句），则执行 Else后面的语句。执行Then或Else后面的语句后，将继续执行End If后面的语句。
2IF Then条件判断语句的应用
我们看下面的代码，是一个IF THEN条件判断语句的应用实例:
Sub mynz() 'IF THEN 条件判断
DimmyScore As Integer, myResult As String
myScore= Range("A1").Value
IfmyScore >= 60 Then myResult = "通过"
Range("B1").Value= myResult
End Sub
代码截图：
代码的讲解：上述代码完成一个分数的判断，分数的值是写在了A1单元格中，判断结果写在了B1单元格中。
1) myScore = Range("A1").Value 这句代码将分数储存在了变量myScore中
2）If myScore >= 60 Then myResult = "通过"这句代码是用IF THEN语句对分数进行判断，如果myScore >= 60返回的是true 那么将执行THEN 后的语句。
l如果同一行中出现在 Then 后面的内容不是注释，该语句将被视为单行If语句。所这里的语句用的是单行语句，单行语句是不需要END IF 的。
l如果将上述单行语句改为块语句可以做如下的改写：
If myScore >= 60 Then
myResult = "通过"
End If
3）Range("B1").Value = myResult将判断的结果写入单元格B1中。
我们在单元中写入一个数值54，点击运行：
我们看出，在B1单元格中，没有结果输出，这是我们所不希望的。
3IF Then Else判断语句的应用
为了实现各种条件的判断，我们来看下面的代码：
Sub mynzA() 'IF THEN ELSE条件判断
DimmyScore As Integer, myResult As String
Range("B2").Value= ""
myScore= Range("A2").Value
IfmyScore >= 60 Then
myResult= "通过"
Else
myResult= "失败"
EndIf
Range("B2").Value= myResult
End Sub
代码的截图：
代码解读：上述代码利用了IF THEN ELSE来进行多种条件的判断。
1) If myScore >= 60 Then
myResult= "通过"
当分数值大于或者等于60，那么返回的结果是"通过"
2）Else
myResult= "失败"
End If
当是其他的情况时，那么返回的结果是"失败"
我们在B1单元格中录入数字59，点击运行：
这时就出现了返回结果“失败”了。
今日内容回向：
1）条件判断的格式语句有几种，意义是什么？
2）单行条件判断和多行条件判断在语法格式上有何不同？
本讲内容参考程序文件：工作簿06.xlsm
我20多年的VBA成果全在下面的资料中：
