Válečný průměr v aplikaci Excel VBA
Níže se podíváme na program v Excel VBA který vytvoří tabulka s průběžným průměrem. Umístěte na pracovní list příkazové tlačítko a přidejte následující řádek:
Tento kódový řádek zadá náhodné číslo mezi 0a 100 do buňky B3. Chceme, aby aplikace Excel VBA získala novou hodnotu akcií a umístila ji na první pozici tabulky s klouzavým průměrem. Všechny ostatní hodnoty by se měly pohybovat na jednom místě a poslední hodnota by měla být smazána.


Vytvořit událost Změna pracovního listu. Kód přidaný do události Změna pracovního listu bude proveden pomocí aplikace Excel VBA při změně buňky v listu.
1. Otevřete editor jazyka.
2. Poklepejte na položku List1 (list1) v aplikaci Průzkumník projektu.
3. V levé rozevírací nabídce vyberte pracovní list. V pravém rozevíracím seznamu vyberte možnost Změnit.

Přidejte následující řádky kódu do události Změna pracovního listu:
4. Deklarujte proměnnou nazvanou newvalue typu Integer a dva rozsahy (první a poslední hodnoty).
5. Změna události pracovního listu naslouchá všem změnám v listu1. Chceme, aby aplikace Excel VBA něco udělala, kdyby se něco změnilo v buňce B3. Chcete-li to dosáhnout, přidejte následující kódový řádek:
6. Inicializujeme novou hodnotu s hodnotou buňky B3, prvními hodnotami s rozsahem ("D3: D6") a posledními hodnotami s rozsahem ("D4: D7").
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")
7. Nyní přichází jednoduchý trik. Chceme aktualizovat tabulku s průběžným průměrem. Toho lze dosáhnout nahrazením posledních čtyř hodnot prvními čtyřmi hodnotami tabulky a umístěním nové hodnoty zásob na první pozici.
Range("D3").Value = newvalue
8. Nezapomeňte uzavřít příkaz if.
9. Nakonec zadejte vzorec = AVERAGE (D3: D7) do buňky D8.
10. Otestujte program kliknutím na příkazové tlačítko.