如何在Excel中保存或保留對ActiveX列表框的選擇？

假設您已經創建了一些列表框并在列表框中進行了選擇，但是，當關閉并重??新打開工作簿時，這些列表框的所有選擇都消失了。 您是否要在關閉并重新打開工作簿時保留在列表框中所做的選擇？ 本文中的方法可以為您提供幫助。

使用Excel中的VBA代碼保存或保留ActiveX列表框的選擇

輕松在Excel中批量插入或刪除多個復選框：

批量插入復選框 的效用 Kutools for Excel 可以幫助您快速一次在選定范圍內插入多個復選框。 然后，您可以使用 批量刪除復選框。 參見sccreenshot：

Kutools for Excel：具有200多個方便的Excel加載項，可以在60天內，沒有任何限制。 立即下載并！

使用Excel中的VBA代碼保存或保留ActiveX列表框的選擇

驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Edge、Firefox 和 Safari！ 每天節省50％的時間，并減少數千次鼠標單擊！

如果Excel中有ActiveX列表框，則下面的VBA代碼可以幫助您保存或保留選擇。 請執行以下操作。

1.在工作簿中包含您要保留選擇的ActiveX列表框，按 其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口，雙擊 的ThisWorkbook 在左窗格中打開 的ThisWorkbook 代碼 窗口。 然后將以下VBA代碼復制到代碼窗口中。

VBA代碼：在Excel中保存對ActiveX列表框的選擇

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)Dim I As LongDim J As LongDim K As LongDim KK As LongDim xSheet As WorksheetDim xListBox As ObjectOn Error GoTo LabelApplication.Displayalerts = FalseApplication.ScreenUpdating = FalseK = 0KK = 0If Not Sheets("ListBox Data") Is Nothing ThenSheets("ListBox Data").DeleteEnd IfLabel:Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "ListBox Data"Set xSheet = Sheets("ListBox Data")For I = 1 To Sheets.CountFor Each xListBox In Sheets(I).OLEObjectsIf xListBox.Name Like "ListBox*" ThenWith xListBox.ObjectFor J = 0 To .ListCount - 1If .Selected(J) ThenxSheet.Range("A1").Offset(K, KK).Value = "True"ElsexSheet.Range("A1").Offset(K, KK).Value = "False"End IfK = K + 1NextEnd WithK = 0KK = KK + 1End IfNextNextApplication.ScreenUpdating = TrueApplication.Displayalerts = TrueEnd SubPrivate Sub Workbook_Open()Dim I As LongDim J As LongDim KK As LongDim xRg As RangeDim xCell As RangeDim xListBox As ObjectApplication.Displayalerts = FalseApplication.ScreenUpdating = FalseKK = 0For I = 1 To Sheets.Count - 1For Each xListBox In Sheets(I).OLEObjectsIf xListBox.Name Like "ListBox*" ThenWith xListBox.ObjectSet xRg = Intersect(Sheets("ListBox Data").Range("A1").Offset(0, KK).EntireColumn, Sheets("ListBox Data").UsedRange)For J = 1 To .ListCountSet xCell = xRg(J)If xCell.Value = "True" Then.Selected(J - 1) = TrueEnd IfNextKK = KK + 1End WithEnd IfNextNextSheets("ListBox Data").DeleteApplication.ScreenUpdating = TrueApplication.Displayalerts = TrueEnd SubCopy

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

4.現在，您需要將工作簿另存為啟用了Excel Macro的工作簿。 請點擊 文件 > 另存為 > 瀏覽.

5.在 另存為 對話框中，選擇一個文件夾來保存工作簿，根據需要將其重命名，然后選擇 Excel啟用宏的工作簿 ，在 保存類型 下拉列表，最后單擊 保存 按鈕。 看截圖：

每次更新列表框時，請保存工作簿。 重新打開工作簿后，所有以前的選擇都將保留在列表框中。

備注：保存工作簿時，名為“列表框數據”將在工作簿所有工作表的末尾自動創建，請忽略此工作表，因為它在工作簿關閉時會自動消失。

最佳辦公生產力工具

熱門特色: 查找、突出顯示或識別重復項 |刪除空白行 |合并列或單元格而不丟失數據 | 不使用公式進行四舍五入...超級查詢: 多條件VLookup| 多值VLookup| 跨多個工作表的 VLookup | 模糊查詢....高級下拉列表: 快速創建下拉列表 |依賴下拉列表 |多選下拉列表....列管理器: 添加特定數量的列 | 移動列 | 切換隱藏列的可見性狀態 | 比較范圍和列...特色功能: 網格焦點 |設計圖 | 大方程式酒吧 |工作簿和工作表管理器|資源庫 （自動文本）|日期選擇器|合并工作表 |加密/解密單元格 |按列表發送電子郵件 |超級篩選 | 特殊過濾器 （過濾粗體/斜體/刪除線...）...前 15 個工具集: 12 文本 工具 (添加文本, 刪除字符，...） | 50+ 圖表 類型 (甘特圖，...） | 40+ 實用 公式 (根據生日計算年齡，...） | 19 插入 工具 (插入二維碼, 從路徑插入圖片，...） | 12 轉化 工具 (小寫金額轉大寫, 貨幣兌換，...） | 7 合并與拆分 工具 (高級組合行, 分裂細胞，...） | ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能，體驗前所未有的效率。 Kutools for Excel 提供了 300 多種高級功能來提高生產力并節省時間。 單擊此處獲取您最需要的功能...

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