U nastavku ćemo pogledati program u Excel VBA koji stvara a pokretni prosječni stol. Postavite naredbeni gumb na radni list i dodajte sljedeći kodni redak:
Raspon ("B3"). Vrijednost = Funkcija radnog lista.RandBetween (0, 100)
Ovaj kodni redak unosi slučajni broj između 0 i 100 u ćeliju B3. Želimo da Excel VBA preuzme novu vrijednost dionica i postavi je na prvo mjesto tablice valjanog prosjeka. Sve ostale vrijednosti trebale bi se pomaknuti prema dolje za jedno mjesto, a zadnju vrijednost treba izbrisati.
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 newvalue tipa Integer i dva raspona (firstfourvalues i lastfourvalues).
Zatamni novu vrijednost kao cijeli broj, prve četiri vrijednosti kao raspon, posljednje četiri vrijednosti kao raspon
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 B3. Da biste to postigli, dodajte sljedeći kodni redak:
Ako je Target.Address = "$ B $ 3" Zatim
6. Pokrećemo novu vrijednost s vrijednošću ćelije B3, prve četiri vrijednosti s rasponom ("D3: D6") i posljednje četiri vrijednosti s rasponom ("D4: D7").
newvalue = Raspon ("B3"). Vrijednost
Postavi prve četiri vrijednosti = raspon ("D3: D6")
Postavi lastfourvalues = Raspon ("D4: D7")
7. Sada dolazi jednostavan trik. Želimo ažurirati tablicu valjanog prosjeka. To možete postići zamjenom posljednje četiri vrijednosti s prve četiri vrijednosti tablice i postavljanjem nove vrijednosti dionica na prvo mjesto.
lastfourvalues.Value = firstfourvalues.Value
Raspon ("D3"). Vrijednost = nova vrijednost
8. Ne zaboravite zatvoriti if naredbu.
Završi ako
9. Na kraju unesite formulu = PROSJEČNO (D3: D7) u ćeliju D8.
10. Testirajte program klikom na naredbeni gumb.
