Страницы: 1
RSS
Обновление данных в userform в режиме реального времени
 
Добрый день! Помогите пожалуйста с советом
Есть чек-лист из чекбоксов в userform. Как реализовать, чтобы в процессе выбора чекбокса на userform автоматически менялось значение label, которое считает количество отмеченных чек-боксов.  
Изменено: ilnur - 09.10.2019 22:28:33
 
Самый простой способ такой.
Код
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
 
Чуть сложней, но вроде работает.
"Все гениальное просто, а все простое гениально!!!"
 
doober, Nordheim, спасибо за помощь!
Страницы: 1
Наверх