VBA：将函数参数限制为仅选定的值？

Question

是否可以定义一个 VBA 函数，使其只接受特定的预定义值作为参数值？例如，如果我创建这样的函数：

Function Test(vTxt as Boolean)
    Msgbox vText
End Function

并从任何其他 Sub 调用它，我必须为 vTxt 提供 True 或 False，它不会接受任何其他值。例如，我可以将Test 称为：

Sub Example ()
    Call Test(True)
End Sub

这样，我可以在函数中设置其他参数，以便调用者只能从预先确定的选项中进行选择吗？例如：

Function Test2(vTxt as <something>)
    Msgbox vText
End Function 

并且在调用Test2时，调用者必须为变量vTxt指定选项1、选项2或选项3。我不想创建多个可选参数，而只想创建一个具有多个预定值的参数。 <something> 有什么用？

Answer 1

我认为您希望为用户提供有限数量的参数选择。 Enum types 是一种方法。在模块的开头，创建你的类型：

Public Enum TestChoices
    Option1
    Option2
    Option3
End Enum

然后，在您的函数中，采用TestChoices 参数：

Sub Test(vMsg as TestChoices)
    Dim message as String
    Select Case vMsg
        Case Option1: message="option 1 selected"
        Case Option2: message="option 2 selected"
        Case Option3: message="option 3 selected"
    End Select
    MsgBox message
End Sub

另请参阅MSDN docs for enums。