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

批量插入复选框 的效用 Kutools for Excel 可以帮助您快速一次在选定范围内插入多个复选框。 然后，您可以使用 批量删除复选框。 参见sccreenshot：

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

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   | 不使用公式进行四舍五入 ... 超级查询: 多条件VLookup  |   多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 .... 高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 .... 列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ... 特色功能: 网格焦点   |  设计图   |   大方程式酒吧   |  工作簿和工作表管理器   |资源库 （自动文本）|  日期选择器   |  合并工作表   |  加密/解密单元格   |  按列表发送电子邮件   |  超级筛选   |   特殊过滤器 （过滤粗体/斜体/删除线...）... 前 15 个工具集:  12 文本 工具 (添加文本, 删除字符，...）   |   50+ 图表 类型 (甘特图，...）   |   40+ 实用 公式 (根据生日计算年龄，...）   |   19 插入 工具 (插入二维码, 从路径插入图片，...）   |   12 转化 工具 (小写金额转大写, 货币兑换，...）   |   7 合并与拆分 工具 (高级组合行, 分裂细胞，...）   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能，体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！