Listbox AddItemエラー

Question

VBAで動作するリストボックスを取得する際に問題が発生しています。私は何が足りないのか分かりません。 ListBox1というリストボックスを作成しました。

次のように私はプログラムを書いた：

Sub ListBox1_Change() 
    Dim ListBox As Object 

    With Listbox1 
     .AddItem = "Yes" 
     .AddItem = "No" 
    End With 
End Sub 

プログラムは.AddItem = "No"行で失敗します。私はObject Variable or With Block Variable not setエラーが発生します。

Answer 1

なぜ変更イベントで同じリストボックスにアイテムを追加しているのかわかりません。ただし、コードに構文エラーがあります。リストボックスに項目を追加すると、=はありません。これを見てください。

With Listbox1 
    .AddItem "Yes" 
    .AddItem "No" 
End With 

Dim ListBox as Objectも削除してください。あなたはそれを必要としません。

あなたが別のリストボックスに追加することを計画しているなら、私はあなたが実際のリストボックスオブジェクトに、あなたのリストボックス変数を設定することはありません。この

Sub ListBox1_Change() 
    With ListBox2 '<~~ Replace this with the other listbox name 
     .AddItem "Yes" 
     .AddItem "No" 
    End With 
End Sub