선택한 셀 색상 변경하기

SelectionChange 이벤트로 선택한 셀 색상 바꾸기

셀을 클릭할 때마다 셀 색상이나 글자 모양이 변할 것입니다. 이것은 워크시트 오브젝트의 SelectionChange 이벤트를 사용하면 쉽게 구현할 수 있습니다.

(1) 워크시트 코드 창 열기

(1) VB Editor 상태에서 프로젝트 탐색기 이벤트를 삽입할 워크시트를 더블클릭 합니다.

(2) 이벤트 선택하기

(2) 코드 입력 창 우측 상단의 콤보 박스 중에서 Worksheet 오브젝트와 SelectionChange 이벤트를 선택합니다.

아이엑셀러

(3) 코드 작성하기

(3) 그러면 Worksheet_SelectionChange 이벤트 핸들러 프로시저가 생성되는데 여기에 아래와 같은 코드를 작성합니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static OldCell As Range
    On Error Resume Next
    '''여기서 OldCell 이라는 Range 오브젝트 변수를 선언할 때 Static, 즉 정적 변수로 선언해 준
    '''점에 유의하시기 바랍니다.
    '''왜 Static 변수로 선언해 주었는 지 확실하게 이해하시려면 이것을 Dim으로 선언한 다음
    '''다시 실행시켜 보시면 명확해 질 것입니다.

    If Not OldCell Is Nothing Then
        With OldCell
            .Interior.ColorIndex = xlNone
            .Font.Bold = False
            .Font.ColorIndex = 1
        End With
    End If

    With Target
        .Interior.ColorIndex = 3
        .Font.Bold = True
        .Font.ColorIndex = 2
    End With
    Set OldCell = Target
    '''그 밖의 나머지 구문에 대해서는 설명을 하고 말고 할 것도 없겠지요? ^^
    '''다만 위의 Set OldCell = Target라는 문장이 왜 필요한 지, 어떤 역할을 수행하는 지에
    '''대해서는 곰곰히 생각해 보시기 바랍니다.
End Sub

모든 시트에 적용하려면

만약 특정한 워크시트뿐만 아니라 모든 시트에 대해 위와 같은 작업을 수행하도록 하시려면 Workbook_SheetSelectionChange 이벤트를 이용하시면 되겠습니다.

마무리

오늘은 짧게 여기까지…

정리 — 선택 셀 강조 핵심

자주 묻는 질문 (FAQ)

마치며

SelectionChange 이벤트와 Static 변수를 함께 쓰면 선택한 셀만 눈에 띄게 강조하는 기능을 간단히 만들 수 있습니다.