VBA中的The If…Then…Else語句

現(xiàn)在，你知道當(dāng)一個或多個條件為真或為假時如何顯示信息或采取行動。然而，如果你的程序需要在條件為真時采取某個行動，而條件為假時采取另外一個行動，應(yīng)該怎么辦呢？你可以通過添加一個Else子句就可以根據(jù)測試的結(jié)果將你的過程引導(dǎo)到一個合適的語句。If…Then…Else 語句有兩種格式——單行和多行。單行的格式為：

If 條件 Then 語句 1 Else 語句 2

當(dāng)條件為真時，執(zhí)行關(guān)鍵字 Then 后面的語句，當(dāng)條件為假時，則執(zhí)行 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 語句應(yīng)該用于決定執(zhí)行兩個操作中的哪一個。當(dāng)你要執(zhí)行多個語句時，你最好使用多行格式的 If…Then…Else 語句：

If 條件 Then

如果條件為真時要執(zhí)行的語句

Else

如果條件為假時要執(zhí)行的語句

End If

注意，多行的 If…Then…Else 語句以關(guān)鍵字 EndIf 結(jié)束。使用上面顯示的縮進(jìn)使得程序結(jié)構(gòu)易于閱讀。在下面的例子中，如果條件 ActiveSheet.Name = “Sheet1”為真，VB 就執(zhí)行 Then 和 Else 之間的語句，并且忽略 Else 和 EndIf 之間的語句。當(dāng)條件為假時，VB 就忽略 Then 和 Else 之間的語句，并且執(zhí)行 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

上面的過程要求用戶輸入任意一個日期。用戶提供的字符串通過一個內(nèi)置函數(shù) CDate 轉(zhuǎn)變?yōu)?Date 數(shù)據(jù)類型，最好，函數(shù) Weekday 將日期轉(zhuǎn)變?yōu)橐粋€指明該日期在一周里的天數(shù)（參見表 5-3）。該整數(shù)儲存于變量 myDate 里。條件測試用以檢查變量 myDate 是否大于等于 2 以及小于等于 6。如果測試結(jié)果為真，那么用戶就被告知，該提供的數(shù)據(jù)是個工作日；否則，程序宣布這是個周末。

表 5-3 內(nèi)置函數(shù) 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