check box...

Здравейте!
Става въпрос за Ексел 2003
Та... в sheet1 съм поставил 30 фомуляра( чекбокс-а)

If CheckBox1.Value = True Then Range("C2").Value = 1
If CheckBox1.Value = False Then Range("C2").Value = 0

Въпроса ми е как да обединя всички checkbox-е , та когато чекна един от тях, в определена клетка да отпечата 1, аналогично ако чекна още един в същата клетка да се отпечата 2 и така на...к. И Съответно ако отмаркирвам някои от checkbox -te - сумата да намалява с едно. Благодаря.

Всички 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

Не знам дали ще ти е в помощ. Давам Макрос за свързване на всички CheckBox с CheckBoxClick

Sub MacroAssign()

 Dim Chk As CheckBox

 For Each Chk In ActiveSheet.CheckBoxes

  Chk.Select

  Selection.OnAction = "CheckBoxClick"

 Next Chk

End Sub