作者：绿色风
分类：
时间：2022-08-17
浏览：92
楼主
kevinchengcw |
Q: 如何制作一个列表框管理器？
A: 打开一个新的Excel文档，按Alt+F11进入VBA编辑器，插入窗体，向窗体上插入一个列表框和四个命令按钮，并更改相应Caption如下图所示：
双击任一命令按钮，在打开的编辑框内输入如下代码(注意代码与按钮名的对应关系)：- Private Sub CommandButton1_Click() '添加预设项目按钮对应命令
- With Worksheets("sheet1")
- For n = 1 To .Cells(Rows.Count, 1).End(3).Row '循环添加预设区域数据内容
- UserForm1.ListBox1.AddItem .Cells(n, 1).Value '数据添加语句
- Next n
- End With
- End Sub
- Private Sub CommandButton2_Click() '清空全部项目按钮对应命令
- ListBox1.Clear '列表框清空语句
- End Sub
- Private Sub CommandButton3_Click() '删除选定项目按钮对应命令
- With UserForm1.ListBox1
- For n = .ListCount - 1 To 0 Step -1 '循环数据项，因为是删除，为避免删错，要从后向前删除，这一点与操作单元格相同
- If .Selected(n) Then .RemoveItem n '判断当前项是否被选中，选中则删除
- Next n
- End With
- End Sub
- Private Sub CommandButton4_Click() '添加选定单元格按钮对应命令命令
- Dim Rng As Range
- For Each Rng In Selection '循环已选中单元格区域的每个单元格
- If Rng.Value <> "" Then UserForm1.ListBox1.AddItem Rng.Value '为避免添加空项，先判断是否为空再添加
- Next Rng
- End Sub
本例执行效果如下图：
附示例文件。
 窗体学习--在列表框中添加和删除数据.rar
|
2楼
xiongkehua2008 |
正在學習vba,這個下來先研究一下...
 |
3楼
mmt2200 |
感谢楼主分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一