现在,你知道当一个或多个条件为真或为假时如何显示信息或采取行动。然而,如果你的程序需要在条件为真时采取某个行动,而条件为假时采取另外一个行动,应该怎么办呢?你可以通过添加一个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
上面的字程序 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 后面)。
作者:冒牌SEO,如若转载,请注明出处:https://www.web176.com/vba/20258.html