Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Возможно ли создать макрос выполняющий действия в зависимости от цвета ярлычка листа в документе
 
#1
27.05.2010 23:33:02
Есть документ в 2003 Excel (скрин из 2007 - не обращайте внимания) и в этом документе куча листов(порядка сотни), некоторые помечены цветом (одним и тем же) Вот эти листы (помеченные) нужно выводить на печать. Причем эти листы состоят из двух страниц и на печать нужно вывести только вторую страницу). Вот бы кто подсказал - хотя бы в каком направлении копать! Спасибо.
 
 
 
#2
27.05.2010 23:39:33
{quote}{login=john222}{date=27.05.2010 11:33}{thema=Возможно ли создать макрос выполняющий действия в зависимости от цвета ярлычка листа в документе}{post} в каком направлении копать! Спасибо.{/post}{/quote}  
Начните раскопки отсюда:  
Sub ColorSheet()  
   For i = 1 To Sheets.Count  
       If Sheets(i).Tab.ColorIndex = 3 Then MsgBox Sheets(i).Name & " покрашен в красный"  
   Next  
End Sub
 
 
 
#3
27.05.2010 23:42:49
спасибо! очень оперативно! завтре на работе буду тыкать!
 
 
 
#4
27.05.2010 23:46:11
Не забудьте добавить ещё From:=2, To:=2 (вывод на печать второй страницы).
 
 
 
#5
28.05.2010 00:05:16
А где можно узнать соответствие цветов цифровым кодам?
 
 
 
#6
28.05.2010 00:13:05
Сделал так:  
Sub ColorSheet()  
For i = 1 To Sheets.Count  
If Sheets(i).Tab.ColorIndex = 3 Then Sheets(i).PrintOut  
Next  
End Sub  
 
видимых результатов нету - правда в 2007 (2003 на работе) и как ,скажите пожалуйста,привязать сюда From:=2, To:=2 ?  
ПС:  
вот эту конструкцию ниасилил (я ламер):Dim wsSh As Worksheet  
спасибо!
 
 
 
#7
28.05.2010 00:34:11
{quote}{login=john222}{date=28.05.2010 12:05}{thema=}{post}А где можно узнать соответствие цветов цифровым кодам?{/post}{/quote}  
Запустите этот макрос. Будут закрашены ячейки столбца А. Индекс будет равен номеру строки  
Sub IndexColor()  
   For i = 1 To 56  
       Cells(i, 1).Interior.ColorIndex = i  
   Next  
End Sub
 
 
 
#8
28.05.2010 00:36:38
{quote}{login=john222}{date=28.05.2010 12:13}{thema=}{post}Сделал так:  
Sub ColorSheet()  
For i = 1 To Sheets.Count  
If Sheets(i).Tab.ColorIndex = 3 Then Sheets(i).PrintOut  
Next  
End Sub  
видимых результатов нету - правда в 2007 (2003 на работе) и как ,скажите пожалуйста,привязать сюда From:=2, To:=2 ?  
ПС:вот эту конструкцию ниасилил (я ламер):Dim wsSh As Worksheet  
спасибо!{/post}{/quote}  
Ярлычки нужных листов в красный покрасили?  
.PrintOut From:=2, To:=2
 
 
 
#9
28.05.2010 02:13:33

> А где можно узнать соответствие цветов цифровым кодам? <BR>http://andreworld.de/toolsNotesLinks/pics/ms_excel_vba_interior_colorindexes.jpg

Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#10
28.05.2010 17:49:44
Спасибо большое всем откликнувшимся! Все получилось!
 
 
 
Страницы: 1
Читают тему
Наверх