VBA 셀선택 색상변경

https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=310724384&qb=7JeR7IWAIO2BtOumre2VmOuptCDtlonsoITssrQg7IOJ7IOB67OA6rK9&enc=utf8&section=kin&rank=2&search_sort=0&spq=0&pid=UbgzxlpySDossud058Rsssssshd-347310&sid=0NAJuBKV2B7jdSmXKO%2Bd6g%3D%3D

특정열에 속한 행을 클릭시에만 해당 행 전체가 노락색으로 바탕색이 변경...

Alt + F11

시트 더블클릭

Worksheet

이벤트 Change

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim k As Integer, r As Integer, iCol As Integer
    Dim rC As Range

    iCol = 6 '색상 변경

    With Target
          If .Count > 1 Then Exit Sub
          If .Column <> 1 Then Cells.Interior.ColorIndex = xlNone: Exit Sub ' 여기 수정
          Cells.Interior.ColorIndex = xlNone
          .EntireRow.Interior.ColorIndex = iCol
    End With
End Sub