运行时错误 424 Object Required UserForm 不存在

Question

我正在尝试执行本网站www.excel-easy.com上写的内容，但是当我commandbutton按照网站指示单击工作表中的（来自 ActiveX 控件）时，没有任何反应。我尝试使用表单控件中的按钮，但它说错误在此 ---> DinnerPlannerUserForm.Show

我的代码：

Sub Button2_Click()
    DinnerPlannerUserForm.Show
End Sub

---

当我使用 F8 时，它说错误在这里 --> Private Sub UserForm_Initialize()

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

Answer 1

This error can also occur when you remove or delete a textbox from your form, but forget to remove it from a line in initialization for eg:

Private Sub UserForm_Initialize()
    CommandButton2.Enabled = False
    TextBox4.Enabled = False    'textbox deleted from form
End sub

Answer 2

根据你所说的很难判断。但是 - 您所说的使用 F8 表明错误所在的事实表明Private Sub UserForm_Initialize()用户窗体存在并且 VBA 知道如何找到它（否则当您单击窗体按钮时它的初始化事件不会触发）。因此——它是初始化子中的行之一，它是罪魁祸首。具体标记了哪一行？我猜测其中一个控件（例如，DinnerComboBox）名称中的一个简单拼写错误就是问题所在。