如何用VBA批量重命名ActiveX复选框并生成点击事件代码？

一、批量重命名ActiveX复选框 #

用这段VBA可以一键把所有ActiveX复选框按顺序重命名为CB1、CB2…CB414：

Sub RenameCheckboxes()
    Dim cb As OLEObject
    Dim i As Integer
    i = 1
    For Each cb In ActiveSheet.OLEObjects
        If TypeName(cb.Object) = "CheckBox" Then
            cb.Name = "CB" & i
            i = i + 1
        End If
    Next cb
End Sub

操作步骤：选中目标工作表，按Alt+F11打开VBA编辑器，插入模块，粘贴代码后运行即可。

二、自动生成点击事件代码 #

手动写414个事件代码太浪费时间，用下面的代码直接向工作表模块批量生成所需代码：

Sub GenerateClickEvents()
    Dim vbComp As VBComponent
    Dim i As Integer
    Dim groupSize As Integer
    groupSize = 6 '每组6个复选框对应一周
    Dim cellRow As Integer
    cellRow = 4 '初始数据行，对应示例里的AW4
    
    Set vbComp = ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName)
    
    '可选：清空原有事件代码，避免重复生成
    If vbComp.CodeModule.CountOfLines > 0 Then
        vbComp.CodeModule.DeleteLines 1, vbComp.CodeModule.CountOfLines
    End If
    
    For i = 1 To 414
        '计算当前复选框所属组和组内序号
        Dim groupNum As Integer
        groupNum = ((i - 1) \ groupSize) + 1
        Dim cbIndexInGroup As Integer
        cbIndexInGroup = (i - 1) Mod groupSize
        
        '拼接事件代码
        Dim codeText As String
        codeText = "Private Sub CB" & i & "_Click()" & vbCrLf
        codeText = codeText & "    If CB" & i & " = True Then" & vbCrLf
        
        '取消同组其他复选框
        Dim j As Integer
        For j = (groupNum - 1) * groupSize + 1 To groupNum * groupSize
            If j <> i Then
                codeText = codeText & "        CB" & j & " = False" & vbCrLf
            End If
        Next j
        
        '写入对应工作日数到AW列对应行
        codeText = codeText & "        Range(""AW" & cellRow + groupNum - 1 & """) = """ & cbIndexInGroup & """" & vbCrLf
        codeText = codeText & "    End If" & vbCrLf
        codeText = codeText & "End Sub" & vbCrLf & vbCrLf
        
        '将代码写入工作表模块
        vbComp.CodeModule.AddFromString codeText
    Next i
End Sub

注意：运行前需要在Excel选项→信任中心→信任中心设置→宏设置里，勾选“信任对VBA项目对象模型的访问”，否则代码会报错。

三、更优的工作日生成方案 #

用414个ActiveX复选框的方式太繁琐，推荐几个更高效的替代方案：

1. 表单控件单选按钮+分组框 #

• 每周插入一个分组框，里面放6个单选按钮（对应0-5天）
• 单选按钮在分组框内默认互斥，选中一个自动取消同组其他选项，完全不用写VBA
• 给每个单选按钮设置“单元格链接”，直接把选中值写入指定单元格，操作简单

2. 数据验证下拉菜单 #

• 在AW列需要输入的行，设置数据验证→序列，输入0,1,2,3,4,5
• 用户直接下拉选择工作日数，没有控件的杂乱感，零VBA需求
• 可以搭配条件格式，让选中的数值高亮，提升可视化效果

3. VBA自动生成年度工作日数 #

如果不需要手动选择，而是按规则自动生成（比如默认每周5个工作日，排除节假日），可以用这段代码：

Sub GenerateWorkdays()
    Dim startDate As Date, endDate As Date, currentDate As Date
    Dim outputRow As Integer
    Dim holidayRange As Range '可选：指定节假日单元格区域
    
    startDate = DateSerial(Year(Now()), 1, 1)
    endDate = DateSerial(Year(Now()), 12, 31)
    outputRow = 4 '从AW4开始写入
    'Set holidayRange = Range("XX1:XX10") '如果有节假日，取消注释并指定区域
    
    currentDate = startDate
    Do While currentDate <= endDate
        '计算当前周的工作日数（默认周一到周五，排除节假日）
        Dim workDays As Integer
        workDays = Application.WorksheetFunction.NetworkDays_Intl(currentDate, _
                    DateAdd("d", 6, currentDate), 1, holidayRange)
        
        Range("AW" & outputRow).Value = workDays
        currentDate = DateAdd("ww", 1, currentDate)
        outputRow = outputRow + 1
    Loop
End Sub

这段代码用NetworkDays_Intl函数自动计算每周工作日数，支持自定义节假日，完全不用手动操作。

内容的提问来源于stack exchange，提问作者Seb358