如何在 vba 中编写 case 语句（附示例）

case 语句是一种循环条件并在满足第一个条件时返回值的语句类型。

您可以使用以下基本语法在 VBA 中编写 case 语句：

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

此特定示例查看B2:B9范围内的每个单元格，并返回C2:C9范围内的以下值：

• 如果 B 列中的值大于或等于 30，则“优秀”。
• 否则，如果 B 列中的值大于或等于 20，则为“好”。
• 否则，如果 B 列中的值大于或等于 15，则“确定”。
• 否则，如果上述条件均不满足，则为“坏”。

以下示例展示了如何在实践中使用此语法。

示例：用 VBA 编写 Case 语句

假设我们在 Excel 中有以下数据集，显示不同篮球运动员的得分：

假设我们要编写一个案例语句，根据得分为每个玩家分配“优秀”、“良好”、“良好”或“差”值。

我们可以创建以下宏来执行此操作：

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

C 列根据 B 列中的相应值返回“优秀”、“良好”、“良好”或“差”值。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何对值列表进行分类
VBA：如何计算范围内的唯一值
VBA：如何计算范围内的行数