Kalkulator sprzedaży w Excelu VBA

Poniżej przyjrzymy się programowi w Excel VBA że oblicza całkowitą sprzedaż każdego pracownika w okresie trzech lat.

Sytuacja:

Pozostałe dwa arkusze mają tę samą konfigurację, alez różnymi kombinacjami miesięcy i pracowników oraz różnymi numerami sprzedaży. Istnieje kilka sposobów obliczania całkowitej sprzedaży każdego pracownika w programie Excel, ale zobaczymy, że można to zrobić w Excelu VBA bardzo łatwo.

Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:

1. Najpierw deklarujemy trzy zmienne i jeden obiekt Worksheet. Jedną zmienną typu String nazywamy pracownikiem, jedną zmienną typu Integer nazywamy totalem, jednym obiektem Worksheet, który nazywamy arkuszem, i jedną zmienną typu Integer nazywamy i.

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

2. Inicjujemy dwie zmienne. Inicjujemy zmienną total o wartości 0. Używamy funkcji InputBox, aby uzyskać nazwę pracownika od użytkownika.

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

3. Po wprowadzeniu przez użytkownika nazwy pracownika, chcemy obliczyć całkowitą sprzedaż tego pracownika. Skoroszyt składa się z trzech arkuszy. Chcemy programu, który nadal będzie można wykorzystać, jeśli arkusze zostaną dodane w przyszłości. Dlatego używamy następującej linii kodu:

For Each sheet In Worksheets

4. Rozpoczynamy kolejną pętlę For Next.

For i = 2 To 13

5. Jeśli wprowadzona nazwa pracownika jest zgodna z nazwą pracownika w kolumnie B, Excel VBA dodaje numer sprzedaży do zmiennej łącznej. Dodaj następujące linie kodu:

If sheet.Cells(i, 2).Value = employee Then
total = total + sheet.Cells(i, 3).Value
End If

6. Nie zapomnij zamknąć obu pętli.

Next i
Next sheet

7. Na końcu wyświetlamy całkowitą sprzedaż pracownika za pomocą msgbox.

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

8. Sprawdź program.

Wynik dla Davida: