日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷解決方案
vba怎么向列表框添加內(nèi)容
您可以使用以下方法向列表框添加內(nèi)容：，，1. 使用Listbox對(duì)象的AddItem方法。對(duì)于單列的列表框，在列表中添加一項(xiàng)。對(duì)于多列的列表框或組合框，在列表中添加一整行。用法為：Listbox1.AddItem [ item [, varIndex]] 其中Item(可選)指定要添加的項(xiàng)或行的內(nèi)容。第一個(gè)項(xiàng)或行的編號(hào)為 0;第二個(gè)項(xiàng)或行的編號(hào)為 1。，，2. 使用RowSource屬性添加元素。

VBA如何向列表框添加內(nèi)容

在VBA中，我們可以使用ListBox對(duì)象來創(chuàng)建一個(gè)列表框，要向列表框添加內(nèi)容，我們需要先創(chuàng)建一個(gè)ListBox對(duì)象，然后使用Add方法將內(nèi)容添加到列表框中，以下是一個(gè)簡(jiǎn)單的示例：

10年積累的成都網(wǎng)站設(shè)計(jì)、成都做網(wǎng)站經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有扎賚諾爾免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

1、打開Excel,按下Alt+F11鍵，打開VBA編輯器。

2、在VBA編輯器中，點(diǎn)擊菜單欄的插入,然后選擇模塊,在模塊中輸入以下代碼：

Sub AddListItems()
    ' 定義變量
    Dim objListBox As Object
    Dim strItem As String
    ' 創(chuàng)建一個(gè)新的列表框
    Set objListBox = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B3"), , xlYes).ListObject
    ' 向列表框添加內(nèi)容
    strItem = "蘋果"
    objListBox.DataBodyRange.Cells(1, 1).Value = strItem
    strItem = "香蕉"
    objListBox.DataBodyRange.Cells(2, 1).Value = strItem
    strItem = "橙子"
    objListBox.DataBodyRange.Cells(3, 1).Value = strItem
End Sub

3、按下Ctrl+S鍵保存代碼。

4、回到Excel工作表，按下Alt+F8鍵，選擇AddListItems,然后點(diǎn)擊運(yùn)行。

5、此時(shí)，你會(huì)看到一個(gè)新的列表框出現(xiàn)在工作表中，包含了我們剛剛添加的內(nèi)容。

如何刪除列表框中的某個(gè)項(xiàng)目

要從列表框中刪除某個(gè)項(xiàng)目，我們可以使用Remove方法，以下是一個(gè)示例：

1、在VBA編輯器中，輸入以下代碼：

Sub RemoveListItem()
    ' 定義變量
    Dim objListBox As Object
    Dim strItem As String
    ' 獲取當(dāng)前活動(dòng)的工作表和列表框?qū)ο?
    Set objListBox = ActiveSheet.ListObjects("ListBox1")
    ' 從列表框中刪除指定的項(xiàng)目
    strItem = "香蕉"
    If InStr(objListBox.DataBodyRange.Cells(2, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(2, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(3, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(3, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(4, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(4, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(5, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(5, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(6, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(6, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(7, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(7, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(8, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(8, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(9, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(9, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(10, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(10, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox.DataBodyRange, Order1:=xlAscending, _
            Key2:=objListBox.ListColumns("列名").DataField, Order2:=xlAscending, _
            Header:=xlNo
    ElseIf InStr(objListBox.DataBodyRange.Cells(11, 1).Value, strItem) > 0 Then
        objListBox.DataBodyRange.Cells(11, 1).EntireRow.Delete
        objListBox.DataBodyRange.Sort Key1:=objListBox

網(wǎng)站名稱：vba怎么向列表框添加內(nèi)容
文章起源：http://m.5511xx.com/article/cdidhsi.html