Excel VBA 编程入门教程 VBA中的The If…Then…Else语句
现在，你知道当一个或多个条件为真或为假时如何显示信息或采取行动。然而，如果你的程序需要在条件为真时采取某个行动，而条件为假时采取另外一个行动，应该怎么办呢？你可以通过添加一个Else子句就可以根据测试的结果将你的过程引导到一个合适的语句。If…Then…Else 语句有两种格式——单行和多行。单行的格式为：
If 条件 Then 语句 1 Else 语句 2
当条件为真时，执行关键字 Then 后面的语句，当条件为假时，则执行 Else 后面的语句。例如：
If Sales>5000 Then Bonus = Sales * 0.05 Else MsgBox “No Bonus”
如果储存在变量 Sales 的值大于 5000 的话，那么 VB 将使用下述公式：Sales * 0.05 来计算股红（bonus）。然而，如果变量 Sales 不大于 5000 的话，VB 就会显示信息“NoBonus”。If…Then…Else 语句应该用于决定执行两个操作中的哪一个。当你要执行多个语句时，你最好使用多行格式的 If…Then…Else 语句：
If 条件 Then
如果条件为真时要执行的语句
Else
如果条件为假时要执行的语句
End If
注意，多行的 If…Then…Else 语句以关键字 EndIf 结束。使用上面显示的缩进使得程序结构易于阅读。在下面的例子中，如果条件 ActiveSheet.Name = “Sheet1”为真，VB 就执行 Then 和 Else 之间的语句，并且忽略 Else 和 EndIf 之间的语句。当条件为假时，VB 就忽略 Then 和 Else 之间的语句，并且执行 Else 和 End If 之间的代码。
If ActiveSheet.Name = "Sheet1" Then
ActiveSheet.Name = "My Sheet" MsgBox "This sheet has been renamed."
Else
MsgBox "This sheet name is not default."
End If
让我们来看看程序示例：
1. 在工程 Decisions(Chap05.xls) 里插入一个新模块
2. 重命名该模块为 IfThenElse
3. 输入下列过程 WhatTypeOfDay：
Sub WhatTypeOfDay()
Dim response As String
Dim question As String
Dim strmsg1 As String, strmsg2 As String
Dim myDate As Date
question = "Enter any date in the format mm/dd/yyyy:" _
& Chr(13)& " (e.g., 11/22/1999)"
strmsg1 = "weekday"
strmsg2 = "weekend"
response = InputBox(question)
myDate = Weekday(CDate(response))
If myDate >= 2 AND myDate <= 6 Then
MsgBox strmsg1
Else
MsgBox strmsg2
End If
End Sub
上面的过程要求用户输入任意一个日期。用户提供的字符串通过一个内置函数 CDate 转变为 Date 数据类型，最好，函数 Weekday 将日期转变为一个指明该日期在一周里的天数（参见表 5-3）。该整数储存于变量 myDate 里。条件测试用以检查变量 myDate 是否大于等于 2 以及小于等于 6。如果测试结果为真，那么用户就被告知，该提供的数据是个工作日；否则，程序宣布这是个周末。
表 5-3 内置函数 Weekday 返回的值
4. 从 VB 窗口运行该程序。运行几次，每次提供不同的日期。对照你的桌面或日历检查 VB 的答案是否正确。
技巧：什么是结构化程序？
结构化编程要求所有的程序具有模块化的设计，并使用三种逻辑结构：顺序，决定和循环。顺序结构为一条接一条地执行语句；决定结构则是让你基于一些条件的测试来执行一些特定的语句；而只要某特定的条件为真，循环结构就重复地执行某条或某些语句。循环是下章的主题。在结构化编程里，其它一些逻辑语句，例如 GoTo，是不允许的。结构化程序的代码容易跟踪——它从上到下平稳地走下来，没有任何跳跃到特定标志去的语句。下面就是一个结构化程序和非结构化程序的例子：
非结构化程序：
Sub GoToDemo()
Dim num, mystr
num = 1
If num = 1 Then
GoTo line1
Else
GoTo Line2
Line1:
mystr = “Number equals 1”
GoTo LastLine
Line2:
mystr = “Number equals 2”
LastLine:
Debug.Print mystr
End sub
结构化程序：
Sub Structure()
Dim num, mystr
num = 1
If num = 1 Then
mystr = “Number equals 1”
Debug.Print mystr
Else
mystr = “Number equals 2”
End if
End Sub
上面的字程序 EnterData 提示用户选择任意单元格，然后单元格地址赋值于对象变量 cell。If…Then…Else 结构检查被选择的单元格是否为空。IsEmpty 是个内置函数，用来决定某个变量是否已经被初始化了。如果该变量没有被初始化，那么 IsEmpty 函数返回 ture（真），否则返回 false（假）。回想我们说过，当变量被赋予第一个值时，它就被初始化了。在本过程中，如果当前单元格为空时，VB 将它当作一个零长度的字符串（””）。除了：
If IsEmpty(ActiveCell) Then
你还可以使用下述指令：
If ActiveCell.Value = "" Then
如果当前单元格为空，Then 后面的语句就会被执行。该语句提示用户输入一个文本或数字，并且一旦数据被提供，该数据就会输入给当前单元格。如果当前单元格不为空，VB 将跳到子句 Else 后面的指令。该指令将让 VB 选择同列里的下一个单元格。当你运行该过程，信息框提示你选择一个单元格，在工作表上，点击任何单元格。被选择的单元格地址就会出现在信息框的编辑框里面。点击确定退出信息框。VB 检查被选择单元格的内容并且跳到你过程里的 true 或 false 指令块（true 指令块在 Then 后面，而 false 指令块在 Else 后面）。