Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1 2 След.
RSS
Условное форматирование всех листов в книге
 
#1
14.03.2011 17:52:14
Можно ли записать в условное форматирование условие, которое будет проверятсья для всех листов книги (а не создавать для каждого листа книги одно и то же условие)?
 
 
 
#2
14.03.2011 17:57:45
не понято  
можно выделить все листы и записать для выделенного диапазона условия УФ  
а вы что хотите?
 
 
 
#3
14.03.2011 17:58:06
насколько я знаю - нет
Редко но метко ...
 
 
 
#4
14.03.2011 18:00:54
{quote}{login=}{date=14.03.2011 05:57}{thema=}{post}не понято  
можно выделить все листы и записать для выделенного диапазона условия УФ  
а вы что хотите?{/post}{/quote}  
так и хочу, но правило УФ работает только в пределах одного листа...
 
 
 
#5
14.03.2011 18:07:08
Тогда макрос Вам в помощь.
<FONT COLOR="CadetBlue">
 
 
 
#6
14.03.2011 18:59:01
{quote}{login=eugene.v}{date=14.03.2011 06:00}{thema=Re: }{post}{quote}{login=}{date=14.03.2011 05:57}{thema=}{post}{/post}{/quote} так и хочу, но правило УФ работает только в пределах одного листа...{/post}{/quote}  
А если попробовать с именами?
 
 
 
#7
14.03.2011 19:44:22
{quote}{login=Юрий М}{date=14.03.2011 06:59}{thema=Re: Re: }  
А если попробовать с именами?{/post}{/quote}  
 
Не могу сообразить. Подскажите направление, в котором копать.
 
 
 
#8
14.03.2011 19:47:43
создаете имена для нужных диапазонов и используете их в формулах УФ
 
 
 
#9
14.03.2011 19:48:13
{quote}{login=Дъмитръ}{date=14.03.2011 06:07}{thema=}{post}Тогда макрос Вам в помощь.{/post}{/quote}  
 
Не поможите с макросом? В файле нужно УФ закрасить пустые ячейки желтым цветом на всех листах в диапазоне А1:К22.
 
 
 
#10
14.03.2011 19:48:56
Я про то, что нельзя ссылаться на ячейку с другого листа. А вот на имя можно.
 
 
 
#11
14.03.2011 19:52:01
{quote}{login=eugene.v}{date=14.03.2011 07:48}{thema=Re: }{post}{quote}{login=Дъмитръ}{date=14.03.2011 06:07}{thema=}{post}{/post}{/quote}Не поможите с макросом? В файле нужно УФ закрасить пустые ячейки желтым цветом на всех листах в диапазоне А1:К22.{/post}{/quote}  
А почему обязательно УФ. Простая заливка чем хуже?
 
 
 
#12
14.03.2011 19:52:59
{quote}{login=eugene.v}{date=14.03.2011 07:48}{thema=Re: }{post}{quote}{login=Дъмитръ}{date=14.03.2011 06:07}{thema=}{post}Тогда макрос Вам в помощь.{/post}{/quote}  
 
Не поможите с макросом? В файле нужно УФ закрасить пустые ячейки желтым цветом на всех листах в диапазоне А1:К22.{/post}{/quote}  
пустые во всех листах?
 
 
 
#13
14.03.2011 20:00:50
??????????
 
 
 
#14
14.03.2011 20:07:20
Лучше макрос. Лишний вес книги, добавляемый при использовании условного форматирования, можно сбросить кодом.
 
 
 
#15
14.03.2011 20:07:47
Без УФ
 
 
 
#16
14.03.2011 20:20:34
Ну уж тогда так  
               If iCell = "" Then  
               iCell.Interior.ColorIndex = 6  
               Else  
               iCell.Interior.ColorIndex = 0  
               End If  
Будет полный аналог УФ
 
 
 
#17
14.03.2011 20:27:02
Точно! Вернуть я забыл :-) Спасибо!
 
 
 
#18
14.03.2011 20:37:26
Да и цикл по листам наверное не нужен - работать с активным листом...
 
 
 
#19
14.03.2011 21:22:16
{quote}{login=Юрий М}{date=14.03.2011 07:52}{thema=Re: Re: }  
А почему обязательно УФ. Простая заливка чем хуже?{/post}{/quote}  
 
Чтобы незаполненные ячейки бросались в глаза и сигнализировали об отсутствии данных (диапазоны приличные).
 
 
 
#20
14.03.2011 21:25:14
{quote}{login=}{date=14.03.2011 07:52}{thema=Re: Re: }  
пустые во всех листах?{/post}{/quote}  
 
Нет. Пустые в каждом конкретном листе. Листов много, вот и думал, нельзя ли ускорить процесс задания УФ, указав в качестве диапазона все листы.
 
 
 
#21
14.03.2011 21:25:20
"Чтобы незаполненные ячейки бросались в глаза и сигнализировали об отсутствии данных (диапазоны приличные)"  
 
А я что - против? Пусть бросаются без УФ. Я спрашивал - почему обязательно УФ? Вот исправленный вариант.
 
 
 
#22
14.03.2011 21:32:41
{quote}{login=Юрий М}{date=14.03.2011 09:25}{thema=Re: Re: Re: Re: }{post}"Чтобы незаполненные ячейки бросались в глаза и сигнализировали об отсутствии данных (диапазоны приличные)"  
 
А я что - против? Пусть бросаются без УФ. Я спрашивал - почему обязательно УФ? Вот исправленный вариант.{/post}{/quote}  
 
Спасибо. А как в цикл включить определение самой правой нижней заполненной ячейки, чтобы макрос работал от ячейки А1 до нее в случае неодинаковых диапазонов на разных листах?
 
 
 
#23
14.03.2011 21:37:51
Вы сформулируйте сразу ВСЕ "хотелки" - нет желания несколько раз переделывать. В примере диапазоны были одинаковыми.
 
 
 
#24
14.03.2011 21:48:28
{quote}{login=Юрий М}{date=14.03.2011 09:37}{thema=}{post}Вы сформулируйте сразу ВСЕ "хотелки" - нет желания несколько раз переделывать. В примере диапазоны были одинаковыми.{/post}{/quote}  
 
Это все "хотелки".
 
 
 
#25
14.03.2011 21:59:20
Понятно :-) Возникли сложности с определением UsedRange только по константам или формулам. Кто подскажет?
 
 
 
#26
14.03.2011 22:11:57
{quote}{login=Юрий М}{date=14.03.2011 09:59}{thema=}{post}Понятно :-) Возникли сложности с определением UsedRange только по константам или формулам. Кто подскажет?{/post}{/quote}  
 
Я бьюсь с определением адреса последней заполненной ячейки с помощью такой конструкции:  
Range("A1").SpecialCells(xlLastCell).Address  
 
но в силу того, что с ВБА знаком на уровне макрорекордера, применить не получается...
 
 
 
#27
14.03.2011 22:22:27
По ссылкам и примеры  
http://www.planetaexcel.ru/forum.php?thread_id=8203  
 
http://www.sql.ru/forum/actualthread.aspx?tid=463148#4535898  
 
 
'определение границ данных  
 
iLastRow = Cells(Rows.Count, 5).End(xlUp).Row  
nColumn = Cells(1, Columns.Count).End(xlToLeft).Column  
 
'используемого пространства  
 
With ActiveSheet.UsedRange  
         
       iRow = .Row + .Rows.Count - 1  
       iClm = .Column + .Columns.Count - 1  
   
End With  
 
слэн: http://www.planetaexcel.ru/forum.php?thread_id=4737  
да, мы что-то сразу на VBA перешли, а человек просил "функцию" так вот:  
=макс(если(диапазон<>"";строка(диапазон);1)  
даст последнюю строку вашего "диапазона". (словие можно менять под различные надобности)  
 
Pavel55  http://www.planetaexcel.ru/forum.php?thread_id=5457  
'последняя строка без переменных по ширине данных      
Range(Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1), _  
       Cells(Cells(Rows.Count, 1).End(xlUp).Row, _  
       Cells(Cells(Rows.Count, 1).End(xlUp).Row, _  
       Columns.Count).End(xlToLeft).Column)).Select  
 
слэн  Сообщение добавлено 05.09.2008, 10:57  
http://www.planetaexcel.ru/forum.php?thread_id=5672  
как из pRange выделить начало и конец диапазона  
чуть проще:  
rng.Cells(1).Address  
rng.Cells(rng.Cells.Count).Address
 
 
 
#28
14.03.2011 22:25:47
По-моему, обновлять заливку на ВСЕХ листах при КАЖДОМ изменении слишком накладно, у меня заметно тормозит.  
Может, обновлять заливку на всех листах только при открытии книги, а потом только для измененного диапазона (файл)?
 
 
 
#29
14.03.2011 22:36:28
{quote}{login=Казанский}{date=14.03.2011 10:25}{thema=}{post}По-моему, обновлять заливку на ВСЕХ листах при КАЖДОМ изменении слишком накладно, у меня заметно тормозит.  
Может, обновлять заливку на всех листах только при открытии книги, а потом только для измененного диапазона (файл)?{/post}{/quote}  
 
Спасибо всем большое за информацию, буду пробовать применять.
 
 
 
#30
14.03.2011 22:48:17
{quote}{login=Казанский}{date=14.03.2011 10:25}{thema=}{post}По-моему, обновлять заливку на ВСЕХ листах при КАЖДОМ изменении слишком накладно, у меня заметно тормозит. Может, обновлять заливку на всех листах только при открытии книги, а потом только для измененного диапазона (файл)?{/post}{/quote}  
При открытии, наверное, не обязательно, а вот с остальным согласен.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх