|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.02.2013, 16:06 | #1 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Заливка ячейки при нажатии CheckBox
Здравствуйте!
Есть UserForm1 на ней есть ComboBox и CheckBox. При вводе числа в ComboBox и нажатии на ОК, оно появляется на Листе1 в столбце С, при следующем вводе числа оно появляется в столбце С в следующей строке и тд. Подскажите пожалуйста как реализовать задачу. Если при вводе числа в ComboBox и поставить галочку в CheckBox и нажать ОК, чтобы ячейка с вводимым числом залилась зелёным.Если галочку не ставлю, то заливка не происходит. |
04.02.2013, 16:49 | #2 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Записать получилось вот что:
Private Sub CheckBox1_Click() Range("C10").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5296274 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Но это только для одной ячейки. А как сделать для всего столбца? |
04.02.2013, 17:24 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
вместо
Range("C10").Select With Selection.Interior пишем: With Columns(10).Interior
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
04.02.2013, 17:45 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если я правильно понял задачу, то можно так:
Код:
Чем шире угол зрения, тем он тупее.
|
05.02.2013, 10:07 | #5 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Доброе утро!
CheckBox1 не работает. Нужно чтобы если ставлю галочку, то номер документа заливается (столбец С). Если не ставлю, то не заливается. И так до 140 строки. Посмотрите пожалуйста код в примере, может я что-то не так делаю. И если кто-то знает подскажите почему у меня при последующем вводе данных в форме , предыдущие затираются. Код на снятие блокировки листа 6161 |
05.02.2013, 10:45 | #6 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
|
05.02.2013, 10:48 | #7 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Чем шире угол зрения, тем он тупее.
|
|
05.02.2013, 10:57 | #8 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
при вводе цифр в ComboBox (myColumn3) и нажатии кнопки "добавить" происходит добавление этой цифры в столбец С.
Если при вводе цифры в ComboBox (myColumn3) ставим галочку в CheckBox1 и нажимаем "добавить", то ячейка с вводимой цифрой должна окрасится в зелёный. Если при вводе цифры в ComboBox (myColumn3) мы не ставим галочку в CheckBox1 и нажимаем "добавить", то с ячейкой ничего не происходит. |
05.02.2013, 11:05 | #9 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Если я вставляю ваш код
Private Sub CommandButton1_Click() Dim x As Range Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(ComboBox1) If CheckBox1 Then x.Interior.ColorIndex = 10 End Sub то у меня ошибка CommandButton1_Click() уже существует пробую так Private Sub CheckBox1_Click() Dim x As Range Set x = Cells(Rows.Count, 3).End(xlUp).Offset(1): x = Val(ComboBox1) If CheckBox1 Then x.Interior.ColorIndex = 10 End Sub тоже ошибка |
05.02.2013, 11:09 | #10 |
Форумчанин
Регистрация: 19.10.2012
Сообщений: 217
|
Вот с таким кодом получается, но только в одной ячейке.
А как сделать чтобы во всем столбце если ставлю галочку ,то закрашивается определенная ячейка- не знаю. Private Sub CheckBox1_Click() Range("C10").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 5296274 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Заливка ячейки согласно содержимому | spirit-ua | Microsoft Office Excel | 5 | 31.01.2013 13:25 |
Заливка ячейки рисунком. | 7vlad37 | Microsoft Office Excel | 5 | 01.04.2011 08:45 |
заливка ячейки цветом в зависимости от результата | ьшвкфпщ | Microsoft Office Excel | 4 | 08.02.2011 12:44 |
При нажатии по ячейки открывается форма | SkrudjMakdak | Microsoft Office Excel | 6 | 28.08.2010 11:30 |
ормируется объект размером 30х30 и он должен при нажатии на клавишу,двигаться в 8ми направлениях..а при н | Krasoto4ka | Помощь студентам | 0 | 22.05.2010 17:41 |