/ / Értékesítési számológép az Excel VBA-ban

Értékesítési kalkulátor Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA hogy kiszámítja a teljes értékesítést hároméves időszak alatt.

Helyzet:

Értékesítési kalkulátor Excel VBA-ban

A másik két lapnak ugyanaz a beállítása, dehónapok és alkalmazottak különböző kombinációival és különböző értékesítési számokkal. Számos módszerrel számolhatjuk ki az egyes dolgozók teljes értékesítését az Excel-ben, de látni fogjuk, hogy az Excel VBA-ban nagyon könnyen elvégezhető.

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:

1. Először három változót és egy munkalap objektumot deklarálunk. Egy változó típusú Stringet nevezzünk alkalmazottnak, egy olyan típusú változót, amelyet teljes számunknak nevezünk, egy munkalap objektumot nevezünk lapnak, és egy olyan típusú változót, amelyet Integer-nek hívunk.

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

2. Két változót inicializálunk. Inicializáljuk a 0. változót a 0. értékkel. Az InputBox funkcióval megkapjuk a munkavállaló nevét a felhasználótól.

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

Írja be a munkavállaló nevét

3. Miután a felhasználó beírta a munkavállaló nevét, azt szeretnénk kiszámítani a munkavállaló teljes értékesítését. A munkafüzet három lapból áll. Olyan programot akarunk, amely még használható, ha a lapokat hozzáadják a jövőben. Ezért a következő kódot használjuk:

For Each sheet In Worksheets

4. Elindítunk egy másik For Next hurkot.

For i = 2 To 13

5. Ha a megnevezett alkalmazott neve megegyezik a B oszlopban szereplő alkalmazott nevével, az Excel VBA hozzáadja az értékesítési számot a teljes változóhoz. Adja hozzá a következő kódsorokat:

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

6. Ne felejtsd el lezárni mindkét hurkot.

    Next i
Next sheet

7. Végül megjelenítjük a munkavállaló teljes értékesítését egy msgbox segítségével.

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

8. Vizsgálja meg a programot.

David eredménye:

Értékesítési számológép eredmény

Szintén olvasható: