Удаление строк по цвету заливки - Microsoft Office Excel - Страница 3

staniiislav · 28.11.2012, 09:45

Цитата:

Сообщение от VictorM

Вот ЗДЕСЬ можно еще посмотреть о работе с условным форматированием

))) вот там и нашел )))

Leojse · 21.12.2012, 20:58

Здравствуйте. Пожалуйста, подскажите. В документе есть столбцы, строки которых закрашены в желтый цвет (код 6). Возможно ли, выделив столбец, скрыть все строки желтого цвета с помощью макроса?

kuklp · 21.12.2012, 22:27

Кросс:
http://www.excelworld.ru/forum/2-3102-1

strannick · 22.12.2012, 03:00

Цитата:

Сообщение от Leojse

Здравствуйте. Пожалуйста, подскажите. В документе есть столбцы, строки которых закрашены в желтый цвет (код 6). Возможно ли, выделив столбец, скрыть все строки желтого цвета с помощью макроса?

Конечно. Перебираете в цикле столбцы на предмет соответствия желтому цвету Interior.ColorIndex = 6 и выбранные столбцы скрываете:

Код:

Selection.EntireColumn.Hidden = True

Файлик приложили бы.

Leojse · 22.12.2012, 13:17

strannick
Файл прилагаю

IgorGO · 22.12.2012, 13:35

немного не по техзаданию, но...

Код:

Sub HideYellowShowOthersRows()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = 6
  Next
End Sub

Leojse · 22.12.2012, 13:43

IgorGO
У меня почему-то выдает ошибку run-time error 424 object required...

IgorGO · 22.12.2012, 13:56

Цитата:

Возможно ли, выделив столбец, скрыть все строки желтого цвета

а столбец предварительно отмечен?
и чтобы из модуля то же работало тогда так:

Код:

Sub HideYellowShowOthersRows()
  Dim cl As Range
  For Each cl In Application.Intersect(Selection, ActiveSheet.UsedRange).Cells
    cl.EntireRow.Hidden = cl.Interior.ColorIndex = 6
  Next
End Sub

Leojse · 22.12.2012, 14:28

IgorGO Спасибо! Код работает. А что нужно поправить, чтобы макрос, наоборот, показал желтые ячейки?

IgorGO · 22.12.2012, 14:46

Код:

cl.EntireRow.Hidden = cl.Interior.ColorIndex <> 6

21.12.2012, 22:27	#23
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Кросс: http://www.excelworld.ru/forum/2-3102-1 mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

22.12.2012, 13:35	#26
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	немного не по техзаданию, но... Код: `Sub HideYellowShowOthersRows() Dim cl As Range For Each cl In Application.Intersect(Selection, UsedRange).Cells cl.EntireRow.Hidden = cl.Interior.ColorIndex = 6 Next End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

22.12.2012, 14:46	#30
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `cl.EntireRow.Hidden = cl.Interior.ColorIndex <> 6` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Удаление строк	Zelenaya	Microsoft Office Excel	6	26.09.2012 09:55
Удаление строк	chipesca	Microsoft Office Excel	0	06.06.2012 20:05
Удаление строк	Trimbl	Microsoft Office Excel	13	18.10.2010 13:19
перенос строк удаление ненужных строк	HelperAwM	Microsoft Office Excel	5	26.06.2010 18:42
Удаление строк в зависимости от заливки	Scolopendra	Microsoft Office Excel	8	24.10.2008 06:54

21.12.2012, 20:58	#22
Leojse Пользователь Регистрация: 21.12.2012 Сообщений: 15	Здравствуйте. Пожалуйста, подскажите. В документе есть столбцы, строки которых закрашены в желтый цвет (код 6). Возможно ли, выделив столбец, скрыть все строки желтого цвета с помощью макроса?

22.12.2012, 13:43	#27
Leojse Пользователь Регистрация: 21.12.2012 Сообщений: 15	IgorGO У меня почему-то выдает ошибку run-time error 424 object required...

22.12.2012, 14:28	#29
Leojse Пользователь Регистрация: 21.12.2012 Сообщений: 15	IgorGO Спасибо! Код работает. А что нужно поправить, чтобы макрос, наоборот, показал желтые ячейки?