UserFormbutton点击后不会popup

我为工作表创build了两个新的用户表单。 我做了他们之后,我添加了两个button到Excel页面。 然后我build立了一个模块并放入

Sub Button4_Click() Missing.Show End Sub 

现在,我将macros指定给button,当我点击button,我得到一个“对象所需”的错误。 为什么是这样的,如果上述操作不起作用,我能做些什么来实际打开usr表单?

那么,我终于明白了这个问题。 它实际上与button本身无关。 Missing.Show工作得很好。 这实际上是一个表单初始化的问题; 在某些时候,我改变了初始化

 Private Sub Missing_Initialize() TextBox.Value = "" End Sub 

当我真的应该离开它的时候

 Private Sub UserForm2_Initialize() TextBox.Value = "" End Sub 

所以,显然,即使错误总是把我带到button代码,实际上是窗体的初始化导致大惊小怪。 希望这可以帮助其他有类似问题的人。

怎么样:

 Private Sub Missing_Click() Load Missing Missing.Show End Sub 

由于您在表单的(类)模块之外,VBA不知道“Missing”是指什么。 你必须先实例化它。

 Dim frm As Missing Set frm = New Missing Missing.Show 

如果我可以补充说,这不关我的事,但“Missing.Show”可能会令人困惑。 我会避免使用看起来像关键字的variables。