ü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.

ArrowRaw

Die Summe aller Salzbestandteile entspricht 10 Gramm. Wenn wir das Gewicht des Ethansalzes von 0,75 auf 1 ändern, wird eine Warnmeldung angezeigt.

ArrowOutput

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]