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

【问题标题】：How to select/deselect all checkboxes in a certain row in excel if there are other checkboxes in the worksheet?如果工作表中还有其他复选框，如何选择/取消选择excel中某一行中的所有复选框？
【发布时间】：2023-03-24 23:36:01
【问题描述】：

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

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


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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：