Az alábbiakban megnézzük a programot Excel VBA ami létrehozza a gördülő átlag táblázat. Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kód sort:
Tartomány ("B3"). Érték = WorksheetFunction.RandBetween (0, 100)
Ez a kódsor 0 és 100 közötti véletlen számot ír be a B3 cellába. Azt akarjuk, hogy az Excel VBA vegye fel az új készletértéket, és helyezze a gördülő átlag táblázat első helyére. Minden más értéknek lefelé kell mozognia, és az utolsó értéket törölni kell.
Hozzon létre egy munkalap -változási eseményt. A munkalap módosítási eseményéhez hozzáadott kódot az Excel VBA hajtja végre, amikor módosít egy cellát a munkalapon.
1. Nyissa meg a Visual Basic Editor programot.
2. Kattintson duplán a Sheet1 (Sheet1) elemre a Project Explorerben.
3. Válassza a Munkalap lehetőséget a bal oldali legördülő listából. Válassza a Módosítás lehetőséget a jobb oldali legördülő listából.
Adja hozzá a következő kódsorokat a munkalap módosítási eseményéhez:
4. Nyújtson be egy változót, amelyet egész értékű newvalue -nak neveznek, és két tartományt (firstfourvalues és lastfourvalues).
Az újérték halványítása egész számként, első négy értékként tartományként, utolsó értékek tartományként
5. A Munkalap módosítása esemény meghallgatja az 1. lapon található összes módosítást. Csak azt akarjuk, hogy az Excel VBA tegyen valamit, ha valami megváltozik a B3 cellában. Ennek eléréséhez adja hozzá a következő kód sort:
Ha Target.Address = "$ B $ 3" Akkor
6. Inicializáljuk az új értéket a B3 cella értékével, az első négy értéket a tartományt ("D3: D6") és az utolsó négy értéket a tartományt ("D4: D7").
newvalue = Tartomány ("B3"). Érték
Első négy érték beállítása = Tartomány ("D3: D6")
Utolsó négy érték beállítása = Tartomány ("D4: D7")
7. Most jön az egyszerű trükk. Frissíteni szeretnénk a gördülő átlag táblázatot. Ezt úgy érheti el, hogy az utolsó négy értéket lecseréli a táblázat első négy értékére, és az új készletértéket az első helyre helyezi.
lastfourvalues.Value = firstfourvalues.Value
Tartomány ("D3"). Érték = új érték
8. Ne felejtse el bezárni az if utasítást.
Vége, ha
9. Végül írja be az = ÁTLAG (D3: D7) képletet a D8 cellába.
10. Tesztelje a programot a parancsgombra kattintva.