Заливка ячеек в выделеной области для удобства работы на 2 и более мониторах

Пользователь

Сообщений: 648 Регистрация: 23.05.2018

28.03.2019 08:57:17

Была у меня тут проблема.
На работе 2 монитора. На одном файл эксель с данными, на другом программа.
в файле много информации которую надо сверять с БД и т.д.
когда работаешь с файлом excel(выделяешь его как активное окно) выделение видно нормально
Но если перейти в работу с другим приложением или другим файлом эксель выделение пропадает.
Открыл для себя вот это. Вставлять в модуль нужного листа.
Может уже было или кто-то уже знает об этом но захотелось поделится.

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.FormatConditions.Delete
With Target
.FormatConditions.Add Type:=xlExpression, Formula1:=True
.FormatConditions(1).Interior.ColorIndex = 46 '19
End With
End Sub

У кого 1 монитор для тех врятли это будет актуально а для тех у кого 2 думаю будет полезно. по крайней мере лично мне стало значительно легче работать.

Прикрепленные файлы

Лист Microsoft Excel.xlsm (20.63 КБ)

Изменено: Wild.Godlike - 28.03.2019 08:58:59

БМВ Модератор Сообщений: 23295 Регистрация: 28.12.2016 Excel 2013, 2016	#2 28.03.2019 09:49:49 Wild.Godlike, особенно полезен данный код на листе где уже есть УФ, точнее был. По вопросам из тем форума, личку не читаю.

RAN Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#3 28.03.2019 12:37:42 https://www.planetaexcel.ru/techniques/9/58/

Wild.Godlike Пользователь Сообщений: 648 Регистрация: 23.05.2018	#4 28.03.2019 12:58:48 БМВ, об этом не подумал )) использую данный код в файлах в основном которые только только из выгрузки и т.д в которых нет всяких УФ))))

Alemox

Пользователь

Сообщений: 2184 Регистрация: 25.02.2013

28.03.2019 13:16:43

Да. Согласен есть минусы при работе с двумя мониторами. Иногда просто копирую ячейку выделенную при переходе на другой монитор она обведена контуром.
Ну, или да - перекрёстное выделение.
Но я использую самый удобный для меня способ, в котором остаётся рабочий Ctrl+Z. Из всех методов я посчитал этот самым лучшим.
Видео

Мастерство программиста не в том, чтобы писать программы, работающие без ошибок.
А в том, чтобы писать программы, работающие при любом количестве ошибок.

БМВ Модератор Сообщений: 23295 Регистрация: 28.12.2016 Excel 2013, 2016	#6 28.03.2019 14:25:35 Alemox, сразу одно условие в УФ =(ROW(A1)=CELL("row"))+(COLUMN(A1)=CELL("col")) и F9 если без макроса По вопросам из тем форума, личку не читаю.