VBA中嵌套的If…Then语句和Select Case语句.pdf

VBA中嵌套的If…Then语句和Select Case语句 将⼀个If …Then语句或If …Then …Else语句放在另外⼀个If …Then语句或If …Then …Else 语句⾥⾯，你可以在你的VBA过程⾥作出更复杂的决定。这种⼀个If语句⾥包含另⼀ 个If 令块的结构称为嵌套的If语句。接下来的过程TestConditions是上节⾥的过程 WhatValue的修正版，演⽰嵌套的If …Then语句是如何⼯作的： Sub TestConditions() Range(A1).Select If IsEmpty(ActiveCell) T en MsgBox T e cell is empty . Else If IsNumeric(ActiveCell.Value) T en If ActiveCell.Value = 0 T en ActiveCell.Offset(0, 1).Value =zero ElseIf ActiveCell.Value 0 T en ActiveCell.Offset(0, 1).Value =positive ElseIf ActiveCell.Value 0 T en ActiveCell.Offset(0, 1).Value =negative End If Else ActiveCell.Offset(0, 1).Value = text End If End If End Sub 为了使过程TestConditions更容易理解，每个If …Then语句都显⽰为不同的格式，现在 你可以清楚地看到过程使⽤了三个If …Then程序块。 第⼀个If块 （粗体）检查当前单元格是否为空，如果为真，就会显⽰信息，然后VB将 跳过Else部分找到相应的End If ，该语句位于关键字End Sub之前。 如果当前单元格不为空，IsEmpty(ActiveCell)条件返回假，并且VB运⾏粗体Else下⾯ 的单下划线的If块。该单下划线的If …Then …Else语句就是嵌套在第⼀个If块 （粗体） 的。该语句检查当前单元格是否是个数字。注意，我们通过另⼀个内置函数Is umeric 来做这个。如果当前单元格的值不是⼀个数字，条件就为假，因此，VB跳到单下划 线的Else处，并且在B 1⾥输⼊“text” 。然⽽，如果当前单元格包含个数字时，VB就会 运⾏双下划线的If块，评估每种情况并作出相应的决定。 第⼀个If块 （粗体）被称为外部If语句，这个外部语句包含两个内部的If语句 （单下划 线和双下划线）。 技巧：嵌套语句 嵌套是 将⼀种控制结构放在另外⼀控制结构⾥⾯。你将在后⾯的循环结构⾥看到更 多的嵌套的例⼦。 Select Case语句 为了避免难以弄清的复杂的嵌套的If语句，你可以使⽤Select Case语句代替。它的语法 为： Select Case 测试表达式 Case 表达式1 如果表达式1匹配测试表达式的语句 Case 表达式2 如果表达式2匹配测试表达式的语句 Case 表达式N 如果表达式N匹配测试表达式的语句 Case Else 如果没有表达式匹配测试表达式要执⾏的语句 End Select 你在关键字Select Case和End Select之间放置任意多个条件以测试。⼦句Case Else是可 选的，当你希望可能有条件表达式返回假时使⽤它。在Select Case语句⾥，VB将每个 表达式和测试表达式相⽐较。 这⾥是Select Case语句背后的逻辑。当VB遇到Select Case⼦句，它记下测试表达式的 值。然后它前进到下⾯的第⼀个Case⼦句，如果这个表达式的值和测试表达式的值匹 配的话，VB就会执⾏语句直到遇到另外⼀个Case⼦句并且跳到EndSelect语句。然 ⽽，如果第⼀个Case⼦句后⾯的表达式测试结果和测试表达式不匹配时，VB就会检查 每⼀个Case⼦句，直到它找到⼀个匹配的为⽌。如果没有⼀个Case⼦句后⾯的表达式 匹配测试表达式的值的话，VB就会跳到Case Else⼦句并执⾏该语句直到遇到关键字 EndSelect 。注意，CaseElse⼦句是