VBA code zum anzeigen von popup-Message-Box, wenn Sie die Formel in der Zielzelle einen bestimmten Wert übersteigt

Ich versuche zu schreiben, ein einfaches makro, um die Anzeige eines pop-up (vbOKOnly), wenn der Wert in einer Zelle einen bestimmten Wert übersteigt.

Ich haben im Grunde ein Arbeitsblatt mit Produkten und Rabatten. Ich habe eine Formel in einer Zelle, sagen wir A1, zeigt sich der Rabatt als Prozentsatz (50% oder .5) effektive Rabatt auf alle Einträge.

Was ich Suche, ist der code für die Anzeige einer message-box, wenn der Wert der Zelle A1 überschreitet sagen 50%, weil das Eingangssignal einer anderen Zelle schob den Rabatt über 50%.

Dank!

  • Sind Sie sich bewusst der bedingten Formatierung? Gibt es einen Grund, warum du lieber in eine MsgBox, um die bedingte Formatierung?
InformationsquelleAutor Hatt | 2012-04-04
  1. 17

    Fügen Sie den folgenden VBA-code auf Ihr Blatt:

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

    Jedes mal, wenn eine Zelle geändert wird, auf die Platte, es wird überprüfen Sie den Wert der Zelle A1.

    Hinweise:

    • wenn A1 hängt auch davon ab, Daten, die sich in anderen Tabellen, wird das makro nicht aufgerufen werden, wenn Sie ändern die Daten.
    • das makro aufgerufen wird, wird jedesmal aufgerufen, wenn sich etwas ändert auf der Platte. Wenn es hat viele Formel (in 1000), könnte es langsam sein.

    Widor verwendet einen anderen Ansatz (Worksheet_Calculate statt Worksheet_Change):

    • Vorteile: seine Methode funktioniert, wenn A1 den Wert verbunden ist, um Zellen, die sich in anderen Blättern.
    • Nachteile: wenn man viele links auf Ihrem Blatt, dass der Verweis auf andere Blätter, seine Methode läuft ein bisschen langsamer.

    Abschluss: verwenden Sie Worksheet_Change wenn A1 nur abhängig von den Daten, die sich auf dem gleichen Blatt verwenden Worksheet_Calculate wenn nicht.

    • Ja, du hast Recht. Ich habe meinen Beitrag gelöscht. Scheint, dass ich falsch verstanden, die Frage 🙂 +1 für " getting it right 🙂
    • um ehrlich zu sein, habe ich zunächst geantwortet mit Daten-Validierung, bis ich gelesen habe die 3. Zeile der Frage 😉
    • LOL@assylias. Erinnert uns daran, dass wir immer noch Menschen 😉
    • Hey, vielen Dank für all die Kommentare und Antworten alle. Ich habe gelernt, VBA (und verfügbaren subs und Funktionen) fast ausschließlich durch verwenden/brauchen. Ich Plane auf halten Sie alle Daten/ - Verweise auf dem selben Blatt. Vielen Dank nochmal für die Hilfe!
    InformationsquelleAutor assylias
  2. 2

    Im wesentlichen wollen Sie code hinzufügen, um die Calculate - Ereignis des entsprechenden Arbeitsblattes.

    In das Projekt-Fenster im VBA-editor, doppelklicken Sie auf das Blatt, das Sie hinzufügen möchten-code und aus den Dropdown-Menüs am oberen Rand des editor-Fensters, wählen Sie "Arbeitsblatt" und "Berechnen" auf das Links und rechts jeweils.

    Alternativ, kopieren Sie den folgenden code in den editor des Blattes, die Sie verwenden möchten:

    Private Sub Worksheet_Calculate()

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

End Sub

    Diese Weise, jedes mal das Arbeitsblatt neu berechnet wird überprüfen, um zu sehen, ob der Wert > 0,5 oder 50%.

    InformationsquelleAutor Widor
  3. 1

    Ich glaube nicht, dass eine message-box ist der beste Weg zu gehen mit diesem müssen Sie die VB-code läuft in einer Schleife zu prüfen, der Inhalt der Zelle, oder es sei denn, Sie planen, das makro manuell ausführen. In diesem Fall denke ich wäre es besser, fügen Sie eine bedingte Formatierung auf die Zelle, ändern Sie den hintergrund auf rot (zum Beispiel), wenn der Wert die Obergrenze überschreitet.

    • Es gibt keine Notwendigkeit für eine Schleife.
    • Ich dachte entlang der Linien von einer lokalisierten Skript zu konzentrieren, auf der besagten Zelle, wenn Sie mit der Methode, die Sie zur Verfügung gestellt haben, dann true keine Schleife erforderlich ist, aber wie Sie sagen, die mehr Daten auf dem Arbeitsblatt desto länger wird es dauern.
    • Fand diese während der Suche das Thema. Tatsächlich Matt ist korrekt. Während eine Schleife nicht verwendet werden, die in der syntax in VBa, ein Worksheet_Change in der Tat ist eine Konstante "looping" nennen. In anderen Worten, es ist ein interner Aufruf "Alles noch passieren?", über und über, jede Millisekunde.
    InformationsquelleAutor Matt Donnan
Schreibe einen Kommentar