Zemāk mēs apskatīsim programmu Excel VBA ka atrod otro augstāko vērtību.
Situācija:
1. Pirmkārt, mēs deklarējam divus diapazona objektus un divus Double tipa mainīgos. Range objektus saucam par rng un cell. Vienu dubulto mainīgo mēs saucam par augstāko vērtību, un vienu dubulto mainīgo mēs saucam par otro augstāko vērtību.
Dim rng As Range, šūna As Range
Aptumšot augstāko vērtību kā dubultā, otro augstāko vērtību kā dubultā
2. Mēs inicializējam diapazona objektu rng ar atlasīto diapazonu un diviem dubultiem mainīgajiem ar vērtību 0.
Set rng = Atlase
augstākā vērtība = 0
secondHighestValue = 0
3. Pirmkārt, mēs vēlamies atrast visaugstāko vērtību. Mēs vēlamies pārbaudīt katru šūnu nejauši izvēlētā diapazonā (šis diapazons var būt jebkura izmēra). Programmā Excel VBA šim nolūkam varat izmantot cilpu Katram nākamajam. Pievienojiet šādas koda rindiņas:
'Atrodiet augstāko vērtību
Katrai šūnai In rng
Nākamā šūna
Piezīme: rng un šūna šeit tiek izvēlēti nejauši, varat izmantot jebkurus nosaukumus. Atcerieties atsaukties uz šiem nosaukumiem pārējā koda daļā. Zaļā līnija ir komentārs un tiek pievienota tikai šeit, lai sniegtu informāciju par šo koda daļu.
4. Mēs pārbaudām katru šūnu šajā diapazonā. Ja tas ir augstāks par augstāko vērtību, mēs ierakstām vērtību mainīgajā lielākajā vērtībā. Pievienojiet cilpai šādu koda rindiņu.
Ja šūna. Vērtība> augstākā vērtība Tad augstākā vērtība = šūna. Vērtība
Piezīme: pirmā vērtība vienmēr ir augstāka par augstāko vērtību, jo augstākās vērtības sākuma vērtība ir 0.
5. Otrkārt, mēs vēlamies atrast otro augstāko vērtību. Mēs pievienojam vēl vienu cilpu katrai nākamajai.
'Atrodiet otro augstāko vērtību
Katrai šūnai In rng
Nākamā šūna
6. Mēs vēlreiz pārbaudām katru šūnu atlasītajā diapazonā. Ja tas ir augstāks par secondHighestValue un zemāks par SupremeValue, mēs rakstām vērtību uz mainīgo secondHighestValue. Pievienojiet cilpai šādu koda rindiņu.
Ja šūna. Vērtība> secondHighestValue Un šūna. Vērtība <augstākā vērtība Pēc tam secondHighestValue = šūna. Vērtība
7. Visbeidzot, mēs parādām otro augstāko vērtību, izmantojot MsgBox.
MsgBox "Otrā augstākā vērtība ir" & secondHighestValue
8. Ievietojiet makro komandu komandā, atlasiet ciparus un noklikšķiniet uz komandas pogas.
Rezultāts:
