/ / Ritošā vidējā Excel versijā VBA

Rolling Average programmā Excel VBA

Tālāk mēs apskatīsim programmu programmā Excel VBA kas rada ritošā vidējā tabula. Ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindu:

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

Šī koda līnija ieraksta nejaušo skaitli no 0un 100 uz šūnu B3. Mēs vēlamies, lai Excel VBA ņemtu jauno akciju vērtību un novietotu to rullīša vidējā tabulas pirmajā pozīcijā. Visām citām vērtībām vajadzētu pārvietoties uz leju vienā vietā, un pēdējā vērtība ir jāsvītro.

Rolling Average Tabula Excel versijā VBA

Rolling Average Tabula Excel versijā VBA

Izveidot darblapas maiņas notikumu. Kodu, kas pievienots darblapas izmaiņu notikumam, izpildīs Excel VBA, ja maināt šūnu darblapā.

1. Atveriet Visual Basic Editor.

2. Projekta Explorer divreiz noklikšķiniet uz Sheet1 (Sheet1).

3. Izvēlieties darblapu no kreisā nolaižamā saraksta. Labajā nolaižamajā sarakstā izvēlieties Mainīt.

Darblapas izmaiņu notikums programmā Excel VBA

Pievienojiet šādas darblapas maiņas notikuma koda rindiņas:

4. PaziĦojiet mainīgo, ko sauc par jauno vērtību, skaitlisko skaitli un divus diapazonus (pirmās vērtības un pēdējās vērtības).

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

5. Darblapas maiņas notikums uzklausa visas izmaiņas lapā Sheet1. Mēs tikai vēlamies, lai Excel VBA kaut ko darītu, ja kaut kas mainās šūnā B3. Lai to panāktu, pievienojiet šādu koda rindiņu:

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

6. Mēs inicializējam jauno vērtību ar šūnu B3 vērtību, pirmās vērtības ar diapazonu ("D3: D6") un pēdējo vērtību ar diapazonu ("D4: D7").

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

7. Tagad nāk vienkāršs triks. Mēs vēlamies atjaunināt rādītāja vidējo tabulu. To varat panākt, aizstājot pēdējās četras vērtības ar tabulas pirmajām četrām vērtībām un novietojot jauno krājumu vērtību pirmajā pozīcijā.

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

8. Neaizmirstiet slēgt IF paziņojumu.

End if

9. Visbeidzot, ievadiet formulu = vidējs (D3: D7) šūnā D8.

10. Pārbaudiet programmu, noklikšķinot uz komandas pogas.

Lasīt arī: