一、功能说明

条件语句是Excel VBA编程中的关键部分，用于根据特定条件执行不同的操作。条件语句可以帮助您控制程序的执行流程，根据条件的真假来决定执行不同的代码块。Excel VBA提供了几种不同类型的条件语句，包括If...Then语句、If...Then...Else语句、Select Case语句等。

二、语法说明1. If...Then语句

If...Then语句用于在满足条件时执行特定的代码块。

If 条件 Then    ' 在条件为真时执行的代码End If

If...Then...Else语句允许您在条件为真和条件为假时执行不同的代码块。

If 条件 Then    ' 在条件为真时执行的代码Else    ' 在条件为假时执行的代码End If

If...Then...ElseIf语句允许您测试多个条件，并在满足其中一个条件时执行相应的代码块。

If 条件1 Then    ' 在条件1为真时执行的代码ElseIf 条件2 Then    ' 在条件2为真时执行的代码Else    ' 如果以上条件都不为真时执行的代码End If

Select Case语句用于根据不同条件的值执行不同的代码块。

Select Case 表达式    Case 值1        ' 如果表达式等于值1时执行的代码    Case 值2        ' 如果表达式等于值2时执行的代码    Case Else        ' 如果表达式不等于任何已列出的值时执行的代码End Select

假设您有一个Excel工作表，其中包含一列学生成绩，您希望根据不同的分数段对学生成绩进行分类。以下是一个用Select Case语句的案例说明：

四、编写代码

Sub 分类成绩()    Dim 成绩 As Double    Dim 分类 As String        ' 获取学生成绩    成绩 = Range("A1").Value        ' 使用Select Case语句分类成绩    Select Case 成绩        Case Is >= 90            分类 = "优秀"        Case 80 To 89.99            分类 = "良好"        Case 70 To 79.99            分类 = "中等"        Case 60 To 69.99            分类 = "及格"        Case Is < 60            分类 = "不及格"        Case Else            分类 = "无效成绩"    End Select        ' 将分类结果写入工作表    Range("B1").Value = 分类End Sub

如果您在A1单元格中输入学生成绩，然后运行上述代码，它将根据学生成绩的不同范围在B1单元格中显示相应的分类，例如，如果成绩为85，B1将显示"良好"。

六、程序分析代码首先声明了一个成绩变量，用于存储从A1单元格中读取的学生成绩，以及一个分类变量，用于存储分类结果。使用Select Case语句根据不同的分数范围来分类成绩。如果学生成绩在特定范围内，它将设置分类变量为相应的描述。如果成绩不在任何范围内，将执行Case Else中的代码，将分类设置为"无效成绩"。最后，分类结果被写入B1单元格。

这个案例演示了如何使用条件语句来根据条件的真假执行不同的代码块，以此来分类学生成绩。这是Excel VBA中常见的应用之一。

请支持作者写作不易，敬请关注收藏，点赞和转发！