Nedenfor ser vi på et program i Excel VBA der skaber en rullende gennemsnitligt bord. Placer en kommandoknap på dit regneark, og tilføj følgende kodelinje:
Område ("B3"). Værdi = WorksheetFunction.RandBetween (0, 100)
Denne kodelinje indtaster et tilfældigt tal mellem 0 og 100 i celle B3. Vi vil have Excel VBA til at tage den nye lagerværdi og placere den på den første position i det rullende gennemsnitlige bord. Alle andre værdier skal flytte et sted ned, og den sidste værdi skal slettes.
Opret en regnearksændringshændelse. Kode tilføjet til regnearksændringshændelsen udføres af Excel VBA, når du ændrer en celle i et regneark.
1. Åbn Visual Basic Editor.
2. Dobbeltklik på Sheet1 (Sheet1) i Project Explorer.
3. Vælg regneark på rullelisten til venstre. Vælg Skift fra den højre rulleliste.
Tilføj følgende kodelinjer til regnearksændringshændelsen:
4. Angiv en variabel kaldet nyværdi af typen Heltal og to intervaller (førstefyrværdier og sidstefyrværdier).
Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range
5. Regnearkændringshændelsen lytter til alle ændringer på Sheet1. Vi vil kun have Excel VBA til at gøre noget, hvis noget ændrer sig i celle B3. For at opnå dette skal du tilføje følgende kodelinje:
Hvis Target.Address = "$ B $ 3" Så
6. Vi initialiserer ny værdi med værdien af celle B3, firstfourvalues med Range ("D3: D6") og lastfourvalues med Range ("D4: D7").
ny værdi = Område ("B3"). Værdi
Indstil førsteværdier = område ("D3: D6")
Indstil lastfourvalues = Range ("D4: D7")
7. Nu kommer det enkle trick. Vi vil opdatere det rullende gennemsnitlige bord. Du kan opnå dette ved at erstatte de sidste fire værdier med de fire første værdier i tabellen og placere den nye lagerværdi på den første position.
lastfourvalues.Value = firstfourvalues.Value
Område ("D3"). Værdi = ny værdi
8. Glem ikke at lukke if -sætningen.
Afslut Hvis
9. Indtast endelig formlen = Gennemsnit (D3: D7) i celle D8.
10. Test programmet ved at klikke på kommandoknappen.
