Az alábbiakban megnézzük a programot Excel VBA hogy a második legmagasabb értéket találja.
Helyzet:
1. Először két Range objektumot és két Double típusú változót deklarálunk. A Range objektumokat rng -nek és cellának hívjuk. Egy kettős változót hívunk legmagasabb értéknek, egy kettős változót pedig másodlagos legmagasabb értéknek.
Dim rng As Range, cell As Range
Halványabb legmagasabb érték kettős, második legmagasabb érték kettős
2. Inicializáljuk a Range objektum rng -t a kiválasztott tartományt és a két kettős változót 0 értékkel.
Set rng = Kiválasztás
legmagasabb érték = 0
secondHighestValue = 0
3. Először is a legmagasabb értéket szeretnénk megtalálni. Szeretnénk ellenőrizni minden egyes cellát egy véletlenszerűen kiválasztott tartományban (ez a tartomány bármilyen méretű lehet). Az Excel VBA -ban erre használhatja a Minden egyes következő cikket. Adja hozzá a következő kódsorokat:
'Keresse meg a legmagasabb értéket
Minden cellához In rng
Következő cella
Megjegyzés: az rng és a cellát véletlenszerűen választjuk ki, bármilyen nevet használhat. Ne felejtse el hivatkozni ezekre a nevekre a kód többi részében. A zöld vonal megjegyzés, és csak azért adjuk hozzá, hogy tájékoztatást adjunk erről a kódrészletről.
4. Ellenőrizzük a tartomány minden celláját. Ha magasabb, mint a legmagasabb érték, akkor írjuk az értéket a legmagasabb értékű változóba. Adja hozzá a következő kód sort a hurokhoz.
Ha cella.Érték> legmagasabb érték Akkor a legmagasabb érték = cella.érték
Megjegyzés: az első érték mindig magasabb, mint a legmagasabb érték, mert a legmagasabb érték kezdő értéke 0.
5. Másodszor, szeretnénk megtalálni a második legmagasabb értéket. Hozzáadunk egy újabb cikket minden egyes következőhöz.
'Keresse meg a második legmagasabb értéket
Minden cellához In rng
Következő cella
6. A kiválasztott tartomány minden celláját újra ellenőrizzük. Ha magasabb, mint a secondHighestValue és alacsonyabb, mint a SupremeValue, akkor írjuk az értéket a secondHighestValue változóba. Adja hozzá a következő kód sort a hurokhoz.
Ha cell.Value> secondHighestValue And cell.Value <legmagasabb érték Akkor secondHighestValue = cell.Value
7. Végül a második legmagasabb értéket jelenítjük meg egy MsgBox használatával.
Az MsgBox "Második legmagasabb értéke" & secondHighestValue
8. Helyezze a makrót egy parancsgombba, válassza ki a számokat, majd kattintson a parancsgombra.
Eredmény:
