メッセージボックス 1度だけ表示したい

完全に素人ですみません。

　　A　B　C　D　E　F
1　１　２　　　　１
2　２　４　　　　２
3　１　１　　　　０
4　
5

E1=B1-A1の数式が入ってます。　
F1=D1-C1の数式が入ってます。
E列、F列が＋になった場合のみコメントをメッセージボックスで出現させたいです。
以下のコードでやってみましたが、E1が＋１となった場合はメッセージボックスが出てきてよいのですが、E2も＋１となった場合は、メッセージボックスが2回出てきます。
一度だけ出現するようにするにはどうすればよいですか？
何卒、よろしくお願い申し上げます。

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("E1").Value > 0 Then MsgBox "コメント"

If Range("E2").Value > 0 Then MsgBox "コメント"

If Range("E3").Value > 0 Then MsgBox "コメント"

If Range("F1").Value > 0 Then MsgBox "コメント"

If Range("F2").Value > 0 Then MsgBox "コメント"

If Range("F3").Value > 0 Then MsgBox "コメント"
End Sub

質問者からの補足コメント

• 補足で、上記を加工して以下のようにしたいのですが、可能でしょうか？
  
  　A　B　C　D　E　F　G　H　I　J　K　L　M　N　O　P　Q　R　S　T　U　V　W　X　Y　Z
  1　
  2　
  3　
  4　　　　　　　２　　　　　　　　　　　　２
  5　　　　　　　３　　　　　　　　　　　　２　　　　　　　　　　　　　　１　０
  6　　　　　　　３　　　　　　　　　　　　２
  7　　　　　　　２　　　　　　　　　　　　３　　　　　　　　　　　　　　-1　１　　
  ･
  34　　　　　　３　　　　　　　　　　　　１
  35　　　　　　４　　　　　　　　　　　　２　　　　　　　　　　　　　　１　１　
  E列にて、E5-E4の値をV5に返しています。
  M列にて、M5-M4の値をW5に返しています。
  この時、V列及びW列が＋になった場合に1回のみメッセージボックスを表示させたいです。
  何卒、よろしくお願い申し上げます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2016/11/11 10:52

No.3 ベストアンサー 回答者： jmuiny 回答日時： 2016/11/11 11:16

補足でというより、まず検証結果を書いて頂きたかったです。

それでいいという前提です。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tmp As Variant
If Target.Count > 1 Then Exit Sub
If Target.Row < 5 Or Target.Column <> 5 And Target.Column <> 13 Then Exit Sub
If Target.Column = 5 Then
tmp = Range("V" & Target.Row)
Else
tmp = Range("W" & Target.Row)
End If
If tmp > 0 Then
MsgBox "コメント"
End If
End Sub

この回答へのお礼

ありがとうございます<m(__)m>
完璧に思い通りに作動しました！

お礼日時：2016/11/11 15:08

No.2 回答者： WindFaller 回答日時： 2016/11/11 10:47

こんにちは。

>E列、F列が＋になった場合のみコメント

+1 ということは、（動的に)増加したことであって、数値がプラスでも増加しなければ、コメントは出さない、ということだと思いました。難易度3～4クラスの難問のひとつだと思いました。

しかし、コードをみるとその様子はないようです。#1さんの回答も同様です。

私の読み違えでしたら、この以下のコードの解釈は間違っています。

'//
Dim mem
Private Sub Worksheet_Change(ByVal Target As Range)
　Dim ans As Variant
　Dim rng As Range
　Dim ret as Variant
　If Target.Count > 1 Then Exit Sub
　If Target.Column > 2 Then Exit Sub
　If Target.Value = "" Then Exit Sub
　Set rng = Target(1).DirectDependents
　If Intersect(rng, Columns("E:F")) Is Nothing Then Exit Sub
　Application.EnableEvents = False
　If Target.Value <> "" Then
　　ret = Target.Value
　　ans = Target.DirectDependents.Value
　　Application.Undo
　　mem = Target.DirectDependents.Value
　　Target.Value = ret
　End If
　If ans > mem Then
　　MsgBox "Increased"
　End If
　Application.EnableEvents = True
End Sub

No.1 回答者： jmuiny 回答日時： 2016/11/11 06:34

Ａ列からＤ列までの入力で実行させたいイベントなので、その列もチェックした方がいいです。

一例です。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 4 Then Exit Sub
If Target.Column < 3 Then
tmp = Range("E" & Target.Row)
Else
tmp = Range("F" & Target.Row)
End If
If tmp > 0 Then
MsgBox "コメント"
End If
End Sub

この回答へのお礼

ありがとうございます(^_-)-☆
早速試してみます！

お礼日時：2016/11/11 10:15