VBA 程序执行三大结构中，选择结构（判断）用于选择性地执行代码。选择结构与 Excel 的 IF 函数类似，也是以 IF 为关键词，按照判断条件的真假，执行不同的操作。但是 VBA 中的 IF比 Excel 中的 IF 函数更强大。
今天的文章，我们将学习 VBA 中选择结构的基本语法，并且结合实际的例子，介绍多种选择结构的形式。通过今天的学习，你将学会以下几种选择结构的语法和使用方式：
- If … Then 结构
- If … Else 结构
- If ElseIf Else 结构
- Select Case 结构
戳我学习>>知识兔精品课《Office2019零基础入门精通全套大师级课程》
选择结构基础
选择结构，根据提供的条件表达式的值，如果为真（True），则执行选择结构的主体代码，否则跳过。
选择结构的核心是判断条件表达式的真假，这一步理解了，也就理解了选择结构的多种形式。
选择结构的基本执行方式如下：
示例数据
本篇我们使用一个班级的考试成绩作为示例数据。代码中如何与 Excel 中的数据交互，不需要看懂，这部分在 Excel 对象模型中详细介绍。
If Then 结构
选择结构中，If Then 结构是最基础的一个。它只有条件表达式真时，执行的代码。
If Then结构基本语法如下，其中 End If是选择结构的结束标志。
If 条件表达式 Then '表达式为真时，执行的代码End If现在我们看实际的例子，判断学生是否及格，及格条件是成绩 ≥60。如果及格，在C列对应单元格填写“及格”。具体代码如下：
Sub MyCode() Dim i As Integer For i = 2 To 10 If Cells(i, "B").Value >= 60 Then Cells(i, "C") = "及格" End If Next iEnd Sub我们可以看到，我们使用 B 列中的学生成绩与 60 分比较，如果≥60分，就在 C 列填写及格。
条件表达式是 Cells(i, "B").Value >= 60，选择性执行的代码部分是 Cells(i, "C") = "及格"。
其中，For 语句是表示循环结构，这里只需知道程序从第一个学生循环到最后一个学生，依次判断每个学生的成绩。循环结构将在下一篇中做详细介绍。
将以上代码运行后，可以看到运行结果如下：
If Else 结构
很多时候，我们根据表达式的真假，真时执行一块代码，假时执行另一块代码。这种需求可以使用 If Else结构实现。
If Else结构中，条件表达式在真时，执行Then后的代码；条件表达式为假时，执行 Else后的代码。基本语法如下：
If 条件表达式 Then '真时执行的代码Else '假时执行的代码End If我们继续看实际的例子。在上一个例子的基础上，这次对不及格的学生，在C列填入不及格。代码如下：
Sub MyCode() Dim i As Integer For i = 2 To 10 If Cells(i, "B").Value >= 60 Then Cells(i, "C") = "及格" Else Cells(i, "C") = "不及格" End If Next iEnd Sub在这个例子中，条件表达式 Cells(i, "B").Value >= 60为假时，表示学生成绩低于60分，即不及格。这时就执行 Else后的代码。
程序运行结果如下：
If ElseIf Else 结构
前面两种结构中，最多有两种选择，即 ≥ 60 和 ＜ 60。有时针对同一个变量，可能存在多种判断标准。例如，对及格的学生，继续评级及格、良和优。
选择结构中，可以使用 If ElseIf Else结构，对同一个变量进行多次判断，并且为每一个判断结果编写不同的代码块，达到执行式 n 选 1 的效果。
If ElseIf Else结构的基本语法如下：
If 条件表达式1 Then '表达式1真时，执行的代码ElseIf 条件表达式2 Then '表达式2真时，执行的代码ElseIf 条件表达式3 Then '表达式3真时，执行的代码 ...ElseIf 条件表达式n Then '表达式n真时，执行的代码Else '以上表达式都不为真时，执行的代码End If这种选择结构需要注意的是：
- 条件表达式是从第一个开始判断。
- 判断过程中，只要有一个表达式结果为真，那么执行对应的代码块，然后退出选择结构，不再继续判断剩下的表达式。
- 当所有的表达式都不为真时，执行
Else后的代码块。
根据以上规律，我们写一下判断学生成绩评级的代码。思路是，拿学生成绩，分别于85、75、60分比较，在 D 列填写对应的评级。
Sub MyCode() Dim i As Integer For i = 2 To 10 If Cells(i, "B").Value >= 85 Then Cells(i, "D") = "优" ElseIf Cells(i, "B").Value >= 75 Then Cells(i, "D") = "良" ElseIf Cells(i, "B").Value >= 60 Then Cells(i, "D") = "及格" Else Cells(i, "D") = "不及格" End If Next iEnd Sub代码运行结果如下：
Select Case 结构
Select Case结构是对同一个变量进行多次判断的另一种方式。相对于If ElseIf Else结构，它把条件表达式中的变量提取出来，使得代码结构更简洁，也更易于阅读。
Select Case结构的基本语法如下：
Select Case 变量Case 判断条件 1 '条件 1 真时，执行的代码Case 判断条件 2 '条件 2 真时，执行的代码Case 判断条件 3 '条件 3 真时，执行的代码 Case Else '之前的所有条件都不为真时，执行的代码End Select可以看到，Select Case结构把 If结构中的条件表达式拆分了，即把变量和判断条件分开了。
我们看前一个例子，使用Select Case结构，代码如下：
Sub MyCode() Dim i As Integer For i = 2 To 10 Select Case Cells(i, "B").Value Case Is >= 85 Cells(i, "D") = "优" Case Is >= 75 Cells(i, "D") = "良" Case Is >= 60 Cells(i, "D") = "及格" Case Else Cells(i, "D") = "不及格" End Select Next iEnd Sub这一例子中，学生成绩是变量，即 Cells(i, "B").Value，判断条件是每个 Case 语句后的条件。
代码运行结构如下：
总结
以上就是选择结构的基本用法，以及 4 种选择结构。选择结构的核心是判断条件表达式的真假，从另一个角度看，核心是如何写条件表达式。这一步写好了，下一步就是根据判断结果执行不同的代码块。