Выделение листов макросом

Рустам

Гость

27.06.2010 18:00:37

Здравствуйте!!! Подскажите пожалуйста как произвести выделение листов макросом. Имеются два типа листов: листы с данными(ярлычок становится желтым) и листы без данных(черные ярлычки). Нужно чтобы выделялись только листы с желтыми ярлычками.

EducatedFool

Пользователь

Сообщений: 3697 Регистрация: 23.12.2012

27.06.2010 18:12:06

Вот что получилось:

Sub test()
Dim sh As Worksheet, arr(): n = 0
For Each sh In ThisWorkbook.Worksheets
If sh.Tab.Color = vbYellow Then
n = n + 1: ReDim Preserve arr(1 To n)
arr(n) = sh.Name
End If
Next sh
Worksheets(arr).Select
End Sub

Пример в файле: http://excelvba.ru/XL_Files/Sample__27-06-2010__20-11-23.zip

PS: Для того, чтобы обработать данные на желтых листах, выделять листы совсем необязательно...

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Guest

Гость

27.06.2010 18:43:11

{quote}{login=Рустам}{date=27.06.2010 06:00}{thema=Выделение листов макросом}{post}Здравствуйте!!! Подскажите пожалуйста как произвести выделение листов макросом. Имеются два типа листов: листы с данными(ярлычок становится желтым) и листы без данных(черные ярлычки). Нужно чтобы выделялись только листы с желтыми ярлычками.{/post}{/quote}Работает!!!! Спасибо ОГРОМНОЕ!!!

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#4 27.06.2010 19:27:16 Рустам, EducatedFool главное написал в секции PS:. Так будет работать быстрее. Но... В принципе - работает не ремонтируй. Я сам - дурнее всякого примера! ...

Guest

Гость

27.06.2010 20:33:53

{quote}{login=}{date=27.06.2010 06:43}{thema=Re: Выделение листов макросом}{post}{quote}{login=Рустам}{date=27.06.2010 06:00}{thema=Выделение листов макросом}{post}Здравствуйте!!! Подскажите пожалуйста как произвести выделение листов макросом. Имеются два типа листов: листы с данными(ярлычок становится желтым) и листы без данных(черные ярлычки). Нужно чтобы выделялись только листы с желтыми ярлычками.{/post}{/quote}Работает!!!! Спасибо ОГРОМНОЕ!!!{/post}{/quote}Да я бы попробывал, но в этом плохо разбираюсь. Но все равно СПАСИБО большое!!!

Guest Гость	#6 27.06.2010 20:51:27 {quote}{login=}{date=27.06.2010 08:33}{thema=Re: Re: Выделение листов макросом}{post}{quote}{login=}{date=27.06.2010 06:43}{thema=Re: Выделение листов макросом}{post}{quote}{login=Рустам}{date=27.06.2010 06:00}{thema=Выделение листов макросом}{post}Здравствуйте!!! Подскажите пожалуйста как произвести выделение листов макросом. Имеются два типа листов: листы с данными(ярлычок становится желтым) и листы без данных(черные ярлычки). Нужно чтобы выделялись только листы с желтыми ярлычками.{/post}{/quote}Работает!!!! Спасибо ОГРОМНОЕ!!!{/post}{/quote}Да я бы попробывал, но в этом плохо разбираюсь. Но все равно СПАСИБО большое!!!{/post}{/quote}P.S.: Дело в том, что это накладные. Желтым выделяются те листы в которых есть заказ, а при помощи этого макроса не надо мучиться выделять все эти листы, чтобы потом отправить их на печать, нажал кнопку и пожалуйста отправляй их всех на печать ... .Еще раз благодарю!!!

Читают тему