Как установить / отменить выбор всех флажков в определенной строке в 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