특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트

Excel VBA를 사용하여 특정 셀을 선택하면 해당 셀이 속한 행을 하이라이트하는 방법은 다음과 같습니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '이전에 선택된 셀의 하일라이트 해제
    Cells.Interior.ColorIndex = xlNone

    '현재 선택된 셀이 있는 행을 하이라이트
    If Target.Cells.Count = 1 Then
        Target.EntireRow.Interior.ColorIndex = 6 '하이라이트 색상 지정
    End If
End Sub

 

위 코드는 워크시트의 SelectionChange 이벤트 핸들러를 사용합니다. 이 이벤트 핸들러는 사용자가 워크시트에서 다른 셀을 선택할 때마다 호출됩니다. 이전에 선택된 셀의 하이라이트를 해제하고, 현재 선택된 셀이 속한 행을 하이라이트하는 기능을 수행합니다.

위 코드에서 6은 하이라이트에 사용할 색인 번호입니다. 이 숫자는 필요에 따라 다른 색상으로 변경할 수 있습니다. 또한, EntireRow 대신 EntireColumn을 사용하면 열을 하이라이트할 수도 있습니다.

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    '// "A1:Z7" 셀이 선택된 경우 하이라이트하지 않음
    If Not Intersect(Target, Range("A1:Z7")) Is Nothing Then
        Exit Sub
    End If
       
    '// 이전에 선택된 셀의 하일라이트 해제
    Range("A8:Z3000").Interior.ColorIndex = xlNone

    '// 현재 선택된 셀이 있는 행을 하이라이트
    If Target.Cells.Count = 1 Then
        Target.EntireRow.Interior.ColorIndex = 6 '//하이라이트 색상 지정
    End If

End Sub

특정 범위에 속한 셀이 선택된 경우 하이라이트를 하지 않도록 할 수 있습니다.
Exit Sub 구문은 셀이 선택된 경우 하이라이트를 하지 않고 이벤트 핸들러를 종료합니다.

 

위 코드는 인공지능 - ChatGPT가 만들었습니다

색상 정보 입니다

 

엑셀 VBA에서 색상을 지정하기 위한 ColorIndex 색상표와 색상을 설정 방법