如何在Excel中保存或保留对ActiveX列表框的选择？

网友投稿 218 2024-02-16

如何在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 Long Dim J As Long Dim K As Long Dim KK As Long Dim xSheet As Worksheet Dim xListBox As Object On Error GoTo Label Application.DisplayAlerts = False Application.ScreenUpdating = False K = 0 KK = 0 If Not Sheets("ListBox Data") Is Nothing Then Sheets("ListBox Data").Delete End If Label: Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "ListBox Data" Set xSheet = Sheets("ListBox Data") For I = 1 To Sheets.Count For Each xListBox In Sheets(I).OLEObjects If xListBox.Name Like "ListBox*" Then With xListBox.Object For J = 0 To .ListCount - 1 If .Selected(J) Then xSheet.Range("A1").Offset(K, KK).Value = "True" Else xSheet.Range("A1").Offset(K, KK).Value = "False" End If K = K + 1 Next End With K = 0 KK = KK + 1 End If Next Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Private Sub Workbook_Open() Dim I As Long Dim J As Long Dim KK As Long Dim xRg As Range Dim xCell As Range Dim xListBox As Object Application.DisplayAlerts = False Application.ScreenUpdating = False KK = 0 For I = 1 To Sheets.Count - 1 For Each xListBox In Sheets(I).OLEObjects If xListBox.Name Like "ListBox*" Then With xListBox.Object Set xRg = Intersect(Sheets("ListBox Data").Range("A1").Offset(0, KK).EntireColumn, Sheets("ListBox Data").UsedRange) For J = 1 To .ListCount Set xCell = xRg(J) If xCell.Value = "True" Then .Selected(J - 1) = True End If Next KK = KK + 1 End With End If Next Next Sheets("ListBox Data").Delete Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub