Slīdošā vidējā tabula

Zemāk mēs apskatīsim programmu Excel VBA kas rada a ritošā vidējā tabula . Novietojiet a komandu pogu darblapā un pievienojiet šādu koda rindiņu:

Šī koda līnija šūnā B3 ievada nejaušu skaitli no 0 līdz 100. Mēs vēlamies, lai Excel VBA ņemtu jauno krājumu vērtību un novietotu to slīdošā vidējā tabulas pirmajā pozīcijā. Visām pārējām vērtībām vajadzētu pārvietoties vienu vietu uz leju, un pēdējā vērtība ir jāsvītro.

Izveidojiet darblapas maiņas notikumu. Darblapas maiņas notikumam pievienoto kodu izpildīs Excel VBA, mainot darblapas šūnu.

Excel aprēķina laiku starp diviem datumiem

1. Atveriet Visual Basic redaktors .

2. Veiciet dubultklikšķi uz Sheet1 (Sheet1) Project Explorer.

3. Kreisajā nolaižamajā sarakstā izvēlieties Darblapa. Labajā nolaižamajā sarakstā izvēlieties Mainīt.

Darblapas maiņas notikumam pievienojiet šādas koda rindiņas:

4. Deklarējiet mainīgo, ko sauc par Newvalue, kura tips ir vesels skaitlis, un divus diapazonus (pirmās un pēdējās četras vērtības).

5. Darblapas maiņas notikums uzklausa visas 1. lapas izmaiņas. Mēs 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:

6. Mēs inicializējam jauno vērtību ar šūnas B3 vērtību, pirmās četras vērtības ar diapazonu ('D3: D6') un pēdējās četras vērtības ar diapazonu ('D4: D7').

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

kā jūs veicat atzīmi

8. Neaizmirstiet aizvērt paziņojumu if.

9. Visbeidzot šūnā D8 ievadiet formulu = AVERAGE (D3: D7).

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