如何使用VBA对窗体ListBox控件的多列列表框的数据进行添加与删除

思路如下：

1、Listbox本身并不带有删除和添加的功能，需要额外写代码

2、对于删除Listbox中的元素可以利用 AddItem（）、RemoveItem（）方法

3、如果是通过点击listbox 删除表中的元素。这需要给listbox添加事件。在事件中添加代码删除表格中的数据。

怎么设置内容不多时，显示右边的垂直条（它要多了才出现）？

答：这个控件是自动匹配文字，文字多的时候自动会有下拉列表。

怎么设置选中内容后，改变选着中内容的颜色和背景？

答：

方法1 。可以通过js 对 循环该控件将选中的行进行背景颜色设置

function chanegBlackGroud() {

var select = document.getElementById("listbox1")

for (var i = 0i <select.options.lengthi++) {

select.options[i].style.background = "White"//去除背景色

if (i == select.selectedIndex) {

select.options[i].style.background = "#FFF000"//设置背景色

}

}

}

方法2 。

如果是服务器控件还可以，通过控件的SelectedIndexChanged 方法对当前选中的项设置背景颜色

protected void ListBox1_SelectedIndexChanged(object sender, EventArgs e)

{

for (int i = 0i <ListBox1.Items.Counti++)

{

ListBox1.Items[i].Attributes.Remove("background-color")//去除背景色

}

this.ListBox1.SelectedItem.Attributes.CssStyle.Add("background-color", "Green")//设置背景色

}

以上回答,采用实际代码编程 *** 作后手工写的，希望可以解决楼主的问题。

是用VBA吗，可以先baA列的内容放到数组里，然后调用就可以了

Dim i As Integer

Dim max As Long

Dim a() As String

max = 20

ReDim a(max) As String

For i = 2 To 20

a(i) = Range("B" &i).Value

Next

ListBox1.items.Add (a(i))

---