0

あるセルの値が別のセルよりも小さいか大きい場合にメッセージ ボックスをポップアップ表示し、差を表示する VBA コードを作成するにはどうすればよいでしょうか?

列 N には合計 appts が含まれます (手入力)

列 R には合計結果が含まれます (生成された式)

計算後の列 R のセルが列 N のセルより小さいか大きい場合、メッセージ ボックスがポップアップし、合計結果が appts よりも # 少ない、または合計結果が appts よりも # 大​​きいと表示されます。

4

2 に答える 2

0

(セルの列全体ではなく) 2 つのセルを相互に比較する場合:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Range("N1") > Range("R1") Then
        MsgBox "Oops. Results less than Input by " & Abs(Range("N1") - Range("R1"))
    End If

    If Range("N1") < Range("R1") Then
        MsgBox "Oops. Results greater than Input by " & Abs(Range("N1") - Range("R1"))
    End If

End Sub

これにより、次のことが達成されるはずです。

  • シートが変更されるたびに、2 つのセルを相互に比較します (それが R1 の数式生成値、N1 の手動入力、またはシート上のその他のものであるかどうかに関係なく)。
  • どちらが大きいかを特定する
  • 適切なメッセージをポップアップ表示する
于 2016-06-14T15:53:23.587 に答える