Смена цвета ярлыка листа от клика по ячейке

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Смена цвета ярлыка листа от клика по ячейке (Макросы/Sub)

Смена цвета ярлыка листа от клика по ячейке

Dalm

Дата: Воскресенье, 28.07.2024, 22:21 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 92

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

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

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

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

К сообщению приложен файл: fajl.xlsx (10.0 Kb)

Ответить

Hugo

Дата: Воскресенье, 28.07.2024, 22:41 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3703

Репутация: 792 ±

Замечаний: 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

Ответить

Dalm

Дата: Воскресенье, 28.07.2024, 23:56 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 92

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Спасибо

Ответить

Смена цвета ярлыка листа от клика по ячейке (Макросы/Sub)

Страница 1 из 1
1