Allpool vaatame programmi Exceli VBA mis loob a jooksva keskmise tabel. Asetage oma töölehele käsunupp ja lisage järgmine koodirida:
Vahemik ("B3"). Väärtus = WorksheetFunction.RandBetween (0, 100)
See koodirida sisestab lahtrisse B3 juhusliku arvu vahemikus 0 kuni 100. Soovime, et Excel VBA võtaks uue aktsia väärtuse ja asetaks selle jooksva keskmise tabeli esimesele positsioonile. Kõik muud väärtused peaksid liikuma ühe koha võrra allapoole ja viimane väärtus tuleks kustutada.
Töölehe muutmise sündmuse loomine. Töölehe muutmise sündmusele lisatud kood käivitatakse Exceli VBA abil, kui muudate töölehe lahtrit.
1. Avage Visual Basic Editor.
2. Topeltklõpsake Project Exploreris Sheet1 (Sheet1).
3. Valige vasakpoolsest ripploendist Tööleht. Valige parempoolsest ripploendist Muuda.
Lisage töölehe muutmise sündmusele järgmised koodiridad:
4. Deklareerige muutuja nimega newvalue tüüpi Integer ja kaks vahemikku (esimesed ja viimased neli väärtust).
Hämardage uus väärtus täisarvuna, esimesed neli väärtust vahemikuna, viimased neli väärtust vahemikuna
5. Töölehe muutmise sündmus kuulab kõiki muudatusi lehel1. Soovime, et Excel VBA teeks midagi ainult siis, kui lahtris B3 midagi muutub. Selle saavutamiseks lisage järgmine koodirida:
Kui Target.Address = "$ B $ 3" Siis
6. Me lähtestame uue väärtuse lahtri B3 väärtusega, esimesed neli väärtust vahemikuga ("D3: D6") ja viimased neli väärtust vahemikuga ("D4: D7").
newvalue = Vahemik ("B3"). Väärtus
Määra esimesed neli väärtust = vahemik ("D3: D6")
Set lastfourvalues = Vahemik ("D4: D7")
7. Nüüd tuleb lihtne trikk. Tahame uuendada jooksva keskmise tabelit. Seda saate saavutada, asendades neli viimast väärtust tabeli nelja esimese väärtusega ja asetades uue aktsia väärtuse esimesele positsioonile.
lastfourvalues.Value = esimesed neli väärtust. Väärtus
Vahemik ("D3"). Väärtus = uus väärtus
8. Ärge unustage if -lauset sulgeda.
Lõpetage, kui
9. Lõpuks sisesta lahtrisse D8 valem = KESKMINE (D3: D7).
10. Testige programmi, klõpsates käsunuppu.
