Добрый день! Помогите пожалуйста с советом Есть чек-лист из чекбоксов в userform. Как реализовать, чтобы в процессе выбора чекбокса на userform автоматически менялось значение label, которое считает количество отмеченных чек-боксов.
Private Sub CheckBox1_Click(): Check: End Sub
Private Sub CheckBox2_Click(): Check: End Sub
Private Sub CheckBox3_Click(): Check: End Sub
Private Sub CheckBox4_Click(): Check: End Sub
Private Sub CheckBox5_Click(): Check: End Sub
Private Sub CheckBox6_Click(): Check: End Sub
Private Sub CheckBox7_Click(): Check: End Sub
Private Sub Check()
J = CheckBox1.Value + CheckBox2.Value + CheckBox3.Value _
+ CheckBox4.Value + CheckBox5.Value + CheckBox6.Value + CheckBox7.Value
Label1.Caption = Format(Abs(J) / 7 * 100, "0.0") & "%"
End Sub