VBA Select Case

VBA Select Case 语句用于代替多个嵌套的 If 语句。 VBA Select Case 使 VBA 程序更易于理解，并且执行速度更快。

VBA Select Case 语句在许多其他语言中也被称为 Switch Case，例如 Java、C++、C# 和 JavaScript。 它检查变量的不同值。 如果任何 case 为真，它将仅执行该 case 并避免其他 case。

Select Case 语句是 If Else If 语句的替代方案。 它是从值列表中选择值的另一种方式。

语法

VBA Select Case 语句遵循以下语法

说明

• test_expression: 它是一个字符串或数值，用于与条件列表进行比较。
• condition_1 到 condition_n: 这些是按列出的顺序评估的条件。 如果条件为真，它将执行相应的代码，并且不会执行代码的进一步条件。
• Result_1 到 result_n: 当条件为真时执行的代码。
• Case Else: 如果没有任何条件被满足，则在代码中将执行 else 语句。

示例

以下是一些示例，可帮助理解 Select Case 语句的执行。

示例 1： 我们将借助 Select Case 语句找到一个条件，其中 x = y。

如果条件为真，则将执行代码的 "Case True" 块。 否则，将执行代码的 "Case False" 块。

在上面的例子中，我们使用了 InputBox 函数从用户那里获取值。

现在执行代码并输入 X 和 Y 的值。

Case 1： 如果用户输入 X 和 Y 的不同值。

现在按 OK 按钮并输入 Y 的值。

您可以看到 X 和 Y 的值是不同的。 单击 OK 按钮后，它将给出以下输出。

Case 2： 如果 X 和 Y 的值相等。

输入 X 的值。

现在单击 OK 按钮，然后为 Y 输入相同的值。

再次单击 OK 按钮，它将给出以下输出。

示例 2： 我们要检查用户输入的数字是小于、大于还是等于 50。

在这里，我们使用带有 Case 语句的 IS 关键字来比较值。

现在执行代码并在 1 到 100 之间输入任何值。

单击 OK 按钮，它将给出以下输出。

示例 3： 在此示例中，我们借助 Select Case 语句在一个 case 中检查多个条件。

当用户输入 1 到 10 之间的任何数字时，此代码将检查该数字是偶数还是奇数。

我们使用 (" ") 在单个 Case 语句中比较多个条件。

使用 Run 按钮执行代码并输入任何数字，从 1 到 10 开始。

现在单击 OK 按钮，它将给出以下输出。