ターゲットセルの数式が特定の値を超えた場合にメッセージボックスのポップアップを表示するVBAコード

Question

セルの値が一定の値を超えた場合、ポップアップ（vbOKOnly）を表示する簡単なマクロを作成しようとしています。

私は基本的に製品と割引のあるワークシートを持っています。私は1つのセル、たとえばA1で、割引をすべてのエントリのパーセント（50％または.5）有効割引として表示する式を持っています。

私が探しているのは、別のセルの入力が50％を超えて割引をプッシュしたため、セルA1の値が50％を超えるとメッセージボックスを表示するコードです。

ありがとうございます！

Answer 1

あなたのシートに次のVBAコードを追加することができます。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Range("A1") > 0.5 Then 
     MsgBox "Discount too high" 
    End If 
End Sub 

セルがシートに変更されるたびに、それは、セルA1の値をチェックします。

注：

• A1は、他のスプレッドシートにあるデータに依存している場合、あなたがそのデータを変更した場合、マクロは呼び出されませます。
• あなたのシート上で何かが変わるたびにマクロが呼び出されます。それが（1000sのように）たくさんの公式を持っているなら、それは遅くなるかもしれません。

Widorは（Worksheet_Calculate代わりWorksheet_Changeの）異なるアプローチを使用して：

• 長所：A1の値が他のシートに位置するセルにリンクされている場合、彼の方法で動作します。
• 短所：シートに他のシートを参照するリンクが多数ある場合、その方法は少し遅くなります。

結論：A1は、同じシート上にあるデータに依存する場合、Worksheet_Changeを使用しない場合はWorksheet_Calculateを使用しています。

Answer 2

セル内容を確認するためにループ内で実行されているVBコードが必要な場合、または手動でマクロを実行する予定がない場合、メッセージボックスはこれを実行する最善の方法ではないと思います。この場合、値が上限を超えた場合、背景を赤に（たとえば）変更するために条件付き書式をセルに追加する方が良いと思います。

Answer 3

本来、関連するワークシートのCalculateイベントにコードを追加したいとします。

VBAエディタの[プロジェクト]ウィンドウで、コードを追加するシートをダブルクリックし、エディタウィンドウの上部にあるドロップダウンから[ワークシート]と[計算]を選択し、右それぞれ。値が> 0.5または50％であるかどうかを確認するために

Private Sub Worksheet_Calculate() 

If Sheets("MySheet").Range("A1").Value > 0.5 Then 
    MsgBox "Over 50%!", vbOKOnly 
End If 

End Sub 

この方法では、ワークシートを再計算するたびに、それがチェックされます：

また、使用するシートのエディタに以下のコードをコピー。