Question

我创建了一个包含多个选项的用户表单，现在我希望用户选择的选项显示在调用用户表单的按钮下方的标签中。I changed the caption in the text box under the button to resemble what should happen

但是我的选项不起作用。我应该将输出保存在全局变量中，然后再调用以更改标签，如果是的话，我该怎么做？还是可以只在用户表单中调用选择？

我试图运行的代码是调用消息框，然后更改文本框，该文本框实际上是一个名为“ labelpage”的标签

Private Sub CommandButton1_Click()

UserForm1.Show
If UserForm1.OptionButton1 = True Then LabelPage.Caption = "Company Restricted"
If UserForm1.OptionButton2 = True Then LabelPage.Caption = "Strictly Confidential"
If UserForm1.OptionButton2 = True Then LabelPage.Caption = "Public Information (does not need to be marked)"

End Sub

在用户表单代码中，每次单击按钮时我也要关闭它们以关闭它们。

Private Sub OptionButton1_Click()
    OptionButton1.Value = True
    Unload Me
End Sub

Private Sub OptionButton2_Click()
    OptionButton2.Value = True
    Unload Me
End Sub

Private Sub OptionButton3_Click()
    OptionButton3.Value = True
    Unload Me
End Sub

是语法上的一个小错误还是类似的错误，还是完全错误？预先感谢您的帮助。

Answer 1

问题在于您正在卸载UserForm，这意味着控件对您不可用。解决方案是只隐藏UserForm：

Private Sub OptionButton1_Click()
    Hide
End Sub

Private Sub OptionButton2_Click()
    Hide
End Sub

Private Sub OptionButton3_Click()
    Hide
End Sub

VBA多选项对话框输出

1 个答案: