/ / Salgskalkulator i Excel VBA

Salgskalkulator i Excel VBA

Nedenfor vil vi se på et program i Excel VBA at beregner det samlede salg af hver medarbejder over en periode på tre år.

Situation:

Salgskalkulator i Excel VBA

De to andre ark har samme opsætning, menmed forskellige kombinationer af måneder og medarbejdere og forskellige salgstal. Der er flere måder at beregne det samlede salg af hver medarbejder i Excel, men vi vil se, at det kan gøres i Excel VBA meget nemt.

Placer en kommandoknap på dit regneark og tilføj følgende kodelinjer:

1. For det første erklærer vi tre variabler og et regnearkobjekt. En variabel af typen String vi kalder medarbejder, en variabel af typen Integer vi kalder totalt, et Regneark objekt vi kalder ark og en variabel af typen Integer vi kalder i.

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

2. Vi initialiserer to variabler. Vi initialiserer variabelværdien med værdi 0. Vi bruger InputBox-funktionen til at få medarbejdernavnet fra brugeren.

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

Indtast medarbejdernavn

3. Når brugeren har indtastet et medarbejdernavn, vil vi beregne den samlede salg af denne medarbejder. Arbejdsbogen består af tre ark. Vi vil have et program, der stadig kan bruges, hvis der tilføjes ark i fremtiden. Derfor bruger vi følgende kodelinje:

For Each sheet In Worksheets

4. Vi starter en anden til næste løkke.

For i = 2 To 13

5. Hvis det indtastede medarbejdernavn matcher medarbejdernavnet i kolonne B, tilføjer Excel VBA salgsnummeret til variablen i alt. Tilføj følgende kode linjer:

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

6. Glem ikke at lukke begge løkker.

    Next i
Next sheet

7. Endelig viser vi det samlede salg af medarbejderen ved hjælp af en msgbox.

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

8. Test programmet.

Resultat for David:

Salgsberegningsresultat

Læs også: