Excel VBA 質問スレ Part70

[0286 デフォルトの名無しさん (JP 0Hbb-tdH6) 2021/04/18(日) 11:21:49.65 ID:JCpiu5BAH]

>>285
直す部分だけ書くと、こう

Private Sub Worksheet_Change(ByVal target As Range)
　　Application.EnableEvents = False
　　If Intersect(target, Range("A1:A2")) Is Nothing Then
　　　　Exit Sub
　　End If
　　ClearDates
　　UpdateDates
　　Application.EnableEvents = True
End Sub