/ / Kalkulačka predaja v programe Excel VBA

Predajná kalkulačka v programe Excel VBA

Nižšie sa pozrieme na program v sekcii Excel VBA že vypočíta celkový predaj každého zamestnanca počas obdobia troch rokov.

situácie:

Predajná kalkulačka v programe Excel VBA

Ostatné dva listy majú rovnaké nastavenie, ales rozdielnymi kombináciami mesiacov a zamestnancov a rozdielnymi predajnými číslami. Existuje niekoľko spôsobov, ako vypočítať celkové tržby každého zamestnanca v programe Excel, ale uvidíme, že to môže byť vykonané vo Excel VBA veľmi ľahko.

Do pracovného hárka umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:

1. Najprv deklarujeme tri premenné a jeden objekt pracovného hárka. Jedna premenná typu String nazývame zamestnancom, jedna premenná typu Integer, ktorú nazývame celkom, jeden objekt pracovného hárka, ktorý voláme, a jednu premennú typu Integer nazývame i.

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

2. Inicializujeme dve premenné. Inicializujeme celú premennú s hodnotou 0. Používame funkciu InputBox na získanie mena zamestnanca od používateľa.

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

Zadajte meno zamestnanca

3. Keď používateľ zadá meno zamestnanca, chceme vypočítať celkové tržby tohto zamestnanca. Pracovný zošit pozostáva z troch hárkov. Chceme použiť program, ktorý sa dá použiť aj v budúcnosti. Preto používame nasledujúci riadok kódu:

For Each sheet In Worksheets

4. Začneme ďalšiu slučku For Next.

For i = 2 To 13

5. Ak sa zadané meno zamestnanca zhoduje s názvom zamestnanca v stĺpci B, Excel VBA pridá číslo predaja k celkovej premennej. Pridajte nasledujúce riadky kódu:

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

6. Nezabudnite zavrieť obe slučky.

    Next i
Next sheet

7. Nakoniec zobrazujeme celkový predaj zamestnanca pomocou správy msgbox.

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

8. Otestujte program.

Výsledok pre Davida:

Výsledok predajnej kalkulačky

Tiež si prečítajte: