您可以使用Worksheet_Change事件：

You can use the Worksheet_Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("A1"), Target) Is Nothing Then
        Application.EnableEvents = False
        ' Your code here
        ...
        Application.EnableEvents = True
    End If
End Sub