Подсветка одной ячейки при клике на другую ячейку

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Подсветка одной ячейки при клике на другую ячейку (Формулы/Formulas)

KIMVSR

Дата: Понедельник, 09.01.2017, 18:00 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 118

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

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

Excel 2016

Здравствуйте, ребят.

Не подскажите, есть ли в MS Excel такая возможность:
При выборе одной ячейки временно подсвечивается другая?

Например, кликаю по ячейке D1, при этом фон ячейки A1 ставится серого цвета. Кликаю по другой ячейке и подсветка пропадает.
Кликая по ячейке D2, фон ячейки A2 становится серым.

Хотелось бы применить такую функцию в большой таблице, когда нужно отслеживать информацию с разных строк, чтобы подсветить нужную ячейку с названием проекта в начале строки.

Заранее спасибо!

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

Сообщение отредактировал KIMVSR - Понедельник, 09.01.2017, 18:01

Ответить

_Boroda_

Дата: Понедельник, 09.01.2017, 18:30 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Вариант с Условным форматированием

Код

=ЯЧЕЙКА("row")=СТРОКА(A1)

И небольшим макросиком
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

[/vba]
В файле до строки 13. Регулируется в диапазоне УФ
Уже имеющаяся раскраска не стирается

К сообщению приложен файл: KIMVSR_1.xlsm (13.3 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Wasilich

Дата: Понедельник, 09.01.2017, 19:20 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Цитата KIMVSR, 09.01.2017 в 18:00, в сообщении № 1 ()

кликаю по ячейке D1, при этом фон ячейки A1 ставится серого цвета. Кликаю по другой ячейке и подсветка пропадает.

Если так, то неверное так.
[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Column = 4 Then
      Cells(Target.Row, 1).Interior.ColorIndex = 15
   Else
      Cells(Target.Row, 1).Interior.ColorIndex = xlNone
   End If
End Sub

[/vba]

Ответить

KIMVSR

Дата: Воскресенье, 15.01.2017, 20:40 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 118

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

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

Excel 2016

_Boroda_, Wasilich, ребят, просто фантастика! Большущие вам спасибо! Это именно то, что мне надо! СПАСИБО!!! respect

Ответить

rudarty

Дата: Среда, 13.05.2020, 15:41 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2019

_Boroda_,
Добрый день!

после подключения макроса перестали копироваться ячейки, не знаете как устранить проблему, в вашем примере такая же ситуация, заранее спасибо

Ответить

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