将案例参数传递给子-VBA

Question

我正在使用 VBA 自动执行工作中的某些 Excel 任务，但遇到了以下问题：

我尝试创建一个包含多个 Case 的 Sub，并以 Case 作为参数进行调用，但不起作用。它总是选择第一个案例。有人能指出我做错了什么吗？

例子：

主要子目录：

Public Sub Test()

Call CaseTest(Case2)

End Sub

“称为 Sub”：

Public Sub CaseTest(CaseSelect)

Select Case CaseSelect

Case Case1

MsgBox "Case1"

Case Case2

MsgBox "Case2"

End Select
End Sub

Answer 1

当针对字符串测试 Case 时，Case 语句需要引号以及参数。

例如：

主要子目录：

Public Sub Test()

Call CaseTest("Case2") ' Note the ""

End Sub

“称为 Sub”：

Public Sub CaseTest(CaseSelect)

Select Case CaseSelect

Case "Case1"

MsgBox "Case1"

Case "Case2" ' Note the ""

MsgBox "Case2"

End Select
End Sub