多列列表框写入工作表

1、1-1多列列表框写入工作表在把多列列表框的写入工作表中时，只能把BoundColumn属性所指定列中的值写入工作表中，不能把选中的整行内容写入到工作表中。如果需要把多列列表框中选中行的整行内容写入工作表中，可以使用循环语句将列表框各列的写入工作表，如下面的代码所示。# 001 Private Sub UserForm_Initialize()# 002 Dim iRow As Integer#003 iRow = Sheet2.Range("A65536").End(xlUp).Row# 004With Me.ListBox1# 005.ColumnCount = 7#00

2、6.ColumnWidths = "45,45,45,45,45,30,45"# 007.BoundColumn = 1# 008.ColumnHeads = True# 009.RowSource = Sheet2.Range("A2:G"&iRow).Address(External:=True)# 010 End With# 011 End Sub# 012 Private Sub ListBox1_Click()# 013Dim iRow As Integer# 014Dim i As Byte#015 iRow = Sheet1.Ran

3、ge("A65536").End(xlUp).Row + 1# 016 For i = 1 To ListBox1.ColumnCount# 017 Sheet1.Cells(iRow, i) = ListBox1.Column(i -1)# 018 Next# 019 End Sub代码解析：第1行到第11行代码窗体的Initialize事件过程，在窗体初始化时为多列列表框添加列 表项，请参阅技巧 错误！未找到引用源。第8行代码，设置多列列表框中的第一行为列标题行。ColumnHeads 属性显示列表框、组合框及接受列题注的对象中的列标题行，语法如下：object.Col

4、umnHeads = Boolean参数object是必需的，一个有效的对象。参数Boolean是可选的，指定是否显示列标题。将ColumnHeads 属性设置为 True ,多列列表框的第一行显示为列标题，默认值为 False ,不显示列标题。需要注意的是，当数据项中的第一行作为列标题时，则不可选中该行。第9行代码，使用 RowSource属性设置多列列表框中列表的来源。关于 RowSource 属性请参阅技巧 错误！未找到引用源。注意如果已将多列列表框中列表项来源的第一行设置为列标题，在设置RowSource属性时应从列表项来源的第二行开始设置。第12行到第19行代码列表框的 Click事

5、件，单击多列列表框时把选中行的整行内容写 入工作表中。其中第 17行代码，使用循环语句将多列列表框选中行的各列的值写入工作表 对应的单元格中。关于 Column属性请参阅技巧 错误！未找到引用源。，在本例中没有指定 row参数，所以是把当前选中行的内容写入工作表。运行窗体后，单击列表框将选中的整行内容写入工作表中，如图 错误！文档中没有指 定样式的文字。-1所示。A1人员编号20B0043 080054BCDEF _G_1230.00740. 00256. 0070. 0060. 002356. 00935.00S60.00145 00 |60.00164. 002063,00技能工资岗位工资

6、工龄工资浮动工资具祗应发合计8TW1112131415161718典815. 001010.00Tz.oa60.0069 00ZK6. 0080021415 00800.003L2.00B0. 0064 002&71. 0008003U95.00做00240。70.0064.002429. 008004935.00860.00144.0060. CO64.002063. 00唧051230.00740.00255.0070.0060.002然.000600&1230.00620.00251 ao70.00ST 002233. 0008007995. 00&20.00144. aoea. oaST 001ST6 0006003T40. 00BZO. 00S5.0050.005T,001963. DOl 一80091060.00520.00208.0070.005S,001944.00080111160.00520 00208 0070.0056.002014 0080121090 00520.00192.0070.0056.001928 00080131055.00520.00134,0070.0056.。1385.008014565. 00520.0033.005