Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2011, 15:36   #1
NoirSpirit
 
Регистрация: 25.10.2011
Сообщений: 6
По умолчанию Как заставить несколько CheckBox-ов работать на одну ячейку?

Доброго времени суток. Программированием VBA занимаюсь совсем недавно. Столкнулся с задачей которую не могу решить:

Создаю форму в Excel на которой расположено 2 CheckBox-а. Для первого пишу:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Х").Range("A1:C1") = "БЛА-БЛА-БЛА"
Else
Worksheets("Х").Range("A1:C1") = "ЛА-ЛА-ЛА"
End If
End Sub

То есть, когда ставим галочку в ячейки A1 B1 C1 вставляется текст "БЛА-БЛА-БЛА", а когда снимаем галочку в эти же ячейки прописывается "ЛА-ЛА-ЛА".
Как должен выглядеть алгоритм, чтобы в эти же ячейки вписывалось значение присвоенное второму CheckBox-у с учетом присутствия и отсутствия галочки на обоих CheckBox-ах и чтобы значения не замещали друг друга.
NoirSpirit вне форума Ответить с цитированием
Старый 25.10.2011, 15:51   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
Private Sub CheckBox1_Click()
UpdateCells
End Sub

Private Sub CheckBox2_Click()
UpdateCells
End Sub

Sub UpdateCells
Worksheets("Х").Range("A1:C1") = IIf(CheckBox1, "БЛА-БЛА-БЛА", "ЛА-ЛА-ЛА") & IIf(CheckBox2, "тра-ля-ля", "тру-ту-ту") 
End Sub
Не проверял
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 28.10.2011, 13:48   #3
NoirSpirit
 
Регистрация: 25.10.2011
Сообщений: 6
По умолчанию

Спасибо! Помогло!
NoirSpirit вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирую примечание - но не могу вставить в одну ячейку - текст занимает несколько ячеек. Аспирин Microsoft Office Excel 1 16.09.2010 01:44
Как заставить одну ячейку заменять другую Kairan Microsoft Office Excel 8 22.02.2010 06:10
Как заставить работать CheckBox? ridmal Microsoft Office Word 1 21.05.2009 09:47
Как заставить работать php? yourself Помощь студентам 9 20.05.2008 08:08
Извлечь в одну ячейку несколько значений из строки которые удовлетворяют заданному условию. Dorvir Microsoft Office Excel 5 08.04.2008 16:12