使用 If...Then...Else 语句

项目
10/25/2024

可以根据一个条件的值，使用 If...Then...Else 语句运行一个特定的语句或一个语句块。可以根据需要将 If...Then...Else 语句嵌套到多个级别。

但为了实现易读性，需要使用一个 Select Case 语句，而不是使用多级别的嵌入 If...Then...Else 语句。

如果条件为 True，则运行语句

如要在条件为 True 时仅运行一个语句，请使用 If...Then...Else 语句的单行语法。以下示例演示单行语法，省略 Else关键字 (keyword) 。

Sub FixDate() 
    myDate = #2/13/95# 
    If myDate < Now Then myDate = Now 
End Sub

若要运行一行以上的代码，必须使用多行语法。此语法包括 End If 语句，如下面的示例所示。

Sub AlertUser(value as Long) 
    If value = 0 Then 
        AlertLabel.ForeColor = "Red" 
        AlertLabel.Font.Bold = True 
        AlertLabel.Font.Italic = True 
    End If 
End Sub

如果条件为 True，则运行特定语句；如果条件为 False，则运行其他语句

使用 If...Then...Else 语句定义两个可执行语句块：如果条件为 True，则运行一个语句块；如果条件为 False，则运行另一个语句块。

Sub AlertUser(value as Long) 
    If value = 0 Then 
        AlertLabel.ForeColor = vbRed 
        AlertLabel.Font.Bold = True 
        AlertLabel.Font.Italic = True 
    Else 
        AlertLabel.Forecolor = vbBlack 
        AlertLabel.Font.Bold = False 
        AlertLabel.Font.Italic = False 
    End If 
End Sub

如果第一个条件为 False，则测试第二个条件

如果第一个条件为 False ，则可以将 ElseIf 语句添加到 If...Then...Else 语句来测试第二个条件。例如，下面的 Function 过程将基于工作分类来计算奖金。如果所有 If 和 ElseIf 语句中的条件都为 False ，则运行紧跟 Else 语句的语句。

Function Bonus(performance, salary) 
    If performance = 1 Then 
        Bonus = salary * 0.1 
    ElseIf performance = 2 Then 
        Bonus = salary * 0.09 
    ElseIf performance = 3 Then 
        Bonus = salary * 0.07 
    Else 
        Bonus = 0 
    End If 
End Function

另请参阅

Visual Basic 概念性主题

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。

通过