Im Folgenden sehen wir uns ein Programm in an Excel VBA das berechnet den Gesamtumsatz eines jeden Mitarbeiters über einen Zeitraum von drei Jahren.
Lage:
Die anderen beiden Blätter haben die gleiche Einrichtung, aber mit unterschiedlichen Kombinationen von Monaten und Mitarbeitern und unterschiedlichen Verkaufszahlen. Es gibt mehrere Möglichkeiten, den Gesamtumsatz jedes Mitarbeiters in Excel zu berechnen, aber wir werden sehen, dass dies in Excel VBA sehr einfach möglich ist.
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir drei Variablen und ein Worksheet-Objekt. Eine Variable vom Typ String nennen wir Employee, eine Variable vom Typ Integer nennen wir total, ein Worksheet-Objekt nennen wir sheet und eine Variable vom Typ Integer nennen wir i.
Dim Employee As String, Total As Integer, Sheet As Worksheet, i As Integer
2. Wir initialisieren zwei Variablen. Wir initialisieren die Variable total mit dem Wert 0. Wir verwenden die InputBox-Funktion, um den Mitarbeiternamen vom Benutzer zu erhalten.
gesamt = 0
Mitarbeiter = InputBox("Geben Sie den Mitarbeiternamen ein (Groß-/Kleinschreibung beachten)")
3. Nachdem der Benutzer einen Mitarbeiternamen eingegeben hat, möchten wir den Gesamtumsatz dieses Mitarbeiters berechnen. Das Arbeitsbuch besteht aus drei Blättern. Wir wollen ein Programm, das weiterhin verwendet werden kann, wenn in Zukunft Blätter hinzugefügt werden. Daher verwenden wir die folgende Codezeile:
Für jedes Blatt in Arbeitsblättern
4. Wir starten eine weitere For Next-Schleife.
Für i = 2 bis 13
5. Wenn der eingegebene Mitarbeitername mit dem Mitarbeiternamen in Spalte B übereinstimmt, fügt Excel VBA die Verkaufsnummer zur variablen Summe hinzu. Fügen Sie die folgenden Codezeilen hinzu:
Wenn Blatt.Zellen(i, 2).Wert = Angestellter Dann
Gesamt = Gesamt + Blatt.Zellen(i, 3).Wert
Ende Wenn
6. Vergessen Sie nicht, beide Schleifen zu schließen.
Als nächstes
Nächstes Blatt
7. Abschließend zeigen wir den Gesamtumsatz des Mitarbeiters über eine msgbox an.
MsgBox "Gesamtumsatz von " & Mitarbeiter & " ist " & Gesamt
8. Testen Sie das Programm.
Ergebnis für David:
