Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35704
Главная » Готовые решения » VBA » Процедуры

Изменение цвета ярлыков листов
09.12.2013, 14:44
[ Файл-пример (68.5Kb) ]

В примере ярлык листа с названием "Лист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
Добавил: Serge_007 | | Теги: ярлыки листов, VBA, ВБА, цвет ярлыка листа
Просмотров: 3725 | Рейтинг: 0.0/0
Всего комментариев: 3
0   Спам
1    djshalun23   (28.05.2014 11:34)
   подскажите а как поменять цвета ячейкипри нажатии на кнопку?

0   Спам
2    Serge_007   (28.05.2014 11:49)
   djshalun23, Ваш вопрос не имеет никакого отношения к указанному в этой теме приему

0   Спам
3    djshalun23   (28.05.2014 12:41)
   Прошу прошения, мучаюсь уже 2й день,мне хотелось бы на листе иметь кнопку при нажатии которой элемент (квадрат) ячейка или что то , меняло цвет сначала на красный , потом на жёлтый и потом на зелёный.

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!