|
こんにちは
こう言う事かな?
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, _
Union(Range("B1"), Range("D1"), Range("G1"))) Is Nothing Then Exit Sub
Call Check(Range("B1").Value, Range("D1").Value, Range("G1").Value)
'サブルーチン 1_creategraph
End Sub
Private Sub Check(Da, Da1, Da2)
If Da2 = "" Then
MsgBox "最大値を入れてください"
Range("G1").Activate
End
End If
If Da = "" Then
MsgBox "日付を入れてください"
Range("B1").Activate
End
End If
If Da1 = "" Then
MsgBox "日付を入れてください"
Range("D1").Activate
End
End If
If Da > Da1 Then
MsgBox "正しい日付を入力してください"
Range("B1").Activate
End
End If
End Sub
|
|