셀 변경 내용을 메모에 기록하기

Step 1: 어떤 질문이었을까요?

셀의 내용이 변경될 때마다 표시를 할 수 없느냐는 질문을 주신 분이 있었습니다. 다른 방법도 있을 수 있습니다만, Worksheet 오브젝트의 Change 이벤트를 잘 이용하면 충분히 가능합니다.

아래의 버튼을 눌러 Stage 시트로 가신 다음 셀의 내용을 마음대로 바꾸어 보세요.

어떤 셀이든 내용에 변경이 있을 경우 변경된 이력이 메모에 차곡차곡 담기게 됩니다.

아이엑셀러

Step 2: Worksheet_Change 이벤트 작성하기

(1) 이력이 계속 기록되도록 할 워크시트의 시트탭을 오른쪽 마우스 버튼으로 클릭하고 '코드 보기' 메뉴를 선택합니다.

아이엑셀러

(2) Worksheet 오브젝트의 Change 이벤트를 선택합니다.

아이엑셀러

(3) 아래와 같은 코드를 작성합니다.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

    Dim rngCell As Range
    Dim strOld As String
    Dim strNew As String

    For Each rngCell In Target
        With rngCell
            If Not .Comment Is Nothing Then strOld = .Comment.Text Else strOld = ""
            ' 셀에 기존에 입력된 메모 내용이 있으면 strOld 라는 문자열 변수에 담아 둡니다.

            If .Comment Is Nothing Then .AddComment

            strNew = strOld & Application.UserName & "님에 의해 " _
                & Now & "에 수정되었습니다" & vbLf
            ' 기존 메모 내용에 새로운 정보(변경된 이력 정보)를 계속 추가해 나갑니다.

            .Comment.Text Text:=strNew
            .Comment.Shape.TextFrame.AutoSize = True
            ' 메모의 크기를 내용에 맞게 조절합니다.
        End With
    Next rngCell

End Sub

Change 이벤트는 워크시트의 셀 내용이 바뀔 때마다 실행되며, 바뀐 셀이 Target 인수로 전달됩니다. 각 셀의 기존 메모 내용에 사용자 이름과 수정 시각을 한 줄씩 덧붙이는 방식이므로 변경 이력이 차곡차곡 쌓입니다.

싱거우리만치 간단하지 않습니까? ^^ 어떤 곳에 응용을 하면 좋을 지 골똘히 고민해 보세요.

이번 시간은 여기까지…

정리 — 변경 이력 메모 핵심 코드

자주 묻는 질문 (FAQ)

마치며

이벤트 프로시저를 활용하면 별도의 조작 없이 변경 이력을 자동으로 남길 수 있습니다. 어떤 업무에 응용할지 고민해 보시기 바랍니다.