Excel - 개발도구 - Visual Basic 코드로 선택한 셀의 행 및 열 자동 강조 표시

Visual Basic 코드(컬러 색상은 비슷한 번호가 없어서 20으로 설정해 보았습니다)

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'Update 20200430

Static xRow

Static xColumn

If xColumn <> "" Then

    With Columns(xColumn).Interior

        .ColorIndex = xlNone

    End With

    With Rows(xRow).Interior

        .ColorIndex = xlNone

    End With

End If

pRow = Selection.Row

pColumn = Selection.Column

xRow = pRow

xColumn = pColumn

With Columns(pColumn).Interior

    .ColorIndex = 20

    .Pattern = xlSolid

End With

With Rows(pRow).Interior

    .ColorIndex = 20

    .Pattern = xlSolid

End With

 

End Sub