U nastavku ćemo pogledati program u Excel VBA koji dijeli iznos novca na novčanice i kovanice.
Situacija:
Napravite događaj promjene radnog lista. Kôd dodan događaju promjene radnog lista izvršit će Excel VBA kada promijenite ćeliju na radnom listu.
1. Otvorite Visual Basic Editor.
2. Dvaput kliknite na Sheet1 (Sheet1) u Project Exploreru.
3. Odaberite Radni list s lijevog padajućeg popisa. Odaberite Promijeni s desnog padajućeg popisa.
U događaj promjene radnog lista dodajte sljedeće retke koda:
4. Deklarirajte varijablu koja se naziva količina tipa Double i varijablu i tipa Integer.
Priguši iznos kao dvostruko, i kao cijeli broj
5. Događaj promjene radnog lista preslušava sve promjene na listu 1. Želimo samo da Excel VBA učini nešto ako se nešto promijeni u ćeliji B2. Da biste to postigli, dodajte sljedeći kodni redak:
Ako je Target.Address = "$ B $ 2" Zatim
6. Promjenjivi iznos inicijaliziramo vrijednošću ćelije B2.
iznos = raspon ("B2"). Vrijednost
7. Ispraznimo raspon frekvencijama.
Raspon ("B5: B16"). Vrijednost = ""
8. Sada je vrijeme da podijelite unijeti iznos novca. Pokrećemo petlju For Next.
Za i = 5 do 16
9. Koristit ćemo strukturu Do While Loop. Kôd postavljen između ovih riječi ponavljat će se sve dok je dio nakon Do While istinit. Želimo da Excel VBA ponovi linije koda u koraku 10 sve dok je iznos veći ili jednak ćelijama (i, 1) .vrijednost.
Učiniti Dok je iznos> = Ćelije (i, 1) .Vrijednost
Petlja
10. Dodajte sljedeće retke koda u petlju Do While.
Stanice (i, 2) .Vrijednost = Ćelije (i, 2) .Vrijednost + 1
iznos = iznos - Ćelije (i, 1) .Vrijednost
Objašnjenje: sve dok je iznos veći ili jednak ćelijama (i, 1) .vrijednost, iznos sadrži novčanice/kovanice ove vrijednosti. Kao rezultat toga, Excel VBA povećava učestalost ovog računa/novčića (prvi redak) i oduzima vrijednost računa/novčića od iznosa (drugi redak). Ovaj će se postupak ponavljati sve dok količina ne postane manja od ćelija (i, 1). Zatim Excel VBA povećava i i prelazi na sljedeću novčanicu/novčić da vidi koliko se puta ovaj račun/novčić uklapa u preostali iznos. Na taj će se način iznos novca podijeliti na novčanice i kovanice sve dok više ne ostane novca za podjelu.
11. Zatvorite petlju For Next i ne zaboravite zatvoriti if naredbu (oboje izvan petlje Do While).
Sljedeći i
Završi ako
12. Testirajte program.
Proizlaziti:
Napomena: naravno unijeti iznos ne mora nužno sadržavati svaku novčanicu/novčić. Ako iznos ne sadrži određenu novčanicu/novčić, dio nakon Do Dok nikada ne postaje istinit za ovu novčanicu/novčić, a Excel VBA ide izravno na sljedeću novčanicu/novčić.
