|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
24.11.2009, 21:30 | #1 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Условие для цвета
Здравствуйте.
Подскажите как выполнить данный код правильно? Нет определенности, на какой строчки i ячейка или ячейки или весь столбец 14 (31 ячеек, столбца 14 включительно), могут быть желтыми. Если не найдена ячейка желтого цвета выполняется данное условие. И если есть хоть одна ячейка желтого цвета, то выполняется другое условие. Я думаю, что не правильно указан диапазон проверяемых ячеек Cells(i+30, 14) Код:
Последний раз редактировалось segail; 25.11.2009 в 17:37. |
24.11.2009, 22:33 | #2 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
А в чем ошибка, что не так работает?
|
24.11.2009, 22:57 | #3 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Проверка вашего 14 столбца с первой по 444 строку
Если есть желтая ячейка возвращает True Код:
Проверка MsgBox Желтый
Анализ,обработка данных Недорого
|
25.11.2009, 17:07 | #4 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Попробую объяснить по своему.
Код:
Код:
Далее в действие вступает другое условие. От найденной Код:
Код:
Необходимо проверять 31 ячейку на желтый цвет нужного месяца, а не все 444 ячейки Последний раз редактировалось segail; 25.11.2009 в 17:55. |
25.11.2009, 19:21 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
А можно одним глазом глянуть на лист,почему именно 31 ячейка,а если декабрь,тогда 32.
Непонятно,а если Cells(i, 27).Text = ComboBox1.Text сопадет при I=100 Может номер ячейки привязать к проверяемому месяцу. Надо файл смотреть
Анализ,обработка данных Недорого
|
25.11.2009, 19:52 | #6 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Файл объемный. Могу скинуть лично Вам. Если разберетесь.
А 31 ячейка, значит я ошибся, для этого и зашел на форум со своим вопросом. Как я понял надо брать 32. У меня не зависимо от месяца на каждый месяц 31 ячейка. |
25.11.2009, 19:56 | #7 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Привязать нужно к Cells(i, 27).Text = ComboBox1.Text, а проверять 14 столбец.
А как не знаю |
25.11.2009, 20:03 | #8 |
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Скорее всего, нужно сделать еще один цикл с другой переменной - например, j
|
25.11.2009, 20:14 | #9 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Киньте файл,а то кофе уже закончилось,гадать нечем
Анализ,обработка данных Недорого
|
25.11.2009, 20:16 | #10 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Условие для ячейки | segail | Microsoft Office Excel | 31 | 23.09.2009 21:33 |
Условие для TextBox | segail | Microsoft Office Excel | 7 | 02.08.2009 23:15 |
Условие для макроса | sergiksergik | Microsoft Office Excel | 8 | 23.05.2009 20:54 |
Условие для файлов | Nemesisking | Общие вопросы Delphi | 11 | 30.01.2009 09:20 |