Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
выделение всех checkbox-ов
 
#1
29.01.2008 20:17:26
Скажите пожалуйста как сделать, чтобы при выделении checkbox-а 4 ("выделить все") все остальные checkbox-ы (1,2,3) тоже были выделены? Checkbox-ы у меня не в группе. Я пробовал сделать так, но почему-то не работает:  
 
Private Sub CheckBox_Change()  
   If Me.CheckBox4 Then  
       Me.CheckBox2.Value = True  
       Me.CheckBox3.Value = True  
       Me.CheckBox1.Value = True  
   Else  
       Me.CheckBox2.Value = False  
       Me.CheckBox3.Value = False  
       Me.CheckBox1.Value = False  
   End If  
End Sub  
 
Помогите пожалуйста.
 
 
 
#2
29.01.2008 21:03:42
это делается чуть проще:  
 
Private Sub CheckBox4_Change()  
CheckBox1= checkbox4  
CheckBox2= checkbox4  
CheckBox3= checkbox4  
End Sub  
и все это в коде формы..  
 
у меня все работает
 
 
 
#3
30.01.2008 12:31:58
СПАСИБО! Все работает
 
 
 
#4
03.11.2009 16:34:41
У меня их 48 штук!  
Как прописать при одном True все остальные 47 False?  
Подскажите, кто знает.  
 
Заранее благодарна.
 
 
 
#5
03.11.2009 16:39:15
Честно говоря, в моём варианте вообще ToggleButton.  
Но подойдёт и решение с OptionButton.
 
 
 
#6
03.11.2009 16:49:51
Почему? Не закрыта!  
Вы написали, что лучше использвать OptionButton, поэтому я и ответила, что тоже будет хорошо. Но лучше, если вы подскажите для Туглей - всех сразу.
 
 
 
#7
03.11.2009 16:55:16
Если я как-то криво излагаю, то попробую сформулировать ещё раз.  
Есть 48 ToggleButton'ов (элемент ToggleButton использован для удобства зрительного восприятия).  
При нажатии 1, остальные 47 должны быть "отжаты".  
If Me.ToggleButton1.Value Then  
Me.ToggleButton2.Value = False  
....  
Me.ToggleButton48.Value = False  
End If  
 
Копировать 48 раз, мне представляется неверным.  
Должен же быть какой-то общий для всех ToggleButton код. О нём и спрашиваю.
 
 
 
#8
03.11.2009 17:03:33
The_Prist  
Спасибо. Отлично работает. Рассыпаюсь в благодарностях.
 
 
 
#9
11.02.2011 20:57:17
Добрый вечер!  
Нужно сделать, что бы один чекбокс включал и выключал сразу все 14 чекбоксов,  независимо от первого чекбокса  включен он или выключен, другие 14 чекбоксов должны в одиночку как включатся так и отключатся.  
Заранее благодарю.
 
 
 
#10
11.02.2011 21:40:36
Добрый вечер! Так нужно?
 
 
 
#11
11.02.2011 21:46:13
Private Sub CheckBox12_Click()  
CheckBox1 = CheckBox12  
CheckBox2 = CheckBox12  
CheckBox3 = CheckBox12  
///// ну и т.д  
End Sub
Спасибо
 
 
 
#12
11.02.2011 22:32:07
{quote}{login=Юрий М}{date=11.02.2011 09:40}{thema=}{post}Добрый вечер! Так нужно?{/post}{/quote}  
Да, то что мне и нужно,просто бесподобно.  
Юра огромное Вам спасибо за помощь.
 
 
 
#13
11.02.2011 22:42:34
Там в коде осталась лишняя переменная и строка с ней. Она не мешает, но можно её и удалить - я считал количество ЧекБоксов и забыл убрать :-)
 
 
 
#14
11.02.2011 23:22:09
R Dmitry, Ваш вариант тоже попробовал, то же работает.  
Вам то же спасибо, за что откликнулись с помощью.  
С уважением vimpel76  
Всего хорошего.
 
 
 
Страницы: 1
Читают тему
Наверх