列表框AddItem错误

我有问题获得一个列表框在VBA中工作。 我不知道我错过了什么步骤。 我创build了一个名为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