VBA中的The If…Then…Else语句.pdfVIP

VBA中的The If…Then…Else语句 现在，你知道当⼀个或多个条件为真或为假时如何显⽰信息或采取⾏动。然⽽，如果 你 程序需要在条件为真时采取某个⾏动，⽽条件为假时采取另外⼀个⾏动，应该怎 么办呢？你可以通过添加⼀个Else⼦句就可以根据测试 结果将你 过程引导到⼀个 合适 语句。If …Then …Else语句有两种格式——单⾏和多⾏。单⾏ 格式为： If 条件 Then 语句1 Else 语句2 当条件为真时，执⾏关键字Then后⾯ 语句，当条件为假时，则执⾏Else后⾯ 语 句。例如： If Sales5000 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结束。使⽤上⾯显⽰ 缩进使得程序 结构易于阅读。在下⾯ 例⼦中，如果条件Ac iveShee .Name = “Shee 1”为真，VB就 执⾏Then和Else之间 语句，并且忽略Else和EndIf之间 语句。当条件为假时，VB就 忽略Then和Else之间 语句，并且执⾏Else和End If之间 代码。 If Acti eSheet.Name = Sheet1 Then Acti eSheet.Name = My Sheet MsgBox This sheet has been rena Else MsgBox This sheet name is not default. End If 让我们来看看程序⽰例： 1. 在⼯程Decisions(Chap05.xls)⾥插⼊⼀个新模块 2. 重命名该模块为IfThenElse 3. 输⼊下列过程Wha TypeOfDay ： 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 上⾯ 过程要求⽤户输⼊任意⼀个⽇期。⽤户提供 字符串通过⼀个内置函数CDa e 转变为Da e数据类型，最好，函数Weekday将⽇期转变为⼀个指明该⽇期在⼀周⾥ 天数 （参见表5-3 ）。该整数储存于变量myDa e⾥。条件测试⽤以检查变量myDa e是 否⼤于等于2 以及⼩于等于6 。如果测试结果为真，那么⽤户就被告知，该提供 数据 是个⼯作⽇；否则，程序宣布这是个周末。 表5-3 内置函数Weekday返回 值 4 . 从VB窗⼜运⾏该程序。运⾏⼏次，每次提供不同 ⽇期。对照你 桌⾯或⽇历检 查VB 答案是否正确。 技巧：什么是结构化程序？ 结构化编程要求所有 程序具有模块化 设计，并使⽤三种逻辑结构：顺序，决定和 循环。顺序结构为⼀条接⼀条地执⾏语句；决定结构则是让你基于⼀些条件 测试来 执⾏⼀些特定 语句；⽽只要某特定 条件为真，循环结构就