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

Вход

Регистрация

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

 

= Мир MS Excel/Смена цвета ярлыка листа от клика по ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Смена цвета ярлыка листа от клика по ячейке
Dalm Дата: Воскресенье, 28.07.2024, 22:21 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 92
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Помогите разобраться с непростым вопросом.

На каждом листе - есть диапазон G2:R2 - с цветными ячейками.
Как сменить цвет ярлыка листа - на тот цвет, который залит в ячейку по которой кликнули ?

(Событие рабочего листа - одинарный клик мышкой по цветной ячейке из диапазона G2:R2 )
К сообщению приложен файл: fajl.xlsx (10.0 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите разобраться с непростым вопросом.

На каждом листе - есть диапазон G2:R2 - с цветными ячейками.
Как сменить цвет ярлыка листа - на тот цвет, который залит в ячейку по которой кликнули ?

(Событие рабочего листа - одинарный клик мышкой по цветной ячейке из диапазона G2:R2 )

Автор - Dalm
Дата добавления - 28.07.2024 в 22:21
Hugo Дата: Воскресенье, 28.07.2024, 22:41 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3693
Репутация: 790 ±
Замечаний: 0% ±

365
[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("G2:R2"), Target) Is Nothing Then
    With ActiveSheet.Tab
        .Color = Target.Interior.Color
        .TintAndShade = 0
    End With
End If
End Sub
[/vba]
К сообщению приложен файл: fajl.xlsm (17.7 Kb)


webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD


Сообщение отредактировал Hugo - Воскресенье, 28.07.2024, 22:44
 
Ответить
Сообщение[vba]
Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("G2:R2"), Target) Is Nothing Then
    With ActiveSheet.Tab
        .Color = Target.Interior.Color
        .TintAndShade = 0
    End With
End If
End Sub
[/vba]

Автор - Hugo
Дата добавления - 28.07.2024 в 22:41
Dalm Дата: Воскресенье, 28.07.2024, 23:56 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 92
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Спасибо
 
Ответить
СообщениеСпасибо

Автор - Dalm
Дата добавления - 28.07.2024 в 23:56
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!