Im Folgenden werden wir ein Programm in Excel VBA suchen, die den Gesamtumsatz der einzelnen Mitarbeiter über einen Zeitraum von drei Jahren berechnet.

Situation:

Sales Calculator in Excel VBA

Die beiden anderen Platten haben die gleiche Einstellung, aber mit unterschiedlichen Kombinationen von Monaten und Mitarbeiter sowie verschiedene Verkaufszahlen. Es gibt mehrere Möglichkeiten, um die Gesamtverkäufe der einzelnen Mitarbeiter in Excel zu berechnen, aber wir werden sehen, dass es sehr leicht in Excel VBA getan werden kann.

Platzieren Sie eine Befehlstaste auf dem Arbeitsblatt und fügen Sie die folgenden Codezeilen:

  1. Zuerst erklären wir drei Variablen und ein Objekt Arbeitsblatt. Eine Variable vom Typ String wir Mitarbeiter nennen, eine Variable vom Typ Integer wir insgesamt nennen, ein Arbeitsblatt-Objekt wir Blatt nennen, und eine Variable vom Typ Integer nennen wir i.

Dim employee As String, total As Integer, sheet As Worksheet, i As Integer

  1. Wir initialisieren zwei Variablen. Wir initialisieren die Variable Gesamtwert von 0 Wir haben die Funktion InputBox verwenden, um die Mitarbeiternamen vom Benutzer zu erhalten.

total = 0

employee = InputBox("Enter the employee name (case sensitive)")

Enter Employee Name

  1. Nachdem der Benutzer einen Mitarbeiternamen eingegeben hat, wollen wir den Gesamtumsatz dieser Mitarbeiter berechnen. Das Arbeitsbuch besteht aus drei Lagen.

Wir wollen ein Programm, das immer noch verwendet werden, wenn Blätter in der Zukunft hinzugefügt werden. Deshalb wir die folgende Codezeile verwenden:

For Each sheet In Worksheets

  1. Wir starten eine andere For Next-Schleife.

For i = 2 To 13

  1. Wenn der eingegebene Name des Mitarbeiters mit dem Mitarbeiternamen in Spalte B übereinstimmt, fügt Excel VBA die Verkaufsnummer an die variable Gesamt. Fügen Sie die folgenden Codezeilen:

If sheet.Cells(i, 2).Value = employee Then

total = total + sheet.Cells(i, 3).Value

End If

  1. Vergessen Sie nicht beide Schleifen zu schließen.

Next i

Next sheet

  1. Schließlich zeigen wir den Gesamtumsatz des Mitarbeiters ein msgbox verwenden.

MsgBox "Total sales of " & employee & " is " & total

  1. Testen Sie das Programm.

Ergebnis für David:

Sales Calculator Result