Nižšie sa pozrieme na program v Excel VBA že nájde druhú najvyššiu hodnotu.
Situácia:
1. Najprv deklarujeme dva objekty Range a dve premenné typu Double. Objekty Range nazývame rng a bunka. Jednu dvojitú premennú nazývame najvyššia hodnota a jednu dvojitú premennú nazývame secondHighestValue.
Dim rng As Range, cell As Range
Stmaviť najvyššiu hodnotu ako dvojitú, druhú najvyššiu hodnotu ako dvojnásobnú
2. Inicializujeme objekt Range rng s vybratým rozsahom a dvoma premennými Double s hodnotou 0.
Nastaviť rng = výber
najvyššia hodnota = 0
secondHighestValue = 0
3. Najprv chceme nájsť najvyššiu hodnotu. Chceme skontrolovať každú bunku v náhodne vybranom rozsahu (tento rozsah môže mať akúkoľvek veľkosť). V programe Excel VBA na to môžete použiť slučku For Every Next. Pridajte nasledujúce riadky kódu:
„Nájdite najvyššiu hodnotu
Pre každú bunku V rng
Ďalšia bunka
Poznámka: rng a bunka sa vyberajú náhodne, môžete použiť akékoľvek názvy. Na tieto názvy sa vo zvyšku kódu odvolávajte. Zelená čiara je komentár a je pridaná iba sem, aby poskytla informácie o tomto kúsku kódu.
4. Skontrolujeme každú bunku v tomto rozsahu. Ak je vyššia ako najvyššia hodnota, zapíšeme hodnotu do premennej najvyššia hodnota. Do slučky pridajte nasledujúci riadok kódu.
Ak bunka.hodnota> najvyššia hodnota, potom najvyššia hodnota = bunka.hodnota
Poznámka: prvá hodnota je vždy vyššia ako najvyššia hodnota, pretože počiatočná hodnota najvyššej hodnoty je 0.
5. Za druhé, chceme nájsť druhú najvyššiu hodnotu. Pridáme ďalšiu slučku For Every Next.
„Nájdite druhú najvyššiu hodnotu
Pre každú bunku V rng
Ďalšia bunka
6. Znovu skontrolujeme každú bunku vo vybranom rozsahu. Ak je vyššia ako secondHighestValue a nižšia ako najvyššia hodnota, zapíšeme hodnotu do premennej secondHighestValue. Do slučky pridajte nasledujúci riadok kódu.
If cell.Value> secondHighestValue And cell.Value <higherValue Then secondHighestValue = cell.Value
7. Nakoniec zobrazíme druhú najvyššiu hodnotu pomocou MsgBox.
MsgBox „Druhá najvyššia hodnota je“ & secondHighestValue
8. Umiestnite makro do príkazového tlačidla, vyberte čísla a kliknite na príkazové tlačidlo.
Výsledok:
