Spodaj si bomo ogledali program v Excel VBA ki ustvarja a tekoča povprečna miza. Na delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Razpon ("B3"). Vrednost = Funkcija delovnega lista.RandBetween (0, 100)
Ta kodna vrstica vnese naključno število med 0 in 100 v celico B3. Želimo, da Excel VBA prevzame novo vrednost delnic in jo postavi na prvo mesto tabele drsečega povprečja. Vse druge vrednosti se morajo premakniti za eno mesto navzdol, zadnjo vrednost pa je treba izbrisati.
Ustvarite dogodek spremembe delovnega lista. Kodo, dodano dogodku spremembe delovnega lista, bo Excel VBA izvedel, ko spremenite celico na delovnem listu.
1. Odprite urejevalnik Visual Basic.
2. Dvokliknite Sheet1 (Sheet1) v Raziskovalcu projektov.
3. Na levem spustnem seznamu izberite Delovni list. Na desnem spustnem seznamu izberite Spremeni.
Dogodku spremembe delovnega lista dodajte naslednje vrstice kode:
4. Razglasite spremenljivko, imenovano newvalue tipa Integer in dva obsega (firstfourvalues in lastfourvalues).
Zatemni novo vrednost kot celo število, prve štiri vrednosti kot obseg, zadnje štiri vrednosti kot obseg
5. Dogodek spremembe delovnega lista posluša vse spremembe na listu1. Želimo, da Excel VBA nekaj naredi le, če se v celici B3 kaj spremeni. Če želite to narediti, dodajte naslednjo kodno vrstico:
Če je Target.Address = "$ B $ 3" Potem
6. Novo vrednost inicializiramo z vrednostjo celice B3, prve štiri vrednosti z razponom ("D3: D6") in zadnje štiri vrednosti z obsegom ("D4: D7").
newvalue = Obseg ("B3"). Vrednost
Set firstfourvalues = Range ("D3: D6")
Nastavi lastfourvalues = Range ("D4: D7")
7. Zdaj prihaja preprost trik. Posodobiti tabelo drsečega povprečja. To lahko dosežete tako, da zadnje štiri vrednosti zamenjate s prvimi štirimi vrednostmi tabele in postavite novo vrednost zaloge na prvo mesto.
lastfourvalues.Value = firstfourvalues.Value
Razpon ("D3"). Vrednost = nova vrednost
8. Ne pozabite zapreti stavka if.
Konec, če
9. Nazadnje vnesite formulo = POVPREČNO (D3: D7) v celico D8.
10. Preizkusite program s klikom na ukazni gumb.
