如何在Excel中創建動態級聯列表框?

      網友投稿 343 2025-03-31

      如何在Excel中創建動態級聯列表框?

      您可能知道如何在Excel中創建級聯驗證下拉列表。 但是,如何在Excel中創建動態級聯列表框? 本文介紹了一種VBA方法來簡化它。

      使用VBA代碼創建動態級聯列表框

      使用VBA代碼創建動態級聯列表框
      驚人的! 在 Excel 中使用高效的選項卡,如 Chrome、Firefox 和 Safari! 每天節省50%的時間,并減少數千次鼠標單擊!

      如下面的屏幕截圖所示,您需要創建一個包含Drink列的唯一值的父級列表框,并根據父級列表框中的選擇在第二個列表框中顯示所有對應的值。 以下VBA代碼可幫助您實現它。 請執行以下操作。

      1.首先,您需要從“飲料”列中提取所有唯一值。 選擇一個空白單元格,輸入數組公式 =IFERROR(INDEX($A:$A, MATCH(0,COUNTIF($J:J1, $A:$A), 0)),"") 配方欄,然后按 按Ctrl + 轉移 + 輸入 鍵。 然后拖動 填充手柄 獲得所有唯一值。 看截圖:

      備注: 在公式, $A:$A 是您將從中提取唯一值的范圍。 J1是公式所在位置上方的單元格。

      Tips::如果公式難以記住和處理,則 選擇重復和唯一單元格 實用程序 Kutools for Excel 對于您來說,從列中快速提取所有唯一值是一個不錯的選擇。

      請選擇包含您要提取的唯一值的列。 然后通過單擊啟用該實用程序 Kutools > 選擇 > 選擇重復和唯一單元格。 在 選擇重復和唯一單元格 對話框中,選擇 所有唯一(包括第一個重復項) 選項,然后單擊 OK 按鈕。 然后,在該列中選擇所有唯一值。 請復制并粘貼到新位置。 看截圖:

      Kutools for Excel:具有200多個方便的Excel加載項,可以在60天內免費試用,沒有任何限制。 立即下載并免費試用!

      2.通過單擊分別插入兩個列表框 開發商 > 插頁 > 列表框(ActiveX控件)。 看截圖:

      3.右鍵單擊父列表框,然后選擇 租房 從上下文菜單中。 在里面 租房 對話框,更改 (姓名) 字段 飲品 或您需要的其他名稱,將包含提取的唯一值的單元格區域輸入到 列表填充范圍 字段并關閉對話框。

      4.重復步驟3更改第二個列表框的 (姓名) 字段到 租房 對話框。

      5.右鍵單擊工作表選項卡,然后選擇 查看代碼 從右鍵單擊菜單中。 然后將下面的VBA代碼復制到“代碼”窗口中。 看截圖:

      VBA代碼:在Excel中創建動態級聯列表框

      Dim xPreStr As String Private Sub Drink_Click() Update by Extendoffice 2018/06/04 Dim I, xRows As Long Dim xRg As Range Dim xRegStr As String Application.ScreenUpdating = False xRegStr = Me.Drink.Text Set xRg = Range("A2:A11") xRows = xRg.Rows.Count If xRegStr <> xPreStr Then Me.Item.Clear Me.OtherListBoxName.Clear Set xRg = xRg(1) For I = 1 To xRows If xRg.Offset(I - 1).Value = xRegStr Then Me.Item.AddItem xRg.Offset(I - 1, 1).Value Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value End If Next xPreStr = xRegStr End If Application.ScreenUpdating = True End Sub
      Copy

      :在代碼Drink和Item中是兩個列表框的名稱,將它們更改為您自己的名稱。

      6。 按 其他 + Q 關閉鍵 Microsoft Visual Basic應用程序 窗口。

      7.通過單擊關閉設計模式 開發商 > 設計模式.

      從現在開始,當在父列表框中選擇任何一種飲料(例如“咖啡”)時,所有咖啡項目都將顯示在第二個中。 選擇“茶或酒”將僅在第二個列表框中顯示茶或酒。 看截圖:

      相關文章: 在Excel中選擇更改后如何清除相關的下拉列表單元格? 如何在Excel中創建相關的級聯下拉列表? 在Excel下拉列表中選擇值時如何自動填充其他單元格? 如何在Excel中創建下拉列表日歷? H可以在Excel中保存或保留對ActiveX列表框的選擇?

      最佳辦公生產力工具

      將小時轉化為分鐘 Kutools for Excel!

      準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel!

      如何在Excel中創建動態級聯列表框?

      為什么需要 Kutools for Excel

      ???  超過 300 項強大功能: Kutools 包含 300 多項高級功能,可簡化您在 1500 多種場景中的工作。

      ??  卓越的數據處理能力:合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力!

      ??  高效的批量操作:當你可以聰明地工作時,為什么還要付出額外的努力呢? 輕松批量導入、導出、組合和調整數據。

      ??  可定制的圖表和報告:訪問各種附加圖表并生成富有洞察力的報告。

      ???  強大的導航窗格:通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。

      ??  七種類型的下拉列表:通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。

      ??  用戶友好:對于初學者來說輕而易舉,對于專家來說是一個強大的工具。

      立即下載,與 Excel 一起穿越時空!

      閱讀更多 免費下載... 采購... 
      office Tab 為 Office 帶來選項卡式界面,讓您的工作更輕松
      在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50%,并減少數百次鼠標單擊!
      閱讀更多 免費下載... 采購... 

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      上一篇:Excel中10的幾次方的輸入和運算方法
      下一篇:如何在Excel中過濾每隔一行(偶數/奇數行)?
      相關文章
      精品亚洲视频在线观看| 亚洲熟妇成人精品一区| 亚洲国产香蕉人人爽成AV片久久| 亚洲人成电影网站色www| 亚洲人妖女同在线播放| 91亚洲国产在人线播放午夜| 在线电影你懂的亚洲| 亚洲一卡2卡三卡4卡有限公司| 亚洲国产精品婷婷久久| 日韩亚洲Av人人夜夜澡人人爽| 亚洲国产综合专区电影在线| 亚洲国产精品久久66| 亚洲一区二区三区首页| 亚洲美女在线观看播放| 亚洲无成人网77777| 亚洲一区二区三区无码国产| 亚洲高清有码中文字| 亚洲另类无码专区丝袜| 精品国产亚洲AV麻豆| 亚洲人成国产精品无码| 亚洲热线99精品视频| 亚洲va久久久噜噜噜久久男同| 亚洲国产精品久久| 亚洲国产成人精品久久| 在线aⅴ亚洲中文字幕| 亚洲AV日韩AV永久无码色欲| 亚洲成年看片在线观看| 中文亚洲AV片不卡在线观看| 亚洲爆乳精品无码一区二区三区| 亚洲人成依人成综合网| 亚洲人成在线精品| 亚洲欧洲av综合色无码| 亚洲成年人啊啊aa在线观看| 亚洲人成网亚洲欧洲无码久久| 亚洲AV无码国产精品色午友在线 | 亚洲日韩区在线电影| 亚洲理论片中文字幕电影| 国产精品亚洲专区在线观看| 精品国产亚洲第一区二区三区| 国产亚洲精品国看不卡| 久久久久亚洲av无码尤物|