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 返回的值
结构化编程要求所有的程序具有模块化的设计，并使用三种逻辑结构：顺序，决定和循环。顺序结构为一条接一条地执行语句；决定结构则是让你基于一些条件的测试来执行一些特定的语句；而只要某特定的条件为真，循环结构就重复地执行某条或某些语句。循环是下章的主题。在结构化编程里，其它一些逻辑语句，例如 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
If IsEmpty(ActiveCell) ThenIf ActiveCell.Value = "" Then