클릭으로 자동 체크하는 서식 만들기 :: LIVE 79강

📌 강의에 사용된 시트 이벤트 마스터 코드

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'
On Error Resume Next

'
Application.EnableEvents = False

'<-- 선택된 셀의 행/열 번호를 받아옵니다. -->
Dim r As Long: r = Target.Row
Dim c As Long: c = Target.Column

'<-- 선택된 셀이 지정한 범위 안의 셀일 경우 명령문을 실행합니다. -->
If Not Intersect(Target, Range("범위")) Is Nothing Then   '범위를 입력합니다.
    If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
    '명령문 작성
    End If
End If

'
Application.EnableEvents = True

End Sub