如果工作表中还有其他复选框，如何选择/取消选择Excel中某一行中的所有复选框

Question

由于我已经为工作表中的所有复选框分配了一个按钮，因此我想为每一列分配一个按钮，该按钮将选择和取消选择该列中的所有复选框。

这是我为选择工作表中的所有复选框所做的，它起作用

了

Dim cb As CheckBox
For Each cb In ActiveSheet.Checkboxes
    If cb.Name <> ActiveSheet.Checkboxes("Check Box 69").Name Then
        cb.Value = ActiveSheet.Checkboxes("Check Box 69").Value
    End If
Next
End Sub

Answer 1

复选框有一个可以使用的TopLeftCell属性：

Sub TT()
    Dim cb As CheckBox, cb69 As CheckBox
    Set cb69 = ActiveSheet.CheckBoxes("Check Box 69")
    For Each cb In ActiveSheet.CheckBoxes
        If cb.TopLeftCell.Column = 3 And cb.Name <> cb69.Name Then
            cb.Value = cb69.Value
        End If
    Next
End Sub