EXCEL VBA 如何修改、删除窗体控件列表框中选中的记录以及在选中处插入一行记录。

Question

EXCEL VBA 如何修改、删除窗体控件列表框中选中的记录以及在选中处插入一行记录。ADDITEM和REMOVE可以顺序添加和删除，就是不知道怎样修改、删除选中记录以及在选中处插入一行。
请高手帮忙，仅有5分，全部奉上。

Answer 1

Private Sub CommandButton1_Click()
Dim x
For x = 1 To 2
ListBox1.AddItem x
Next x

End Sub

Private Sub CommandButton2_Click()
Dim Y
For Y = 0 To 1
If ListBox1.Selected(Y) = True Then ' '判断是否选中

'ListBox1.RemoveItem (Y) '判断是否选中，如果是就移出它
'ListBox1.List(Y) = "" '这句相当于在删出的地方增加了一行；
ListBox1.AddItem "123", Y  '选中的地方加一行，输入值为123.

End If
Next Y


End Sub

1、删除选中记录可以用Selected语句判断；

2、选中处插入一行可以用  ListBox1.AddItem "123", Y

追问

可能是遇到控件事件的循环触发
用application.enableevents暂时关闭没用，应该怎么办？

追答

application.enableevents  这个是暂时停止事件吧。

application.enableevents=false
application.enableevents=true

你想做什么操作？参数带了没有？这个追击好像与你上次问的问题没有关系呢。你把代码写出来看下呢。

追问

快成功了，确实是循环触发窗体事件的问题，用enableevents不管用的，那只对工作表事件起作用，设置一个公共布尔值，在会循环触发的地方用IF判断执行，在触发点先FALSE后TRUE，就解决了，但还是有个问题你上面给我提供的办法只是单列的，提供个多列的看看，那就彻底解决我的问题了,真是太麻烦你了，只是我分太少。