userform.show problems

Question

我正在制作一个word文档，以便在单击按钮时填写表格。到目前为止，我已经制作了一个名为"NewSite"的基本表单，然后我制作了一种按钮，点击以打开代码为的表单

Private Sub NewSite_Click()
NewSiteUserForm.Show
End Sub

然后弹出错误"Object Required">

任何帮助都将不胜感激！

编辑**

我想明白了。。。

为了便于使用，我将表单的名称设置回其原始名称"UserForm1"。代码：

Private Sub NewSite_Click()
Dim Form As Object
Set Form = UserForm1
Form.Show
End Sub

去上班。

Answer 1

如果将其命名为NewSite，则必须将变量声明为该类型的对象并初始化它

Private Sub NewSite_Click()
Dim NewSiteUserForm As NewSite
Set NewSiteUserForm = New NewSite
NewSiteUserForm.Show
End Sub