|
こんにちは
Err処理を追加してみました
Private Sub Worksheet_Change(ByVal Target As Range)
Dim onDate As Variant
Dim ofDate As Variant
Dim maxvalue As Variant
On Error GoTo End_Len
Application.ScreenUpdating = False
Application.EnableEvents = False
onDate = Worksheets("Sheet1").Range("B1").Value
ofDate = Worksheets("Sheet1").Range("D1").Value
maxvalue = Worksheets("Sheet1").Range("G1").Value
With Target
If onDate Or ofDate Or maxvalue Then
1_creategraph
End If
End With
On Error GoTo 0
End_Len:
Application.EnableEvents = True
End Sub
|
|