一区二区三区日韩精品-日韩经典一区二区三区-五月激情综合丁香婷婷-欧美精品中文字幕专区

分享

用VBA向列表框(ComboBox或ListBox)中填加數(shù)據(jù) - VBA教程 - 智能E...

 COPY&PASTE 2009-10-26

用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)容到剪貼板
代碼:
    Dim l As Long         '表示行數(shù)時(shí),應(yīng)該習(xí)慣設(shè)成長整型
    l = Sheets("設(shè)置表").Range("A65536").End(xlUp).Row
上述代碼請參見《VBA得到EXCEL表格中的行數(shù)和列數(shù)

方法一:循環(huán)Additem
復(fù)制內(nèi)容到剪貼板
代碼:
Sub OkExcel01()
    'www.
    Dim l As Long         '表示行數(shù)時(shí),應(yīng)該習(xí)慣設(shè)成長整型
    Dim i As Long
    Dim ws As Worksheet
   
    Set ws = Worksheets("設(shè)置表")
    l = ws.Range("A65536").End(xlUp).Row
    For i = 2 To l
        ComboBox1.AddItem (ws.Cells(i, 1))
    Next
End Sub
這種方法常應(yīng)用在:(1)將數(shù)組加到列表中;(2)不連續(xù)的區(qū)域;(3)從數(shù)據(jù)庫中讀出的數(shù)據(jù)等等。

方法二:設(shè)置數(shù)據(jù)源區(qū)域
復(fù)制內(nèi)容到剪貼板
代碼:
Sub OkExcel02()
    'www.
    Dim l As Long
    Dim ws As Worksheet
   
    Set ws = Worksheets("設(shè)置表")
    l = ws.Range("A65536").End(xlUp).Row
    ComboBox1.List = ws.Range("A2:A" & l).Value
End Sub
這種方法常應(yīng)用在連續(xù)的區(qū)域,如果源區(qū)域的數(shù)據(jù)固定(如民族)可以省算l的步驟。

方法三:名稱定義法:
首先定義名稱:(菜單:插入/名稱/定義)

圖3
如圖3所示,定義名稱
當(dāng)數(shù)據(jù)源中的數(shù)據(jù)有增減變化時(shí)執(zhí)行如下過程:
復(fù)制內(nèi)容到剪貼板
代碼:
Sub OkExcel03_1()
    'www.
    Dim l As Long
    Dim ws As Worksheet
    Set ws = Worksheets("設(shè)置表")
    l = ws.Range("A65536").End(xlUp).Row
    ThisWorkbook.Names("類別").RefersTo = "=設(shè)置表!$A$2:$A$" & l
End Sub
填寫數(shù)據(jù)時(shí)執(zhí)行職下過程:
復(fù)制內(nèi)容到剪貼板
代碼:
Sub OkExcel03_2()
    'www.
    ComboBox1.List = ThisWorkbook.Names("類別").RefersToRange.Value
End Sub
這種方法常應(yīng)用在連續(xù)的區(qū)域,并且一個(gè)數(shù)據(jù)源應(yīng)用于多個(gè)列表框,如在不同的窗體中。

    本站是提供個(gè)人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多

    国产一区二区久久综合| 91亚洲人人在字幕国产| 夫妻性生活动态图视频| 国产伦精品一一区二区三区高清版 | 少妇淫真视频一区二区| 国产一区二区三区精品免费| 青青操成人免费在线视频| 在线免费观看一二区视频| 欧美美女视频在线免费看| 欧美日韩亚洲综合国产人| 日韩成人中文字幕在线一区| 国产欧美日韩不卡在线视频| 精品国产成人av一区二区三区| 欧美日韩中国性生活视频| 欧美大黄片在线免费观看| 亚洲国产成人av毛片国产| 国产日韩欧美国产欧美日韩| 丰满人妻一二区二区三区av| 最新国产欧美精品91| 99日韩在线视频精品免费| 在线免费视频你懂的观看| 91亚洲国产成人久久精品麻豆| 日本东京热视频一区二区三区| 成人你懂的在线免费视频| 丝袜破了有美女肉体免费观看 | 久久热在线视频免费观看| 男女一进一出午夜视频| 日韩免费国产91在线| 亚洲av在线视频一区| 麻豆欧美精品国产综合久久| 千仞雪下面好爽好紧好湿全文| 亚洲一区二区久久观看| 一区二区三区四区亚洲专区| 亚洲精品一区二区三区免| 国产精品国三级国产专不卡| 精品国产丝袜一区二区| 色一情一乱一区二区三区码| 国产日产欧美精品视频| 老熟女露脸一二三四区| 国产av熟女一区二区三区四区| 初尝人妻少妇中文字幕在线|