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 返回的值

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) Then

If ActiveCell.Value = "" Then