- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
多列组合框和列表框的设置
多列组合框和列表框添加列表项
如果组合框和列表框是多列的话,除了使用技巧109 的方法外,还需要设置控件的其他属性,如下面的代码所示。
#001 Private Sub UserForm_Initialize()
#002 Dim iRow As Integer
#003 Dim Arr As Variant
#004 iRow = Sheet1.Range(A65536).End(xlUp).Row
#005 Arr = Sheet1.Range(A1:G iRow)
#006 With Me.ListBox1
#007 .ColumnCount = 7
#008 .ColumnWidths = 45,45,45,45,45,30,45
#009 .BoundColumn = 1
#010 .Column = Application.WorksheetFunction.Transpose(Arr)
#011 End With
#012 End Sub
代码解析:
在窗体初始化时为多列列表框显示的列数ColumnCount 属性指定列表框或组合框的显示列数object.ColumnCount [= Long]
参数object是必需一个有效对象。Long是可选的,指定需显示的列数。ColumnCount设为 -1,将显示所有列。各列的宽度ColumnWidths 属性指定多列的组合框或列表框中的各列的宽度object.ColumnWidths [= String]
参数object是必需一个有效对象。String是可选的,以磅为单位设置列的宽度。如ColumnWidths 属性设为 -1 或空,则将控件宽度等分,给予列表中的各列。设为 0 则隐藏该列大于 0 的数值则是该列的精确宽度值。若要指定另一种不同的度量单位,必须包括该度量单位多列列表框中数据的来源。BoundColumn 属性标识多列组合框或列表框中的数据的来源object.BoundColumn [= Variant]
参数object是必需一个有效对象。Variant是可选的,标识选择 BoundColumn 属性值的方法设置值如1131所示:值说明将 ListIndex 属性的值赋予控件。1 或者大于 1将指定列中的值赋予控件。当采用此属性时,列从 1 开始计数(默认值)。1131 Variant 的设置值当选择了多列列表框的一行时,BoundColumn 属性标识出将该行的哪一条目作为控件的值存储。BoundColumn属性设为 0,将所选行的行号赋予控件,作为控件的值。BoundColumn属性设为1 或者大于 1指定列中的值赋予控件。多列列表框列表的来源。列表来源技巧109 所介绍的方法外,还可以使用Column属性指定列表框中的一个或多个条目Column属性语法如下:
object.Column( column, row ) [= Variant]
参数object是必需的,一个有效对象column是可选的,取值范围为0到总列数减1之间的数值row是可选的,取值范围为0到总行数减1之间的数值Variant是可选的,指定欲加载到列表框的一个值、一列值或一个二维数组。注意?? 当从一个二维数组中复制数据时,Column属性将转置控件中数组的内容加载Transpose函数对数组图 1131所示。
图 1131 多列列表框
文档评论(0)