Display-Meldung, wenn die Spalte Gesamt mit VBA in Microsoft Excel überschreitet
überschreitet In diesem Artikel verwenden wir das Änderungsereignis von Arbeitsblättern, um eine Warnmeldung anzuzeigen, wenn die Spaltensumme den Gesamtwert überschreitet.
Rohdaten bestehen aus der Salzzusammensetzung eines Arzneimittels. Es besteht aus Salz Name und es ist Gewicht pro 10 Gramm.
Die Summe aller Salzbestandteile entspricht 10 Gramm. Wenn wir das Gewicht des Ethansalzes von 0,75 auf 1 ändern, wird eine Warnmeldung angezeigt.
Logische Erklärung
In diesem Artikel haben wir das Änderungsereignis des Arbeitsblatts verwendet, um eine Warnmeldung zu generieren. Das Änderungsereignis überprüft die Summe der 2. Spalte, die 10 nicht überschreiten darf.
Code Erklärung
Wenn Target.Column = 2, wird der obige Code verwendet, um das Auslösen des Änderungsereignisses nur dann einzuschränken, wenn der Wert in der 2. Spalte geändert wird.
WorksheetFunction.Sum (Spalten (2))
Der obige Code wird verwendet, um die Summe aller Werte in Spalte 2 zu erhalten.
Bitte folgen Sie unten für den Code
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) 'Checking whether value is changed in second column If Target.Column = 2 Then 'Checking whether sum of values in second column is greater than 10 If WorksheetFunction.Sum(Columns(2)) > 10 Then MsgBox "Caution, Total has exceeded 10g" End If End If End Sub
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]