请教,Excel VBA中列表框使用问题。谢谢!
发布网友
发布时间：2022-06-10 02:05
共1个回答
热心网友
时间：2024-12-12 02:42
Private Sub ListBox1_Change()
Dim Mydata()
AA = ListBox1.ListCount - 1
ReDim Mydata(AA, 1)
Mydata = ListBox1.List()
ListBox2.List() = Mydata
For i = ListBox1.ListCount - 1 To 0 Step -1
If Not ListBox1.Selected(i) Then ListBox2.RemoveItem i
Next
End Sub追问谢谢您了。
经使用存在两个问题，请继续指教下。
1）只能将左侧的一个拷贝到右侧，即在选择第二个时，刚才的那个消失了；
2）左侧没有删除，也就是没有移动，而是拷贝了。
追答refrush啊
