上傳人：y***

認(rèn)證信息

認(rèn)證類型：個(gè)人認(rèn)證

認(rèn)證主體：于**（實(shí)名認(rèn)證）

IP屬地：天津

IP屬地：天津 上傳時(shí)間：2021-12-19 格式：DOCX 頁(yè)數(shù)：3 大?。?6.42KB 積分：15 舉報(bào) 版權(quán)申訴

1、1-1多列列表框?qū)懭牍ぷ鞅碓诎讯嗔辛斜砜虻膶懭牍ぷ鞅碇袝r(shí)，只能把BoundColumn屬性所指定列中的值寫入工作表中，不能把選中的整行內(nèi)容寫入到工作表中。如果需要把多列列表框中選中行的整行內(nèi)容寫入工作表中，可以使用循環(huán)語(yǔ)句將列表框各列的寫入工作表，如下面的代碼所示。# 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事件過(guò)程，在窗體初始化時(shí)為多列列表框添加列 表項(xiàng)，請(qǐng)參閱技巧 錯(cuò)誤！未找到引用源。第8行代碼，設(shè)置多列列表框中的第一行為列標(biāo)題行。ColumnHeads 屬性顯示列表框、組合框及接受列題注的對(duì)象中的列標(biāo)題行，語(yǔ)法如下：object.Col

4、umnHeads = Boolean參數(shù)object是必需的，一個(gè)有效的對(duì)象。參數(shù)Boolean是可選的，指定是否顯示列標(biāo)題。將ColumnHeads 屬性設(shè)置為 True ,多列列表框的第一行顯示為列標(biāo)題，默認(rèn)值為 False ,不顯示列標(biāo)題。需要注意的是，當(dāng)數(shù)據(jù)項(xiàng)中的第一行作為列標(biāo)題時(shí)，則不可選中該行。第9行代碼，使用 RowSource屬性設(shè)置多列列表框中列表的來(lái)源。關(guān)于 RowSource 屬性請(qǐng)參閱技巧 錯(cuò)誤！未找到引用源。注意如果已將多列列表框中列表項(xiàng)來(lái)源的第一行設(shè)置為列標(biāo)題，在設(shè)置RowSource屬性時(shí)應(yīng)從列表項(xiàng)來(lái)源的第二行開始設(shè)置。第12行到第19行代碼列表框的 Click事

5、件，單擊多列列表框時(shí)把選中行的整行內(nèi)容寫 入工作表中。其中第 17行代碼，使用循環(huán)語(yǔ)句將多列列表框選中行的各列的值寫入工作表 對(duì)應(yīng)的單元格中。關(guān)于 Column屬性請(qǐng)參閱技巧 錯(cuò)誤！未找到引用源。，在本例中沒有指定 row參數(shù)，所以是把當(dāng)前選中行的內(nèi)容寫入工作表。運(yùn)行窗體后，單擊列表框?qū)⑦x中的整行內(nèi)容寫入工作表中，如圖 錯(cuò)誤！文檔中沒有指 定樣式的文字。-1所示。A1人員編號(hào)20B0043 080054BCDEF _G_1230.00740. 00256. 0070. 0060. 002356. 00935.00S60.00145 00 |60.00164. 002063,00技能工資崗位工資

6、工齡工資浮動(dòng)工資具祗應(yīng)發(fā)合計(jì)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