Question

在VBA中为excel 2010工作。这是我第一次使用VBA和用户表单。现在我有一个准系统userform＆＃34; UserForm1＆＃34;试图解决这个问题。它由两个单选按钮和＃34; OptionButton1＆＃34;和＆＃34; OptionButton2＆＃34;属于GroupName＆＃34; WK＆＃34;和两个文本框＆＃34; TextBox1＆＃34;和＆＃34; TextBox2＆＃34;。

当我运行用户表单时，我想要＆＃34; OptionButton1＆＃34;要被选中以及后续的if / then语句要运行。但是，现在我无法做到这一点。我的代码：

Public Sub UserForm1_Initialize()
UserForm1.Show
Me.OptionButton1.Value = False
Me.OptionButton1.Value = True
MsgBox ("dia locked")
Me.TextBox1.Value = "blah"
End Sub

Public Sub UserForm1_Activate()

End Sub

Public Sub OptionButton1_Click()

If Me.OptionButton1.Value = True Then
MsgBox ("dia locked")
Me.TextBox1.Value = "blah"
End If

End Sub

Private Sub TextBox1_Change()

End Sub

当我运行表单时，没有任何反应，＆＃34; OptionButton1＆＃34;是假的。如果单击它，将显示消息框，文本框将显示文本。它只是在启动时没有做到。我尝试进入选项按钮属性并设置＆＃39; value＆＃39;为true，这在启动时确实如此，但消息框仍然无法显示，文本框为空白，直到我点击它。

...请帮忙。谢谢。

Answer 1

我明白了。

我突然发现了下拉菜单。显然我应该放置Userform_Initialize（）而不是UserForm1_Initialize（），而不是OptionButton1_Click（）我将代码放入OptionButton1_Change（），后者运行后续的初始化序列。

你们/ gals很棒。我从阅读你的线程中学到了一切。谢谢！

使用预设值初始化用户表单？

1 个答案: