Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Заливка строки по формуле
 
#1
10.11.2010 10:29:40
Подскажите, как в Excel 2003 можно реализовать подсветку строк по формуле. На листе имеется календарь с использованием формулы =ДЕНЬНЕД соответственно нужно, чтоб при выводе в ячейке выходных дней рабочие поля заливались красным цветом. Использовать условное форматирование нельзя т.к. три условия уже используются.
 
 
 
#2
10.11.2010 13:30:12
Тогда макросом.
 
 
 
#3
10.11.2010 18:18:23
{quote}{login=Юрий М}{date=10.11.2010 01:30}{thema=}{post}Тогда макросом.{/post}{/quote}  
А без макросов нельзя? С макросами пока не дружу. Что-то вроде этого: Если в ячейке A1 значение 6 или 7, то залить ячейку красным иначе ничего не предпринимать. Извините если вопрос совсем дурацкий.
 
 
 
#4
10.11.2010 19:11:02
а как иначе вы хотите?)  
нету тукой формулы как ЗАЛИТЬЯЧЕЙКУ)  
оптимизируйте условное форматирование, может можно обойтись меньшим количеством условий или обьеденить существующие.
 
 
 
#5
12.11.2010 12:50:39
{quote}{login=Димон}{date=10.11.2010 07:11}{thema=}{post}может можно обойтись меньшим количеством условий или обьеденить существующие.{/post}{/quote}  
 
Как можно объединить условия, одной формулой, чтоб ячейка заливалась в три разных цвета?  
 
Подскажите как решить задачу в помощью макроса. Желательно с кодом.
 
 
 
#6
12.11.2010 13:32:11
Вот макросом. Поочередно вводите в ячейку А1 значения 1, 2, 3.
 
 
 
#7
12.11.2010 13:58:05
{quote}{login=Юрий М}{date=12.11.2010 01:32}{thema=}{post}Вот макросом. Поочередно вводите в ячейку А1 значения 1, 2, 3.{/post}{/quote}  
 
Спасибо. Что нужно прописать, чтоб залить не только ячейку A1, а строку А1:А10?
 
 
 
#8
12.11.2010 14:14:40
Вместо:  
Target.Interior.ColorIndex = ...  
напишите:  
Range(Target, Target.Offset(0, 9)).Interior.ColorIndex = ...
 
 
 
#9
12.11.2010 15:50:19
{quote}{login=Юрий М}{date=12.11.2010 02:14}{thema=}{post}Вместо:  
Target.Interior.ColorIndex = ...  
напишите:  
Range(Target, Target.Offset(0, 9)).Interior.ColorIndex = ...{/post}{/quote}  
 
Юрий, спасибо. При вводе значаний руками макрос работает, однако не срабатывает если значение получается выводом функции =ДЕНЬНЕД. Как это можно исправить?
 
 
 
#10
12.11.2010 16:03:47
Формулой
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#11
12.11.2010 16:47:16
{quote}{login=Владимир}{date=12.11.2010 04:03}{thema=}{post}Формулой{/post}{/quote}  
Не получится. Нужно залить не одну ячейку, а всю строку. Причем если в первом поле условное форматирование можно использовать, то в следующих 9 оно уже использовано.
 
 
 
#12
12.11.2010 17:05:52
Выделите диапазон, зайдите в условное форматирование и вставьте формулу:  
=ЕСЛИ(ИЛИ(ДЕНЬНЕД($B7;2)=6;ДЕНЬНЕД($B7;2)=7);ИСТИНА) и всё получится.  
 
--  
39395
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#13
12.11.2010 19:07:14
{quote}{login=Dave}{date=12.11.2010 03:50}{thema=Re: }{post}{quote}{login=Юрий М}{date=12.11.2010 02:14}{thema=}{post}{/post}{/quote}при вводе значаний руками макрос работает, однако не срабатывает если значение получается выводом функции =ДЕНЬНЕД. Как это можно исправить?{/post}{/quote}  
Можно попробовать использовать событие листа Calculate
 
 
 
#14
13.11.2010 10:34:51
{quote}{login=Владимир}{date=12.11.2010 05:05}{thema=}{post}Выделите диапазон, зайдите в условное форматирование и вставьте формулу:  
=ЕСЛИ(ИЛИ(ДЕНЬНЕД($B7;2)=6;ДЕНЬНЕД($B7;2)=7);ИСТИНА) и всё получится.  
 
Работает, но сбросилось условное форматирование подсвечивающее значения в полях. При выборе +, !, !!!
 
 
 
#15
13.11.2010 10:48:15
Если у Вас 2007 Excel, то нужно добавить четвёртое условие, если 2003 тут только 3 условия может быть.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#16
13.11.2010 10:52:21
{quote}{login=Владимир}{date=13.11.2010 10:48}{thema=}{post}Если у Вас 2007 Excel, то нужно добавить четвёртое условие, если 2003 тут только 3 условия может быть.{/post}{/quote}  
 
К сожалению только 2003. Я знаю, что 2007 поддерживвает до 64 условий
 
 
 
#17
13.11.2010 10:59:49
Так давайте внеплановый выезд (!!!) отметим как-то формулой. Если условия расскажете...
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#18
13.11.2010 11:08:18
{quote}{login=Владимир}{date=13.11.2010 10:59}{thema=}{post}Так давайте внеплановый выезд (!!!) отметим как-то формулой. Если условия расскажете...{/post}{/quote}  
 
Думаю можно реализовать решение Ваше и Юрия. Макросом Юрия подсветить значения +,-,!,!!! тем самым обойти ограничение условного форматирования для 2003 офиса, а вашей формулой залить выходные.
 
 
 
#19
13.11.2010 11:16:02
{quote}{login=dave}{date=13.11.2010 11:08}{thema=Re: }{post}{quote}{login=Владимир}{date=13.11.2010 10:59}{thema=}{post}Так давайте внеплановый выезд (!!!) отметим как-то формулой. Если условия расскажете...{/post}{/quote}  
 
Думаю можно реализовать решение Ваше и Юрия. Макросом Юрия подсветить значения +,-,!,!!! тем самым обойти ограничение условного форматирования для 2003 офиса, а вашей формулой залить выходные.{/post}{/quote}  
 
Да так работает, но нужно произвести пересчет уже введенных значений. И найти кодирование цветов в VB.
 
 
 
#20
13.11.2010 11:27:47
Чтобы узнать индексы цветов, запустить этот макрос.  
===  
Sub AskColor()  
   For i = 1 To 56  
       Cells(i, 1).Interior.ColorIndex = i  
   Next  
End Sub  
===  
Номер строки и укажет на цветовой индекс.
 
 
 
#21
13.11.2010 13:36:25
{quote}{login=Юрий М}{date=13.11.2010 11:27}{thema=}{post}Чтобы узнать индексы цветов, запустить этот макрос.  
===  
Sub AskColor()  
   For i = 1 To 56  
       Cells(i, 1).Interior.ColorIndex = i  
   Next  
End Sub  
===  
Номер строки и укажет на цветовой индекс.{/post}{/quote}  
 
Юрий и Владимир, спасибо за Вашу помощь. Все получилось.
 
 
 
Страницы: 1
Читают тему
Наверх