用VBA向列表框(ComboBox或ListBox)中填加數(shù)據(jù)向列表框中填加數(shù)據(jù)的方法很多,下面根據(jù)實(shí)例介紹3種最常用到的方法:
圖1 圖2 如圖1所示的下拉列表框(組合框),圖2為其數(shù)據(jù)源,圖2所有在工作表表名為:設(shè)置表 無論哪種方法我們都首先要知道最后這個(gè)數(shù)據(jù)所在的行數(shù)。如圖2的第4行。 復(fù)制內(nèi)容到剪貼板
上述代碼請參見《用VBA得到EXCEL表格中的行數(shù)和列數(shù)》代碼: Dim l As Long '表示行數(shù)時(shí),應(yīng)該習(xí)慣設(shè)成長整型 方法一:循環(huán)Additem 復(fù)制內(nèi)容到剪貼板
這種方法常應(yīng)用在:(1)將數(shù)組加到列表中;(2)不連續(xù)的區(qū)域;(3)從數(shù)據(jù)庫中讀出的數(shù)據(jù)等等。代碼:Sub OkExcel01() 方法二:設(shè)置數(shù)據(jù)源區(qū)域 復(fù)制內(nèi)容到剪貼板
這種方法常應(yīng)用在連續(xù)的區(qū)域,如果源區(qū)域的數(shù)據(jù)固定(如民族)可以省算l的步驟。代碼:Sub OkExcel02() 方法三:名稱定義法: 首先定義名稱:(菜單:插入/名稱/定義) 圖3 如圖3所示,定義名稱 當(dāng)數(shù)據(jù)源中的數(shù)據(jù)有增減變化時(shí)執(zhí)行如下過程: 復(fù)制內(nèi)容到剪貼板
填寫數(shù)據(jù)時(shí)執(zhí)行職下過程:
代碼:Sub OkExcel03_1() 復(fù)制內(nèi)容到剪貼板
這種方法常應(yīng)用在連續(xù)的區(qū)域,并且一個(gè)數(shù)據(jù)源應(yīng)用于多個(gè)列表框,如在不同的窗體中。代碼:Sub OkExcel03_2() |
|