Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 25.10.2011, 15:36   #1
NoirSpirit
 
Регистрация: 25.10.2011
Сообщений: 6
Репутация: 10
По умолчанию Как заставить несколько 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
Репутация: 938
По умолчанию

Код:
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
Не проверял
Казанский вне форума   Ответить с цитированием
Старый 28.10.2011, 13:48   #3
NoirSpirit
 
Регистрация: 25.10.2011
Сообщений: 6
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирую примечание - но не могу вставить в одну ячейку - текст занимает несколько ячеек. Аспирин Microsoft Office Excel 1 16.09.2010 01:44
Как заставить одну ячейку заменять другую Kairan Microsoft Office Excel 8 22.02.2010 07: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


21:36.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.