WorkSheet Event - Heeyoung-Ahn/Excel_VBA GitHub Wiki

WorkSheet Activate Event

Private Sub WorkSheet_Activate()
    MsgBox ActiveSheet.Name & " 시트를 선택했습니다."
End Sub

WorkSheet BeforeDoubleClick Event

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True '더블클릭모드 해제
    If Target.Address = Range("A1").Address Then
      MsgBox "11"
    End If
End Sub

WorkSheet Change Event

Private Sub WorkSheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        MsgBox "11"
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rngA As Range
    Set rngA = Range("A2")
    If Not Intersect(rngA, Target) Is Nothing Then
        MsgBox "A2셀을 선택했네요."
    End If
End Sub