Страницы: 1
RSS
Определение цвета фона ячейки или хотя бы факта заливки ячейки
 
Доброго времени суток Уважаемые Гуру!  
Столкнулся с такой проблемой: есть лист в котором часть ячеек защищена (шапка документа), а в части происходит редактирование. Для удобства пользователя защищенные ячейки выделяются серым цветом. Перед выводом на печать заливку необходимо убрать. Для обоих действий написаны соответствующие макросы. Теперь сам ВОПРОС. Хочется сделать запуск макросов с одной кнопки, соответственно необходимо определить в каком состоянии документ (есть /нет заливка)? Значение можно считывать например из ячейки (А2). Как узнать залита ячейка или нет. Поскольку у меня всего два цвета (есть/нет) достаточно выявить факт заливки.    
Заранее благодарен.
 
If Cells(2,1).Interior.ColorIndex = xlNone Then MsgBox "Нет заливки"
 
{quote}{login=Юрий М}{date=11.02.2011 12:19}{thema=}{post}If Cells(2,1).Interior.ColorIndex = xlNone Then MsgBox "Нет заливки"{/post}{/quote}  
Спасибо огромное. Второй раз к Вам обращаюсь и второй раз получаю ответ. Да пребудет с Вами сила и Здоровье.
 
по-моему вам нужно совсем другое(ну не совсем, но все ;) - макрос, кот, будет снимать заливку, печатать документ, потом ставить обратно..
Живи и дай жить..
 
{quote}{login=слэн}{date=11.02.2011 12:25}{thema=}{post}по-моему вам нужно совсем другое(ну не совсем, но все ;) - макрос, кот, будет снимать заливку, печатать документ, потом ставить обратно..{/post}{/quote}  
Такой макрос уже есть необходимо было именно получить условие на его запуск.
 
Думаю, что Слэн по большому счёту прав: зачем узнавать? - Вам ведь нужно БЕЗУСЛОВНОЕ снятие заливки с известных ячеек. Т.е. перед печатью с указанного диапазона заливка снимается, затем возвращается. В одной процедуре.
Страницы: 1
Читают тему
Наверх