Как определить какие листы выделены?

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

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

10.12.2015 13:12:30

Решил написать процедурку, которая бы окрашивала ярлык листа в определенный цвет. Штатно это делается через правую клавишу, т.е. контекстное меню. Возникла проблема: как программно определить выделенные ярлыки? Макро рекодер дает такое:

Код

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Sheets(Array("Лист2", "Лист3")).Select
    Sheets("Лист2").Activate
    With ActiveWorkbook.Sheets("Лист2").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
    With ActiveWorkbook.Sheets("Лист3").Tab
        .Color = 5287936
        .TintAndShade = 0
    End With
End Sub

Игорь

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

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

10.12.2015 13:21:56

Код
Sub test() Sheets(Array("Лист2", "Лист3")).Select Dim sh As Worksheet For Each sh In ActiveWindow.SelectedSheets sh.Tab.Color = vbRed Next End Sub

PS: ну а вообще, выделять листы совсем необязательно

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

ostap7 Пользователь Сообщений: 29 Регистрация: 17.01.2014	#3 10.12.2015 13:52:14 Спасибо, работает!!!

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#4 10.12.2015 14:59:11 Похожая тема

Читают тему