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 

website最初を参照してください必要があります。

Answer 1

コントロールの1つに名前が正しく付けられていません。コードモジュールの先頭にOption Explicitを追加すると、通常、この種のエラーを早期にキャッチできます。

Answer 2

どちらかと思われる：

• あなたはDinnerPlannerUserFormにUserForm1での名前を変更、または
• なかったあなたが持っているあなたの初期化コードに記載されているコントロールのいずれか、または
• の名前を変更しませんでした
  Set MyDinnerPlanner = New DinnerPlannerUserForm
  （オブジェクトを参照する変数はNullと表示されていますが、Set〜Newインスタンスにする必要があります。それらを使用してください。

「オブジェクトが必要です」というエラーダイアログボックスの「デバッグ」コマンドボタンをクリックすると、VBA IDEがコード行に移動します。そのコード行にはおそらく、
<ObjectInstanceName>.<MethodName>(<parameters>)または
<ObjectInstanceName>.<PropertyName> = <Value>という形式の文があります。
VBAが<ObjectInstanceName>または<ObjectInstanceName> Is Nullを認識しないことを示す「オブジェクトが必要です」というエラーが表示されます。