/ / Válečný průměr v aplikaci Excel VBA

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:

Range("B3").Value = WorksheetFunction.RandBetween(0, 100)

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.

Tabulka průměr válců v aplikaci Excel VBA

Tabulka průměr válců v aplikaci Excel VBA

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.

Změna události pracovního listu v aplikaci Excel VBA

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

Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range

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:

If Target.Address = "$B$3" Then

6. Inicializujeme novou hodnotu s hodnotou buňky B3, prvními hodnotami s rozsahem ("D3: D6") a posledními hodnotami s rozsahem ("D4: D7").

newvalue = Range("B3").Value
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.

lastfourvalues.Value = firstfourvalues.Value
Range("D3").Value = newvalue

8. Nezapomeňte uzavřít příkaz if.

End if

9. Nakonec zadejte vzorec = AVERAGE (D3: D7) do buňky D8.

10. Otestujte program kliknutím na příkazové tlačítko.

Také si přečtěte: