U nastavku ćemo pogledati program u Excel VBA da nalazi drugu najveću vrijednost.
Situacija:
1. Prvo, deklariramo dva Range objekta i dvije varijable tipa Double. Objekte Range nazivamo rng i cell. Jednu dvostruku varijablu nazivamo najvišom vrijednošću, a jednu dvostruku varijablu drugomHighhestValue.
Dim rng As Range, cell As Range
Zatamni najveću vrijednost kao dvostruku, drugu najvišu vrijednost kao dvostruku
2. Inicijaliziramo objekt Range rng s odabranim rasponom i dvije dvostruke varijable s vrijednošću 0.
Postavite rng = Odabir
najveća vrijednost = 0
secondHighestValue = 0
3. Prvo, želimo pronaći najveću vrijednost. Želimo provjeriti svaku ćeliju u slučajno odabranom rasponu (ovaj raspon može biti bilo koje veličine). U Excelu VBA za to možete koristiti petlju Za svaku sljedeću. Dodajte sljedeće retke koda:
'Pronađite najveću vrijednost
Za svaku ćeliju U rng
Sljedeća ćelija
Napomena: ovdje su nasumično odabrani rng i ćelija, možete koristiti bilo koja imena. Ne zaboravite se pozivati na ta imena u ostatku koda. Zelena linija je komentar i dodaje se ovdje samo radi pružanja informacija o ovom dijelu koda.
4. Provjeravamo svaku ćeliju u ovom rasponu. Ako je veća od najviše vrijednosti, vrijednost zapisujemo u varijablu najviša vrijednost. U petlju dodajte sljedeći kodni redak.
Ako ćelija.Vrijednost> najviša vrijednost Tada je najviša vrijednost = ćelija.Vrijednost
Napomena: prva vrijednost uvijek je veća od najviše vrijednosti jer je početna vrijednost najveće vrijednosti 0.
5. Drugo, želimo pronaći drugu najveću vrijednost. Dodamo još jednu petlju Za svaku sljedeću.
'Pronađite drugu najveću vrijednost
Za svaku ćeliju U rng
Sljedeća ćelija
6. Ponovno provjeravamo svaku ćeliju u odabranom rasponu. Ako je veća od secondHighestValue i niža od najvišeValue, zapisujemo vrijednost u varijablu secondHighestValue. U petlju dodajte sljedeći kodni redak.
Ako je cell.Value> secondHighestValue I cell.Value <najvećaVrijednost Zatim secondHighestValue = cell.Value
7. Na kraju, prikazujemo drugu najveću vrijednost pomoću MsgBox -a.
MsgBox "Druga najveća vrijednost je" & secondHighestValue
8. Postavite makronaredbu u naredbeni gumb, odaberite brojeve i kliknite na naredbeni gumb.
Proizlaziti:
