Условие в макросе на цвет заливки ячеек - Microsoft Office Excel

Chelentano · 03.08.2009, 22:47

Господа, я создал макрос удаления строк в таблице с условием, что если ячейка в 1-й колонке строки активной ячейки имеет заливку (это значит что данная строка заглавная или итоговая), то тогда удаления быть не должно. Текст такой:

If Cells(ActiveCell.Row, 1).Interior.ColorIndex <> xlNone Then
ActiveCell.EntireRow.Delete
End If

Но всё равно макрос удаляет те строки, у которых первая колонка закрашена! Не подскажете в чём тут проблема?

Спасибо заранее!

pivas · 03.08.2009, 23:12

А попробуйте так:

Код:

If Cells(ActiveCell.Row, 1).Interior.ColorIndex = xlNone Then ActiveCell.EntireRow.Delete

Chelentano · 03.08.2009, 23:44

Пивас, спасибо большое!

Очень прошу у всех читающих данную тему прощения за неожиданное торможение (просто голова уже кругом идёт от аврала на работе).

03.08.2009, 22:47	#1
Chelentano Пользователь Регистрация: 06.07.2009 Сообщений: 45	Условие в макросе на цвет заливки ячеек Господа, я создал макрос удаления строк в таблице с условием, что если ячейка в 1-й колонке строки активной ячейки имеет заливку (это значит что данная строка заглавная или итоговая), то тогда удаления быть не должно. Текст такой: If Cells(ActiveCell.Row, 1).Interior.ColorIndex <> xlNone Then ActiveCell.EntireRow.Delete End If Но всё равно макрос удаляет те строки, у которых первая колонка закрашена! Не подскажете в чём тут проблема? Спасибо заранее!

03.08.2009, 23:12	#2
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	А попробуйте так: Код: `If Cells(ActiveCell.Row, 1).Interior.ColorIndex = xlNone Then ActiveCell.EntireRow.Delete`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Цвет заливки ячейки в зависимости от значений RGB	nikcher	Microsoft Office Excel	6	24.08.2016 16:52
Каким образом можно изменять цвет фона и цвет шрифта в Label?	jungle	Win Api	17	21.09.2009 00:38
Как с помощью JavaScript изменить цвет фона ячеек в таблице,так что бы можно было выбрать цвет из списка	Gotessa	JavaScript, Ajax	1	09.05.2009 16:05
СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ	Arina	Microsoft Office Excel	11	29.01.2009 14:35
Стили ячеек. Цвет фона, шрифт: размер, начертание ..	Virtson	Microsoft Office Excel	3	10.03.2007 16:19

03.08.2009, 23:44	#3
Chelentano Пользователь Регистрация: 06.07.2009 Сообщений: 45	Пивас, спасибо большое! Очень прошу у всех читающих данную тему прощения за неожиданное торможение (просто голова уже кругом идёт от аврала на работе).