이벤트

SelectionChange : 셀 선택 시 코드 작동

Change : 셀 값 변경 시 코드 작동

이벤트 사용시 무한 루프되는 것을 방지

Private Sub Worksheet_Change(ByVal Target As Range)

Application ScreenUpdating = False

‘속도를 빠르게

Appilcation. Enabletvents = False

‘이벤트 동작 멈춤

If Not Intersect(Target, Range(" 71")) Is Nothing Then

  실행할 명령문

End If

Application. ScreenUpdating = True

‘화면 켜짐

Application.EnableEvents = True

’이벤트 활성화

End Sub