300 Primerov

Kalkulator prodaje

Sales Calculator

Spodaj si bomo ogledali program v Excel VBA to izračuna skupno prodajo vsakega zaposlenega v obdobju treh let.



Položaj:

Kalkulator prodaje v Excelu VBA





Druga dva lista imata enako nastavitev, vendar z različnimi kombinacijami mesecev in zaposlenih ter različnimi prodajnimi številkami. Obstaja več načinov za izračun skupne prodaje vsakega zaposlenega v Excelu, vendar bomo videli, da je to mogoče storiti v Excelu VBA zelo enostavno.

Postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:



oblikujte celice na podlagi drugih celic

1. Najprej razglasimo tri spremenljivke in en predmet delovnega lista. Ena spremenljivka tipa String, ki jo imenujemo zaposleni, ena spremenljivka tipa Integer, ki jo imenujemo total, en predmet delovnega lista, ki ga kličemo list, in ena spremenljivka tipa Integer, ki ga imenujemo i.

NobenazaposlenegaAs Vrvica, skupajAs Celo število, listAs Delovni list, jazAs Celo število

2. Inicializiramo dve spremenljivki. Spremenljivko total inicializiramo z vrednostjo 0. Funkcijo InputBox uporabimo za pridobitev imena zaposlenega.

skupaj = 0
zaposleni = InputBox ('Vnesite ime zaposlenega (glede na velike in male črke)')

Vnesite ime zaposlenega

kako spremeniti vrstice v

3. Ko uporabnik vnese ime zaposlenega, želimo izračunati skupno prodajo tega zaposlenega. Delovni zvezek je sestavljen iz treh listov. Želimo program, ki ga lahko še vedno uporabljamo, če v prihodnosti dodamo liste. Zato uporabljamo naslednjo kodno vrstico:

Za VsaklistVDelovni listi

4. Zaženemo drugo zanko For Next.

Zai = 2Za13

5. Če se vneseno ime zaposlenega ujema z imenom zaposlenega v stolpcu B, Excel VBA spremenljivki skupaj doda številko prodaje. Dodajte naslednje kodne vrstice:

Čelist.Cells (i, 2) .Vrednost = zaposleniPotem
skupaj = skupaj + list. Celice (i, 3) .Vrednost
Konec Če

6. Ne pozabite zapreti obeh zank.

Naslednjijaz
Naslednjilist

7. Nazadnje prikažemo celotno prodajo zaposlenega z uporabo sporočila.

kako prikazati r2 v
MsgBox 'Skupna prodaja' & zaposleni & 'je' & skupaj

8. Preizkusite program.

Rezultat za Davida:

Rezultat prodajnega kalkulatorja

5/8 Dokončano! Več o knjigah in listih>
Pojdi na naslednje poglavje: Objekt obsega



^