質問者が納得こんな感じで
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C5:C9,E5:E9,g5:g9,i5:i9,k5:k9,m5:m9,o5:o9,q5:q9,s5:s9")) Is Nothing Then Exit Sub
If WorksheetFunction.IsNumber(Target.Value) = True Then
Application.EnableEv...
5389日前view19