Изменение цвета ярлыков листов - Процедуры - VBA - Готовые решения$

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Готовые решения

Главная » Готовые решения » VBA » Процедуры

Изменение цвета ярлыков листов

	09.12.2013, 14:44
[ Файл-пример (68.5 Kb) ]

В примере ярлык листа с названием "Лист1" станет черным, ярлык второго листа книги станет красным, третьего листа - желтым: Sub ChangeTabColor() ThisWorkbook.Worksheets("Лист1").Tab.ColorIndex = 1 ThisWorkbook.Worksheets(2).Tab.Color = vbRed ThisWorkbook.Worksheets(3).Tab.Color = RGB(255, 255, 0) End Sub Удалить раскраску ярлыков листов во всей книге можно так: Sub ClearTabColor() Dim ws As Worksheet For Each ws In Worksheets ws.Tab.ColorIndex = xlColorIndexNone Next ws End Sub
1 2 3 4 5 Добавил: Serge_007 \| \| Теги: ярлыки листов, vba, ВБА, цвет ярлыка листа
Просмотров: 11709 \| Рейтинг: 5.0/1

Всего комментариев: 4

Порядок вывода комментариев:

0

Спам

1 djshalun23 (28.05.2014 11:34) [ Материал]

подскажите а как поменять цвета ячейкипри нажатии на кнопку?

Спам-сообщение скрыто. Показать

0

Спам

2 Serge_007 (28.05.2014 11:49) [ Материал]

djshalun23, Ваш вопрос не имеет никакого отношения к указанному в этой теме приему

0

Спам

3 kuvaldin (20.03.2019 05:09) [ Материал]

Здравствуйте! Подскажите пожалуйста, а если в книге много листов их все надо перечислять в ThisWorkbook.Worksheets ? Может есть какое-то условие, которое проверяет сколько листов в книге и все их раскрашивает?

0

4 _Boroda_ (20.03.2019 09:24) [ Материал]

Конечно есть, во втором макросе посмотрите. Если не разберетесь - задавайте вопрос на форуме (только Правила прочитайте сначала http://www.excelworld.ru/forum/2-20-1)

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]