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

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

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

VBA如何向列表框添加內容

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

10年積累的成都網站設計、成都做網站經驗，可以快速應對客戶對網站的新想法和需求。提供各種問題對應的解決方案。讓選擇我們的客戶得到更好、更有力的網絡服務。我雖然不認識你，你也不認識我。但先網站設計后付款的網站建設流程，更有扎賚諾爾免費網站建設讓你可以放心的選擇與我們合作。

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

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

Sub AddListItems()
    ' 定義變量
    Dim objListBox As Object
    Dim strItem As String
    ' 創(chuàng)建一個新的列表框
    Set objListBox = ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:B3"), , xlYes).ListObject
    ' 向列表框添加內容
    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,然后點擊運行。

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

如何刪除列表框中的某個項目

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

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

Sub RemoveListItem()
    ' 定義變量
    Dim objListBox As Object
    Dim strItem As String
    ' 獲取當前活動的工作表和列表框對象
    Set objListBox = ActiveSheet.ListObjects("ListBox1")
    ' 從列表框中刪除指定的項目
    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

文章題目：vba怎么向列表框添加內容
網站URL：http://www.5511xx.com/article/cdidhsi.html