多列组合框和列表框的设置.docVIP

多列组合框和列表框的设置 技巧1 多列组合框和列表框的设置 1-1 多列组合框和列表框添加列表项 如果组合框和列表框是多列的话，除了使用错误！未找到引用源。的方法外，还需要设置控件的其他属性，如下面的代码所示。 #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 代码解析： 在窗体初始化时为多列列表框添加列表项。 第4行代码，设置列表框显示的列数。ColumnCount 属性指定列表框或组合框的显示列数，语法如下： object.ColumnCount [= Long] 参数object 是必需的，一个有效的对象。