/ / Rolling Average Excel VBA: ssa

Rolling Average Excel VBA: ssa

Alla tarkastelemme ohjelmaa Excel VBA joka luo a liikkuvan keskitason taulukko. Aseta komentopainike laskentatauluun ja lisää seuraava koodirivi:

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

Tämä koodirivi tulee satunnaislukuun 0: n välilläja 100 soluun B3. Haluamme, että Excel VBA ottaa uuden osakkeen arvon ja asettaa sen keskimääräisen taulukon ensimmäiselle sijainnille. Kaikkien muiden arvojen pitäisi liikkua alaspäin yhdestä paikasta ja viimeinen arvo on poistettava.

Rolling Average Taulukko Excel VBA: ssa

Rolling Average Taulukko Excel VBA: ssa

Luo laskentataulukko Muuta tapahtumaa. Excel VBA suorittaa Excel-VBA-tietueeseen lisätyn koodin lisäämisen koodiksi, kun muutat solua laskentataulukossa.

1. Avaa Visual Basic -editori.

2. Kaksoisnapsauta Project Explorerissa Sheet1 (Sheet1) -painiketta.

3. Valitse vasemmalla olevasta avattavasta luettelosta Worksheet. Valitse Muuta oikealta avattavasta luettelosta.

Työkirja Muuta tapahtumaa Excel VBA: ssa

Lisää seuraavat koodilinjat Worksheet Muuta tapahtumaan:

4. Ilmoita muuttujan nimeltään integer-arvo ja sen arvo (firstfourvalues ​​ja lastfourvalues).

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

5. Muistokerroin muistaa kaikki Sheet1-muutokset. Haluamme vain, että Excel VBA tekee jotain, jos jotain muuttuu solussa B3. Tämän saavuttamiseksi lisää seuraava koodirivi:

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

6. Aloitamme uudenarvon solun B3 arvolla, ensimmäisellä arvolla Range ("D3: D6") ja viimeisellä arvolla Range ("D4: D7").

newvalue = Range("B3").Value
Set firstfourvalues = Range("D3:D6")
Set lastfourvalues = Range("D4:D7")

7. Nyt tulee yksinkertainen temppu. Haluamme päivittää liikkuvan keskiarvopöydän. Voit saavuttaa tämän korvaamalla neljä viimeistä arvoa taulukon ensimmäisillä neljällä arvolla ja asettaen uuden osakkeen arvon ensimmäiseen paikkaan.

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

8. Älä unohda sulkea jos lausunto.

End if

9. Syötä kaava = AVERAGE (D3: D7) soluun D8.

10. Testaa ohjelma napsauttamalla komentopainiketta.

Lue myös: