VBA 질문

code.txt

지식인 질문 :

하나의 셀을 선택하면 해당되는 전체 행이 선택되고 선택된 셀은 아래 그림과 같이 반전이 일어 나도록 코딩할 수 있나요?

본좌 답변 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
 With Target
  If .Column > 20 Then Exit Sub
    For i = 1 To 20 Step 1
        Columns(i).Interior.ColorIndex = xlNone
    Next
    For i = 1 To 20 Step 1
        Cells(Target.Row, i).Interior.ColorIndex = 15
        Cells(Target.Row, Target.Column).Interior.ColorIndex = 17
    Next
 End With
End Sub

 

 

Alt + F11을 누르시고 적용하고자 하는 시트를 더블클릭하신 뒤

붙여넣기 하시고,

[파일] - [닫고 엑셀로 돌아가기]를 선택하신뒤 확인해보세요.

T열까지 적용됩니다. for문에 있는 20을 조절하면 적용하게할 열을 설정해줄 수 있습니다.

T열 이후를 선택하면

 

참고로 이 코드는 ks_1862님이 전에 작성하신 글을 토대로 편집하였음을 밝힙니다.

도움이 되셨길 바랍니다.