在VBA上创建UserForm

Question

我正在遵循在此网站http://www.excel-easy.com/vba/userform.html上创建userform的确切步骤.我遵循了所有步骤,但我无法使其发挥作用.

请参阅图像以查找错误.

当我粘贴这段代码.

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到代码模块的顶部通常可以让您尽早捕获此类错误.