【发布时间】:2015-07-11 00:44:34
【问题描述】:
我正在尝试执行此站点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
【问题讨论】:
-
尝试添加
UserForm- 在 Visual Basic 编辑器中单击插入用户窗体按钮(或转到插入 > 用户窗体) -
在我的例子中,调试器突出显示了 UserForm.Show 行,但问题出在 Userform_Initialize() 过程中。我有一行代码与我未能声明对象的用户窗体无关。 VBA 调试器的限制可能会导致您无法搜索错误。