U nastavku ćemo pogledati program u Excel VBA da izračunava ukupnu prodaju svakog zaposlenika u razdoblju od tri godine.
Situacija:
Druga dva lista imaju isti raspored, ali s različitim kombinacijama mjeseci i zaposlenika, te različitim prodajnim brojevima. Postoji nekoliko načina za izračunavanje ukupne prodaje svakog zaposlenika u Excelu, ali vidjet ćemo da se to može učiniti u Excelu VBA vrlo jednostavno.
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo, deklariramo tri varijable i jedan objekt radnog lista. Jedna varijabla tipa String koju nazivamo zaposlenik, jedna varijabla tipa Integer koju nazivamo total, jedan objekt radnog lista koji nazivamo listom i jedna varijabla tipa Integer koju nazivamo i.
Dim zaposlenik kao niz, ukupno kao cijeli broj, list kao radni list, i kao cijeli broj
2. Pokrećemo dvije varijable. Inicijaliziramo varijablu total s vrijednošću 0. Koristimo InputBox funkciju da od korisnika dobijemo naziv zaposlenika.
ukupno = 0
zaposlenik = InputBox ("Unesite naziv zaposlenika (osjetljivo na velika i mala slova)")
3. Nakon što je korisnik unio ime zaposlenika, želimo izračunati ukupnu prodaju tog zaposlenika. Radna bilježnica sastoji se od tri lista. Želimo program koji se i dalje može koristiti ako se listovi dodaju u budućnosti. Stoga koristimo sljedeći kodni redak:
Za svaki list na radnim listovima
4. Pokrećemo drugu petlju For Next.
Za i = 2 do 13
5. Ako se uneseno ime zaposlenika podudara s imenom zaposlenika u stupcu B, Excel VBA dodaje broj prodaje u varijablu ukupno. Dodajte sljedeće retke koda:
Ako list.Želije (i, 2) .Vrijednost = zaposlenik Tada
ukupno = ukupno + list.Želije (i, 3) .Vrijednost
Završi ako
6. Ne zaboravite zatvoriti obje petlje.
Sljedeći i
Sljedeći list
7. Na kraju, prikazujemo ukupnu prodaju zaposlenika pomoću poruke.
MsgBox "Ukupna prodaja" & zaposlenika & "je" & ukupna
8. Testirajte program.
Rezultat za Davida: