Как сделать чтобы активная ячейка выделялась цветом

Выделение активной ячейки, строки или столбца

В следующих примерах кода показаны способы выделения активной ячейки или строк и столбцов, содержащих активную ячейку. В этих примерах используется событие SelectionChange объекта Worksheet.

Пример кода предоставил: Том Уртис, Atlas Programming Management

Выделение активной ячейки

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить активную ячейку, присвоив свойству ColorIndex значение 8 (бирюзовый).

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 ' Highlight the active cell Target.Interior.ColorIndex = 8 Application.ScreenUpdating = True End Sub

Выделение всей строки и столбца, содержащих активную ячейку

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить всю строку и столбец, содержащие активную ячейку, с помощью свойств EntireRow и EntireColumn.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 With Target ' Highlight the entire row and column that contain the active cell .EntireRow.Interior.ColorIndex = 8 .EntireColumn.Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub

Выделение строки и столбца, содержащих активную ячейку, в текущей области

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем в текущей области выделить строку и столбец, содержащие активную ячейку, используя свойство CurrentRegion объекта Range.

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Clear the color of all the cells Cells.Interior.ColorIndex = 0 If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub Application.ScreenUpdating = False With ActiveCell ' Highlight the row and column that contain the active cell, within the current region Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8 Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8 End With Application.ScreenUpdating = True End Sub

Об участнике

Том Уртис, MVP — основатель компании Atlas Programming Management, создающей полноценные бизнес-решения для Microsoft Office и Excel в Кремниевой долине. Том обладает больше чем 25 годами опыта управления бизнесом и разработки приложений для Microsoft Office, а также является соавтором книги «Holy Macro! It’s 2,500 Excel VBA Examples».

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Координатное выделение строки и столбца

При работе с большими таблицами Excel часто теряется текущая строка или столбец, в связи с этим есть риск ввести некорректные данные. Чтобы этого не происходило можно выделить цветом активную строку или столбец.

Описание проблемы

Мне часто приходится работать с «широкими» таблицами, которые не помещаются на экран. Поэтому при перемещении влево вправо глаза теряют текущую строку. Ее приходится долго искать и перепроверять в правильную ли строку вводятся данные. Чтобы этого избежать можно подсвечивать активную строку и столбец. Сделать это удобно с помощью надстройки VBA-Excel.

Вот так работает эта функция.

Как включить подсветку текущей строки и столбца

Координатное выделение включается очень просто: перейдите на вкладку надстройки VBA-Excel и в меню Подсветка выберите Включить перекрестное выделение.

Подсветка автоматически будет работать во всех книгах и на всех листах до тех пор пока вы не нажмете команду Отключить перекрестное выделение или не закроете книгу.

Настройки выделения

Нажмите команду Настройки перекрестного выделения, чтобы открыть панель настроек.

Здесь можно указать подсвечивать ли строки и столбцы вместе или по отдельности.

Можно отдельно указать цвет заливки и шрифта.

Нажмите Сохранить и программа запомнит настройки.

Надстройка
VBA-Excel

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

Выделение содержимого ячеек в Excel

В Excel можно выделять содержимое ячеек, строк или столбцов.

Браузер не поддерживает видео. Установите Microsoft Silverlight, Adobe Flash Player или Internet Explorer 9.

Примечание: Если лист защищен, возможность выделения ячеек и их содержимого может быть недоступна.

Выделение ячеек

Чтобы выделить ячейку, щелкните ее. Для перехода к ячейке и ее выделения также можно использовать клавиатуру.
Чтобы выбрать диапазон, выделите ячейку, а затем, удерживая основную кнопку мыши, перетащите выделение на другие ячейки. Для этого также можно использовать SHIFT+клавиши со стрелками.
Чтобы выделить несмежные ячейки и диапазоны ячеек, выберите их, удерживая нажатой клавишу CTRL.

Выделение строк и столбцов

Щелкните букву в верхней части столбца, чтобы выделить его целиком. Можно также щелкнуть любую ячейку в столбце и нажать клавиши CTRL+ПРОБЕЛ.
Выберите номер строки, чтобы выделить ее целиком. Можно также щелкнуть любую ячейку в строке и нажать клавиши SHIFT+ПРОБЕЛ.
Чтобы выделить несмежные строки или столбцы, выберите их номера, удерживая нажатой клавишу CTRL.

Выделение таблицы, списка или листа

Чтобы выделить список или таблицу, щелкните любую содержащуюся в них ячейку и нажмите клавиши CTRL+A.
Чтобы выделить весь лист, нажмите кнопку Выделить все в его левом верхнем углу.

Примечание: В некоторых случаях выделение одной ячейки может привести к выбору нескольких смежных ячеек. Советы о том, как устранить эту проблему, см. в публикации сообщества под названием Как предотвратить одновременное выделение нескольких ячеек в Excel?.

Хотите узнать больше вариантов?

Чтобы выделить

Выполните следующие действия

Щелкните ячейку или воспользуйтесь клавишами со стрелками, чтобы перейти к нужной ячейке.

Щелкните первую ячейку диапазона, а затем перетащите мышь на его последнюю ячейку. Можно также нажать клавишу SHIFT и расширить выделенную область с помощью стрелок.

Кроме того, можно выделить первую ячейку диапазона, а затем нажать клавишу F8 для расширения выделенной области с помощью стрелок. Чтобы остановить расширение выделенной области, еще раз нажмите клавишу F8.

Большой диапазон ячеек

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

Все ячейки листа

Нажмите кнопку Выделить все.

Чтобы выделить весь лист, также можно нажать клавиши CTRL+A.

Примечание: Если таблица содержит данные, по нажатию клавиш CTRL+A выделяется текущий диапазон. Повторное нажатие клавиш CTRL+A приведет к выделению всей таблицы.

Несмежные ячейки или диапазоны ячеек

Выберите первую ячейку или диапазон ячеек, а затем, удерживая нажатой клавишу CTRL, выделите другие ячейки или диапазоны.

Можно также выбрать первую ячейку или диапазон ячеек, а затем нажать клавиши SHIFT+F8 для включения в выделение других несмежных ячеек или диапазонов. Чтобы остановить включение ячеек и диапазонов, снова нажмите клавиши SHIFT+F8.

Примечание: Отменить выделение отдельных несмежных ячеек или диапазонов без отмены всего выделения невозможно.

Столбец или строку целиком

Щелкните заголовок сроки или столбца.

1. Заголовок строки

2. Заголовок столбца

Можно также выделить ячейки в строке или столбце, выделив первую строку, а затем нажав клавиши CTRL+SHIFT+СТРЕЛКА (ВПРАВО или ВЛЕВО — для строк, ВВЕРХ или ВНИЗ — для столбцов).

Примечание: Если в строке или столбце содержатся данные, при нажатии клавиш CTRL+SHIFT+СТРЕЛКА будет выделена строка или столбец до последней заполненной ячейки. Повторное нажатие клавиш CTRL+SHIFT+СТРЕЛКА приведет к выделению строки или столбца полностью.

Смежные строки или столбцы

Протащите мышь по заголовкам строк или столбцов. Можно также выделить первую строку или столбец, а затем, нажав клавишу SHIFT, выделить последнюю строку или столбец.

Несмежные строки или столбцы

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

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

Выделите ячейку в строке или столбце, а затем нажмите клавиши CTRL+СТРЕЛКА (ВПРАВО или ВЛЕВО — для строк, ВВЕРХ или ВНИЗ — для столбцов).

Первую или последнюю ячейку на листе или в таблице Microsoft Office Excel

Чтобы выделить первую ячейку на листе или в списке Excel, нажмите сочетание клавиш CTRL+HOME.

Чтобы выделить последнюю ячейку, содержащую данные или форматирование, на листе или в списке Excel, нажмите сочетание клавиш CTRL+END.

Ячейки до последней используемой ячейки листа (нижний правый угол)

Выделите первую ячейку, а затем нажмите клавиши CTRL+SHIFT+END, чтобы расширить выделенную область до последней используемой ячейки листа (нижний правый угол).

Ячейки до начала листа

Выделите первую ячейку, а затем нажмите клавиши CTRL+SHIFT+HOME, чтобы расширить выделенную область до начала листа.

Больше или меньше ячеек, чем имеется в активном выделении

Удерживая нажатой клавишу SHIFT, щелкните последнюю ячейку, которую нужно включить в новую выделенную область. В новую выделенную область войдет прямоугольный диапазон между активная ячейка и ячейкой, которая была щелкнута.

Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.