Žemiau apžvelgsime programą Excel VBA tai sukuria a slenkančio vidurkio lentelė. Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šią kodo eilutę:
Diapazonas („B3“). Reikšmė = WorksheetFunction.RandBetween (0, 100)
Ši kodo eilutė į B3 langelį įveda atsitiktinį skaičių nuo 0 iki 100. Mes norime, kad „Excel VBA“ imtų naują atsargų vertę ir padėtų ją pirmoje slenkančio vidurkio lentelės vietoje. Visos kitos vertės turėtų judėti viena vieta žemyn, o paskutinė vertė turėtų būti ištrinta.
Sukurkite darbalapio keitimo įvykį. Į darbalapio keitimo įvykį įtrauktas kodas bus vykdomas naudojant „Excel VBA“, kai pakeisite darbalapio langelį.
1. Atidarykite „Visual Basic“ redaktorių.
2. „Project Explorer“ dukart spustelėkite Sheet1 (Sheet1).
3. Iš kairiojo išskleidžiamojo sąrašo pasirinkite Darbo lapas. Iš dešiniojo išskleidžiamojo sąrašo pasirinkite Keisti.
Į darbalapio keitimo įvykį įtraukite šias kodo eilutes:
4. Paskelbkite kintamąjį, vadinamą „Newvalue“, kurio tipas yra sveikasis skaičius, ir du diapazonus (pirmosios ir paskutinės keturios vertės).
Pritemdyti naują vertę kaip sveiką skaičių, pirmąsias keturias vertes kaip diapazoną, paskutines keturias vertes kaip diapazoną
5. Darbo lapo keitimo įvykis išklauso visus 1 lapo pakeitimus. Mes tik norime, kad „Excel VBA“ kažką padarytų, jei kas nors pasikeis ląstelėje B3. Norėdami tai padaryti, pridėkite šią kodo eilutę:
Jei Target.Address = "$ B $ 3" Tada
6. Mes inicijuojame naują vertę naudodami langelio B3 reikšmę, pirmąsias keturias reikšmes su diapazonu („D3: D6“) ir paskutines keturias vertes su diapazonu („D4: D7“).
newvalue = Diapazonas ("B3"). Reikšmė
Nustatyti pirmąsias keturias vertes = Diapazonas ("D3: D6")
Nustatyti paskutines keturias vertes = Diapazonas ("D4: D7")
7. Dabar ateina paprastas triukas. Norime atnaujinti slenkančio vidurkio lentelę. Tai galite pasiekti pakeisdami paskutines keturias reikšmes pirmosiomis keturiomis lentelės reikšmėmis ir į pirmą poziciją įtraukdami naują atsargų vertę.
lastfourvalues.Value = firstfourvalues.Value
Diapazonas („D3“). Vertė = nauja vertė
8. Nepamirškite uždaryti teiginio.
Baigti, jei
9. Galiausiai į langelį D8 įveskite formulę = VIDUTINIS (D3: D7).
10. Išbandykite programą spustelėdami komandos mygtuką.
