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

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

2024-11-11 00:35:58

推荐回答（1个）

回答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