VBA选择案例

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

VBA Select Case语句在许多其他语言(例如JavaScript )中也称为Switch Case。它检查变量的不同值。如果有任何一种情况属实，则它将仅执行该情况，并避免其他情况。

Select Case语句是If Else If语句的替代方法。这是从值列表中选择一个值的另一种方法。

句法

VBA Select Case语句遵循以下语法：

Select Case test_expression
Case condition_1 
Result_1
Case condition_2
Result_2 
.....
.....
Case condition_n
Result_n
Case Else 
Result_else
End Select 

说明

• test_expression：与条件列表进行比较的字符串或数字值。
• condition_1到condition_n：这些是按列出的顺序评估的条件。如果条件为真，它将执行相应的代码，而不执行代码的其他条件。
• Result_1到result_n：条件为true时执行的代码。
• 其他情况：如果不满足精确条件，则else语句将在代码中执行。

例子

以下示例有助于理解Select Case语句的执行情况。

示例1：我们将在Select Case语句的帮助下找到x = y的条件。

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

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

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

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

现在按确定按钮，然后输入Y的值。

您可以看到X和Y的值都不同。单击确定按钮后，将提供以下输出。

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

输入X的值。

现在单击确定按钮，并为Y输入相同的值。

再次单击确定按钮，它将提供以下输出。

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

在这里，我们将IS关键字与Case语句一起使用以比较值。

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

单击确定按钮，它将提供以下输出。

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

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

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

使用“运行”按钮执行代码，然后输入从1到10的任意数字。

现在单击“确定”按钮，将显示以下输出。