求助：绑定动态行复选框的电子表格自动化实现方案

针对Camper Master表动态插入行、排序后无法绑定复选框触发自动化的问题，以下是基于VBA的实现方案，完全适配行位置变动场景，同时满足Roster表的打印格式要求：

一、给动态行的复选框绑定通用宏 #

因为行是动态插入的，无法手动逐个绑定宏，可通过两种方式实现批量/自动绑定：

1. 插入新行时自动添加并绑定复选框 #

在Camper Master表的工作表事件中添加代码，监测新行插入并自动创建绑定好宏的复选框：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim newRow As Long
    Dim cb As CheckBox
    
    ' 仅处理单行插入（排除批量操作）
    If Target.Rows.Count > 1 Then Exit Sub
    If Target.Row <= 1 Then Exit Sub ' 跳过表头行
    
    newRow = Target.Row
    ' 检查H列该行是否已存在复选框
    For Each cb In Me.CheckBoxes
        If cb.TopLeftCell.Row = newRow And cb.TopLeftCell.Column = 8 Then
            Exit Sub
        End If
    Next cb
    
    ' 在H列对应行创建复选框并绑定宏
    Set cb = Me.CheckBoxes.Add(Target.Offset(0, 7).Left, Target.Offset(0, 7).Top, _
                              Target.Offset(0, 7).Width, Target.Offset(0, 7).Height)
    cb.Caption = "" ' 隐藏复选框文字
    cb.LinkedCell = "" ' 取消单元格绑定，避免干扰数据
    cb.OnAction = "CamperCheckbox_Click" ' 绑定通用点击宏
End Sub

2. 批量绑定现有复选框到通用宏 #

如果已经存在大量未绑定的复选框，运行以下宏一次性完成绑定：

Sub BindAllCheckboxes()
    Dim cb As CheckBox
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Camper Master")
    
    For Each cb In ws.CheckBoxes
        ' 仅处理H列的复选框
        If cb.TopLeftCell.Column = 8 Then
            cb.OnAction = "CamperCheckbox_Click"
            cb.Caption = ""
            cb.LinkedCell = ""
        End If
    Next cb
End Sub

二、核心：复选框点击触发的同步宏 #

这个宏会自动识别触发复选框所在的行，根据勾选状态同步指定列数据到Roster表，同时避免破坏打印格式：

Sub CamperCheckbox_Click()
    Dim cb As CheckBox
    Dim sourceRow As Long
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim targetRow As Long
    
    Set wsSource = ThisWorkbook.Worksheets("Camper Master")
    Set wsTarget = ThisWorkbook.Worksheets("Roster")
    
    ' 获取当前触发事件的复选框
    Set cb = wsSource.CheckBoxes(Application.Caller)
    sourceRow = cb.TopLeftCell.Row ' 获取复选框所在的行号（不受排序影响）
    
    If cb.Value = xlOn Then
        ' 找到Roster表中第一个空数据行（假设第1行是表头）
        targetRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 复制指定列数据到目标区域，按需调整列对应关系
        wsTarget.Cells(targetRow, "A").Value = wsSource.Cells(sourceRow, "A").Value ' 姓氏
        wsTarget.Cells(targetRow, "B").Value = wsSource.Cells(sourceRow, "B").Value ' 名字
        wsTarget.Cells(targetRow, "C").Value = wsSource.Cells(sourceRow, "D").Value ' 示例：复制D列数据
        ' 可继续添加更多需要同步的列
        
        ' 可选：同步源单元格格式（如果需要匹配打印格式）
        wsSource.Cells(sourceRow, "A").Copy
        wsTarget.Cells(targetRow, "A").PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    Else
        ' 取消勾选时，删除Roster表中对应的数据（通过姓氏+名字匹配避免误删）
        Dim i As Long
        For i = 2 To wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
            If wsTarget.Cells(i, "A").Value = wsSource.Cells(sourceRow, "A").Value _
               And wsTarget.Cells(i, "B").Value = wsSource.Cells(sourceRow, "B").Value Then
                ' 清空内容而非删除行，保护打印格式
                wsTarget.Cells(i, "A").ClearContents
                wsTarget.Cells(i, "B").ClearContents
                wsTarget.Cells(i, "C").ClearContents
                Exit For
            End If
        Next i
    End If
End Sub

三、使用说明 #

1. 保存文件为**.xlsm格式**（必须启用宏才能运行）。
2. 首次使用时，先运行BindAllCheckboxes宏绑定现有复选框，之后插入新行时会自动创建绑定好的复选框。
3. 若Camper Master表进行排序，复选框会随行移动，宏通过TopLeftCell.Row获取的行号始终是当前行，不受排序影响。
4. 若Roster表有固定打印格式，可调整宏中数据复制的列范围，避免修改格式锁定区域。

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