Как изменить цвет ячейки при клике или выделении в Excel?

В этой статье мы покажем вам несколько методов изменения цвета ячейки при клике на неё, а также изменения цвета выделения при выборе диапазона ячеек в Excel.

Изменение цвета ячейки при клике с помощью кода VBA
Изменение цвета выделения при выборе ячеек с помощью кода VBA
Выделение всей строки и столбца активной ячейки с помощью Kutools для Excel

Изменение цвета ячейки при клике с помощью кода VBA

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

1. В листе, где вы хотите изменить цвет ячейки при клике на неё, щелкните правой кнопкой мыши по вкладке листа и выберите Просмотр кода из контекстного меню.

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код VBA в окно Код.

VBA: изменение цвета ячейки при клике на неё

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbRed
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Target.Interior.Color = vbGreen
End Sub

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

Теперь, когда вы дважды щелкаете по ячейке, она окрашивается в красный цвет. А при щелчке правой кнопкой мыши по ячейке она окрашивается в зеленый цвет. См. скриншот:

Изменение цвета выделения при выборе ячеек с помощью кода VBA

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

1. Щелкните правой кнопкой мыши по вкладке листа, где вы хотите изменить цвет выделения выбранного диапазона, и выберите Просмотр кода из контекстного меню.

2. В окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код VBA в окно Код.

Код VBA: изменение цвета выделения выбранного диапазона

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , "TRUE"
        .FormatConditions(1).Interior.Color = vbYellow
    End With
End Sub

3. Нажмите клавиши Alt + Q одновременно, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

Выделение всей строки и столбца активной ячейки с помощью Kutools для Excel

Если вы работаете с большим листом, необходимо выделить всю строку и столбец активной ячейки, чтобы облегчить чтение. Утилита Режим чтения Kutools для Excel может помочь вам в этом.

1. Нажмите Kutools > Режим чтения. См. скриншот:

После этого режим чтения будет включен, и вы сразу увидите, что строка и столбец активной ячейки выделены.

Примечание: Вы можете изменить настройки режима чтения в зависимости от ваших потребностей, как показано на скриншоте ниже.

Демонстрация: Выделение всей строки и столбца активной ячейки с помощью Kutools для Excel