Всички CheckBox свържи с макроса CheckBoxClick
Десен бутон Assign Macro...

Sub CheckBoxClick()

 Call BrAllCheckBoxes(Range("C1"))' Това е клетката, която се променя

End Sub

Sub BrAllCheckBoxes(MyRange As Range)

 Dim Chk As CheckBox

 Dim Br As Integer

 Br = 0

 For Each Chk In ActiveSheet.CheckBoxes

    If (Chk.Value = True Or Range(Chk.LinkedCell).Value = True) Then Br = Br + 1

 Next Chk

 MyRange.Value = Br

End Sub

Sub MacroAssign()

 Dim Chk As CheckBox

 For Each Chk In ActiveSheet.CheckBoxes

  Chk.Select

  Selection.OnAction = "CheckBoxClick"

 Next Chk

End Sub

Редактирано от TRN на 05.08.13 19:43.