如何在 VBA 中传递不确定数量的布尔参数 ByRef

Question

我有一些用户表单选项，我想将它们的值设为 false，为此我需要一个 sub 可以接收不定数量的布尔参数并将它们全部设为 false。

我试过了：

Sub MakeFalse(ParamArray options())
For I = 0 To UBound(options)
    options(I) = False
Next
End Sub

然后这样称呼它：

MakeFalse OptionButton1.Value,OptionButton2.Value,OptionButton3.Value,OptionButton5.Value

它接收值，但它们在用户表单中没有改变

我也试过这个：

Sub MakeFalse(options() As Boolean)
For I = 0 To UBound(options)
    options(I) = False
Next
End Sub

然后通过这个来调用它：

b = Array(OptionButton1.Value,OptionButton2.Value,OptionButton3.Value,OptionButton5.Value)
MakeFalse b

但它给了我 TypeMismatch 错误。

Answer 1

下面的代码应该放在你的用户表单的代码表中，它应该是Private，因为它不会被另一个模块调用。

Private Sub MakeFalse(ParamArray Options())

    Dim i As Integer
    For i = 0 To UBound(Options)
        Me.Controls("OptionButton" & Options(i)).Value = False
    Next
End Sub

用这样的代码调用 sub：-

Private Sub TestMakeFalse()
    MakeFalse 1, 2, 3, 5
End Sub

请注意，您可能会自己传递控件，就像您尝试做的那样，但这看起来像很多多余的输入。按照我的建议，您可以通过给出控件的编号来组成控件的名称，并在获得名称后在 sub 中创建对象本身。