Mai jos vom analiza un program în Excel VBA acea găsește a doua cea mai mare valoare .
Situatie:
cum se calculează frecvența pe Excel
1. În primul rând, declarăm două obiecte Range și două variabile de tip Double. Numim obiectele Range rng și celulă. O variabilă dublă pe care o numim maximumValue și o variabilă dublă o numim secondHighestValue.
Nici unulrngLa fel deGama, celulaLa fel deGamăNici unulcea mai mare valoareLa fel de Dubla, SecondHighestValueLa fel de Dubla
2. Inițializăm obiectul Range rng cu intervalul selectat și cele două variabile Double cu valoarea 0.
A stabilitrng = Selecție
cea mai mare valoare = 0
secondHighestValue = 0
3. În primul rând, vrem să găsim cea mai mare valoare. Vrem să verificăm fiecare celulă dintr-un interval selectat aleatoriu (acest interval poate fi de orice dimensiune). În Excel VBA, puteți utiliza bucla Pentru fiecare următor pentru aceasta. Adăugați următoarele linii de cod:
„Găsiți cea mai mare valoarePentru FiecarecelulăÎnrng
Următorulcelulă
Notă: rng și celulă sunt alese la întâmplare aici, puteți folosi orice nume. Nu uitați să consultați aceste nume în restul codului. Linia verde este un comentariu și este adăugată aici doar pentru a furniza informații despre această bucată de cod.
4. Verificăm fiecare celulă din acest interval. Dacă este mai mare decât maximumValue, scriem valoarea variabilei maximumValue. Adăugați următoarea linie de cod la buclă.
Dacăcelula.Valoare> cea mai mare valoareAtuncimaximumValue = celula.ValoareNotă: prima valoare este întotdeauna mai mare decât valoarea cea mai mare, deoarece valoarea inițială a valorii celei mai mari este 0.
5. În al doilea rând, vrem să găsim a doua cea mai mare valoare. Adăugăm o altă buclă pentru fiecare următoare.
combinați prenumele excel„Găsiți a doua cea mai mare valoare
Pentru FiecarecelulăÎnrng
Următorulcelulă
6. Verificăm din nou fiecare celulă din intervalul selectat. Dacă este mai mare decât secondHighestValue și mai mic decât maximumValue, scriem valoarea variabilei secondHighestValue. Adăugați următoarea linie de cod la buclă.
Dacăcell.Value> secondHighestValueȘicelula.Valoare7. În cele din urmă, afișăm a doua cea mai mare valoare folosind un MsgBox.
MsgBox „Second Highest Value is” & secondHighestValue8. Plasați macrocomanda într-un buton de comandă, selectați numerele și faceți clic pe butonul de comandă.
Rezultat:
Accesați capitolul următor: Buclă
