如何将任意的连续单元格区域的值添加到用户窗体中的列表框控件中？

作者：绿色风分类：时间：2022-08-17 浏览：101

楼主水星钓鱼	Q：用户窗体中的列表框控件与VB 6.0中的列表框控件有很多区别，如何将任意的连续单元格区域的值添加到用户窗体中的列表框控件中？ A：主要利用列表框的ColumnCount和RowSource属性，其中ColumnCount属性设置列表框中显示的列数，RowSource属性设置列表框的数据源，可以是单元格区域。步骤如下: Alt+F11→工程资源管理器→右键插入用户窗体→添加一个ListBox1控件→输入如下的UserForm_Initialize事件代码，运行。 Private Sub UserForm_Initialize() '当用户未选择单元格区域时结束运行 On Error GoTo 1 '定义一个Range对象用来接收选择的区域 Dim rng As Range '定义一个long型变量用来设置列表框的列数 Dim colnum As Long Set rng = Application.InputBox(Prompt:="请选择单元格区域", Title:="例子", Type:=8) With ListBox1 .ColumnCount = rng.Columns.Count .RowSource = rng.Address End With Exit Sub 1: End End Sub
2楼 xmyjk	谢谢水星分享。
3楼纵鹤擒龙水中月	学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表