- Excel VBA 質問スレ Part70
286 :デフォルトの名無しさん (JP 0Hbb-tdH6)[sage]: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
|
|