특정 셀에 특정 값을 입력하면 msgbox 띄우기 (매크로 트리거)

@509 님 아래 스크립트는 제가 사용하는 WorkSheet_Change 이벤트 프러시저의 표준 스크립트입니다.

Private Sub Worksheet_Change(ByVal Target As Range)
    '//표준 패턴
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:B5")) Is Nothing Then
        On Error Goto ErrHandler
	Application.EnableEvents = False

        'To do

        Application.EnableEvents = True
    End If

ErrHandler:
    Application.EnableEvents = True

End Sub

Target 인수의 의미는 해당 시트에서 내가 지금 입력/수정/삭제 등 변경을 한 셀 범위를 말합니다. 따라서 Set문으로 별도로 할당하지 않습니다.

그리고 Target 셀이 내가 원하는 곳이 아닐 경우 이 이벤트가 실행되지 않도록 Intersect와 조건문을 적절히 달아줘야 합니다. 또한 에러가 발생할 경우 에러 핸들러(ErrHandler)도 필요합니다. 이벤트가 한 번만 실행되도록 하지 않으면 자칫 무한루프에 빠져 엑셀이 다운되기 때문에 구문 위 아래에 EnableEvents를 설정해줍니다. EnableEvents는 엑셀 전체의 설정을 변경하는 의미이기 때문에 일시 중지시켰다가 에러 등의 이유로 프러시저가 강제 중단되어 다시 복원되지 않으면 그 다음 이벤트는 실행되지 않습니다.

이벤트 프러시져를 처음 접하시는 거라면 아래 동영상이 도움이 될 겁니다.