Alla tarkastelemme ohjelmaa Excel VBA joka luo a liukuva keskipöytä. Aseta komentopainike laskentataulukkoosi ja lisää seuraava koodirivi:
Alue ("B3"). Arvo = laskentataulukkofunktio.RandBetween (0, 100)
Tämä koodirivi syöttää satunnaisluvun 0 ja 100 välille soluun B3. Haluamme, että Excel VBA ottaa uuden varaston arvon ja sijoittaa sen liukuvan keskiarvotaulukon ensimmäiselle sijalle. Kaikkien muiden arvojen pitäisi siirtyä yhden paikan alaspäin ja viimeinen arvo on poistettava.
Luo laskentataulukon muutostapahtuma. Laskentataulukon muutostapahtumaan lisätyn koodin suorittaa Excel VBA, kun muutat laskentataulukon solua.
1. Avaa Visual Basic Editor.
2. Kaksoisnapsauta Sheet1 (Sheet1) Project Explorerissa.
3. Valitse Laskentataulukko vasemmasta avattavasta luettelosta. Valitse oikeasta avattavasta luettelosta Muuta.
Lisää seuraavat koodirivit laskentataulukon muutostapahtumaan:
4. Ilmoita muuttuja nimeltä newvalue, tyyppi Integer ja kaksi aluetta (firstfourvalues ja lastfourvalues).
Himmennä uusi arvo kokonaislukuna, ensimmäiset neljä arvoa alueena, viimeiset neljä arvoa alueena
5. Laskentataulukon muutostapahtuma kuuntelee kaikkia Sheet1: n muutoksia. Haluamme vain, että Excel VBA tekee jotain, jos jotain muuttuu solussa B3. Tämän saavuttamiseksi lisää seuraava koodirivi:
Jos Target.Address = "$ B $ 3" Sitten
6. Alustamme uuden arvon solun B3 arvolla, ensimmäiset neljä arvoa alueella ("D3: D6") ja viimeiset neljä arvoa alueella ("D4: D7").
newvalue = Alue ("B3"). Arvo
Aseta ensimmäiset neljä arvoa = alue ("D3: D6")
Aseta viimeiset arvot = alue ("D4: D7")
7. Nyt tulee yksinkertainen temppu. Haluamme päivittää liukuvan keskiarvon taulukon. Voit saavuttaa tämän korvaamalla neljä viimeistä arvoa taulukon neljällä ensimmäisellä arvolla ja asettamalla uuden varaston arvon ensimmäiselle sijalle.
lastfourvalues.Value = firstfourvalues.Value
Alue ("D3"). Arvo = uusi arvo
8. Älä unohda sulkea if -lause.
Loppu Jos
9. Syötä lopuksi kaava = KESKI (D3: D7) soluun D8.
10. Testaa ohjelma napsauttamalla komentopainiketta.
