Mai jos vom analiza un program în Excel VBA care creează o tabel mediu rulant. Plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:
Interval ("B3"). Valoare = WorksheetFunction.RandBetween (0, 100)
Această linie de cod introduce un număr aleatoriu între 0 și 100 în celula B3. Vrem ca Excel VBA să ia noua valoare a stocului și să o plaseze în prima poziție a tabelului mediu rulant. Toate celelalte valori ar trebui să se deplaseze în jos un loc, iar ultima valoare ar trebui ștearsă.
Creați un eveniment de schimbare a foii de lucru. Codul adăugat la evenimentul de modificare a foii de lucru va fi executat de Excel VBA atunci când schimbați o celulă pe o foaie de lucru.
1. Deschideți Editorul Visual Basic.
2. Faceți dublu clic pe Sheet1 (Sheet1) în Project Explorer.
3. Alegeți Foaie de lucru din lista derulantă din stânga. Alegeți Modificare din lista verticală dreaptă.
Adăugați următoarele linii de cod la evenimentul de modificare a foii de lucru:
4. Declarați o variabilă numită newvalue de tip Integer și două intervale (firstfourvalues și lastfourvalues).
Reduceți valoarea nouă ca întreg, firstfourvalues as Range, lastfourvalues as Range
5. Evenimentul Schimbare foaie de lucru ascultă toate modificările din Sheet1. Vrem ca Excel VBA să facă ceva numai dacă se schimbă ceva în celula B3. Pentru a realiza acest lucru, adăugați următoarea linie de cod:
Dacă Target.Address = "$ B $ 3" Atunci
6. Inițializăm newvalue cu valoarea celulei B3, firstfourvalues cu Range ("D3: D6") și lastfourvalues cu Range ("D4: D7").
newvalue = Range ("B3"). Valoare
Setați firstfourvalues = Range („D3: D6”)
Setați lastfourvalues = Range („D4: D7”)
7. Acum vine trucul simplu. Vrem să actualizăm tabelul mediu rotativ. Puteți realiza acest lucru înlocuind ultimele patru valori cu primele patru valori ale tabelului și plasând noua valoare a stocului în prima poziție.
lastfourvalues.Value = firstfourvalues.Value
Interval („D3”). Valoare = valoare nouă
8. Nu uitați să închideți declarația if.
Încheie dacă
9. În cele din urmă, introduceți formula = MEDIE (D3: D7) în celula D8.
10. Testați programul făcând clic pe butonul de comandă.
