Excelで取引先表を作ってみよう

'データが変更された
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range(Target.Address), Range("D3:D13")) Is Nothing Then
        bDataChangeFlag = True
        Exit Sub
    End If
End Sub

ワークブックイベント

Private Sub Workbook_Open()
    bDataChangeFlag = False
End Sub

標準モジュール

Option Explicit

Public bDataChangeFlag As Boolean