如何在 Excel VBA 中使用 switch 语句？

我们可以使用Select case而不是在 Excel VBA 中使用多个 if then 语句。在下面的示例中，用户将在“Cell C5”中输入学生标记作为输入。宏读取 C5 单元格值并在“单元格 D5”中填写等级。

年级：

• <35 - 失败
• 35-60 - C级
• 60-80 - 乙级
• >=80 – 甲级

VBA 代码读取单元格 C5 值，使用选择案例语句（应用标准）并填写学生的成绩。

声明变量：

Variable	Data Type	Comments
mark	Integer	read cell C5 Value
result	String	write in cell D5

'variable declaration
Dim mark As Integer, result As String

初始化变量

'initialize variable
mark = Range("C5").Value

选择案例... – 检查标记变量并为变量结果分配相应的等级

'select case statement to check mark and execute case statement
Select Case mark
    Case Is >= 80
        result = "Grade A"
    Case Is >= 60
        result = "Grade B"
    Case Is >= 35
        result = "Grade C"
    Case Else
        result = "FAIL"
End Select

将成绩写入单元格 D5

Range("D5").Value = result

第 1 步：只需创建一个如下所示的模板

第 2 步：添加形状“更新成绩”

第 3 步：右键单击“更新成绩”和“分配宏..”

第 4 步：选择“ updateGrade ”，您可以在工作簿中看到可用宏的列表

第 5 步：将您的 excel 文件另存为“ Excel 启用宏的工作簿” *.xlsm

第 6 步：单击“更新成绩”以执行 VBA 代码并在单元格 D5 中查看输出

输出：