Níže se podíváme na program v Excel VBA který vytváří a tabulka klouzavého průměru. Umístěte příkazové tlačítko na list a přidejte následující řádek kódu:
Rozsah ("B3"). Hodnota = WorksheetFunction.RandBetween (0, 100)
Tento řádek kódu zadá do buňky B3 náhodné číslo mezi 0 a 100. Chceme, aby Excel VBA převzal novou hodnotu akcií a umístil ji na první pozici tabulky klouzavého průměru. Všechny ostatní hodnoty by se měly posunout o jedno místo dolů a poslední hodnota by měla být odstraněna.
Vytvořte událost změny listu. Kód přidaný do události změny pracovního listu provede Excel VBA, když změníte buňku na listu.
1. Otevřete editor jazyka.
2. Poklepejte na List1 (List1) v Průzkumníku projektů.
3. V levém rozevíracím seznamu vyberte list. V pravém rozevíracím seznamu vyberte Změnit.
Do události změny listu přidejte následující řádky kódu:
4. Deklarujte proměnnou nazvanou newvalue typu Integer a dva rozsahy (firstfourvalues a lastfourvalues).
Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range
5. Událost změny listu poslouchá všechny změny v Listu1. Chceme, aby Excel VBA něco udělal, pokud se v buňce B3 něco změní. Chcete -li toho dosáhnout, přidejte následující řádek kódu:
Pokud Target.Address = "$ B $ 3" Pak
6. Inicializujeme newvalue s hodnotou buňky B3, firstfourvalues with Range ("D3: D6") and lastfourvalues with Range ("D4: D7").
newvalue = Rozsah ("B3"). Hodnota
Nastavit první čtyři hodnoty = rozsah ("D3: D6")
Nastavit lastfourvalues = Range ("D4: D7")
7. Nyní přichází jednoduchý trik. Chceme aktualizovat tabulku klouzavého průměru. Toho můžete dosáhnout nahrazením posledních čtyř hodnot prvními čtyřmi hodnotami tabulky a umístěním nové hodnoty akcií na první pozici.
lastfourvalues.Value = firstfourvalues.Value
Rozsah („D3“). Hodnota = nová hodnota
8. Nezapomeňte zavřít příkaz if.
Konec pokud
9. Nakonec do buňky D8 zadejte vzorec = PRŮMĚR (D3: D7).
10. Otestujte program kliknutím na příkazové tlačítko.
