как выделить строку и столбец в Excel

Question

Как я могу использовать VBA или условное форматирование, чтобы выделить всю текущую строку и столбец текущей ячейки? Спасибо.

Answer 1

Вот один из способов:

ActiveSheet.Rows(ActiveCell.Row).Interior.Color = RGB(r, g, b)
ActiveSheet.Columns(ActiveCell.Column).Interior.Color = RGB(r, g, b)

Вы можете заполнить r, g & b, чтобы получить нужный цвет подсветки.

Answer 2

В событии изменения выбора рабочих листов вы можете использовать что-то вроде этого:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Const HIGHLIGHT_COLOR As Long = 4

    'remove past colors
    ActiveSheet.Cells.Interior.ColorIndex = xlNone

    With Me
        .Columns(Target.Column).Interior.ColorIndex = HIGHLIGHT_COLOR
        .Rows(Target.Row).Interior.ColorIndex = HIGHLIGHT_COLOR
    End With
End Sub