Hi,

podskazhite kak opredelit array of checkbox chto-by zatem v zikle oraschatsya k svoystvam kazhdogo iz nich:

Chto-to vrode:

автор

Sub get_event()

Dim arCheck(9) As CheckBox
Dim i As Integer

Set arCheck(1) = UserForm1.CheckBox1
Set arCheck(2) = UserForm1.CheckBox2
Set arCheck(3) = UserForm1.CheckBox3
Set arCheck(4) = UserForm1.CheckBox4
Set arCheck(5) = UserForm1.CheckBox5
Set arCheck(6) = UserForm1.CheckBox6
Set arCheck(7) = UserForm1.CheckBox7

For i = 1 To 9
If arCheck(i).Value Then
MsgBox (arCheck(i).caption)
end if
next i

End Sub

Voobsch-to ja probuju eto vse v Excel, i v Excel ja ne vizhu o objekta CheckBox svojstva Count?1