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").

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.

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.