在VBA上创建用户窗体

Question

我正在按照该网站http://www.excel-easy.com/vba/userform.html上创建用户表单的确切步骤进行操作。 我遵循了所有步骤，但是无法正常工作。

请查看错误图片。

当我粘贴此代码时。

Private Sub UserForm_Initialize()

'Empty NameTextBox
 NameTextBox.Value = ""

 'Empty PhoneTextBox
 PhoneTextBox.Value = ""

'Empty CityListBox
CityListBox.Clear

'Fill CityListBox
With CityListBox
.AddItem "San Francisco"
.AddItem "Oakland"
.AddItem "Richmond"
End With

'Empty DinnerComboBox
DinnerComboBox.Clear

'Fill DinnerComboBox
With DinnerComboBox
.AddItem "Italian"
.AddItem "Chinese"
.AddItem "Frites and Meat"
End With

 'Uncheck DataCheckBoxes
DateCheckBox1.Value = False
DateCheckBox2.Value = False
DateCheckBox3.Value = False

'Set no car as default
CarOptionButton2.Value = True

'Empty MoneyTextBox
MoneyTextBox.Value = ""

'Set Focus on NameTextBox
 NameTextBox.SetFocus
 End Sub

该代码将有错误

Private Sub CommandButton1_Click()

DinnerPlannerUserForm.Show

End Sub

请先访问该网站 。

Answer 1

您的控件之一名称不正确。 通常，将Option Explicit添加到代码模块的顶部可以使您尽早捕获此类错误。

Answer 2

似乎是：

• 您没有将UserForm1重命名为DinnerPlannerUserForm，或者
• 您没有重命名初始化代码中提到的控件之一，或者
• 你从来没有像
  Set MyDinnerPlanner = New DinnerPlannerUserForm
  （引用对象的变量以Null开头；在使用它们之前，必须先将它们Set为New实例。）

如果单击“对象必需”错误对话框的“调试”命令按钮，则VBA IDE会将您带到一行代码。 该行代码可能具有以下形式的语句
<ObjectInstanceName>.<MethodName>(<parameters>)或
<ObjectInstanceName>.<PropertyName> = <Value>
“需要对象”错误告诉您VBA无法识别<ObjectInstanceName>或<ObjectInstanceName> Is Null 。