用VBA向列表框(ComboBox或ListBox)中填加數(shù)據(jù)

1、用 VBA 向列表框（ComboBox 或 ListBox）中填加數(shù)據(jù)圖1AB 1類別Z食品諛）3日用品W 3類）4文化用品淡衛(wèi)6fww.o kexceL7如圖1所示的下拉列表框（組合框），圖2為其數(shù)據(jù)源，圖2所有在工作表表名為：設(shè)置表無論哪種方法我們都首先要知道最后這個(gè)數(shù)據(jù)所在的行數(shù)。如圖2的第4行。復(fù)制內(nèi)容到剪貼板代碼:表示行數(shù)時(shí)，應(yīng)該習(xí)慣設(shè)成長整型Dim I As Longl = Sheets(”向列表框中填加數(shù)據(jù)的方法很多，下面根據(jù)實(shí)例介紹3種最常用到的方法:設(shè)置表）.Range（A65536）.End（xlUp）.Row上述代碼請(qǐng)參見 用VBA得到EXCEL表格中的行數(shù)和列數(shù) 方法一

2、：循環(huán)Additem復(fù)制內(nèi)容到剪貼板代碼：Sub OkExcel01().c nDim l As Long 表示行數(shù)時(shí)，應(yīng)該習(xí)慣設(shè)成長整型Dim i As LongDim ws As WorksheetSet ws = Worksheets(”設(shè)置表)l = ws.Ra nge(A65536).E nd(xlUp).RowFori = 2 TolComboBox1.Addltem (ws.Cells(i, 1)NextEnd Sub這種方法常應(yīng)用在：(1)將數(shù)組加到列表中；(2)不連續(xù)的區(qū)域；(3)從數(shù)據(jù)庫中讀出的數(shù)據(jù)方法二：設(shè)置數(shù)據(jù)源區(qū)域復(fù)制內(nèi)容到剪貼板代碼:Sub OkExcel02().

3、c nDim l As LongDim ws As Worksheetl = ws.Ra nge(A65536).E nd(xlUp).RowSet ws = Worksheets(設(shè)置表)ComboBox1.List = ws.Range(A2:A & l).ValueEnd Sub這種方法常應(yīng)用在連續(xù)的區(qū)域，如果源區(qū)域的數(shù)據(jù)固定（如民族）可以省算I的步驟。方法三：名稱定義法: 首先定義名稱：（菜單：插入/名稱/定義）B | CLB | FG亠糞別-I_r _a i r _r _r員品（漢3目用品C E姿）圖3如圖3所示，定義名稱當(dāng)數(shù)據(jù)源中的數(shù)據(jù)有增減變化時(shí)執(zhí)行如下過程:復(fù)制內(nèi)容到剪貼板代碼:Sub OkExcel03_1().c nDim I As LongDim ws As WorksheetSet ws = Worksheets(”設(shè)置表)l = ws.Ra nge(A65536).E nd(xlUp).RowThisWorkbook.Names(”類別”).RefersTo =設(shè)置表！$A$2:$A$ & IEnd Sub填寫數(shù)據(jù)時(shí)執(zhí)行職下過程：復(fù)制內(nèi)容到剪貼板代碼:1.234gion1Z131?Sub OkExcel03_2().c nComboBoxl.List = ThisWorkbook.Names(”類別”).Refe