300 Primerov

Poiščite drugo najvišjo vrednost

Find Second Highest Value

Spodaj si bomo ogledali program v Excel VBA to najde drugo najvišjo vrednost .





Položaj:

kako narediti kvadratni koren v

Poiščite drugo najvišjo vrednost v Excelu VBA





1. Najprej razglasimo dva predmeta Range in dve spremenljivki tipa Double. Objekte Range imenujemo rng in cell. Eno dvojno spremenljivko imenujemo najvišja vrednost in eno dvojno spremenljivko imenujemo secondHighestValue.

NobenarngAsDomet, celicaAsDomet
Nobenanajvišja vrednostAs Dvojno, secondHighestValueAs Dvojno

2. Inicializiramo objekt Range rng z izbranim obsegom in dvema dvojnima spremenljivkama z vrednostjo 0.



Nastavljenorng = Izbor
najvišja vrednost = 0
secondHighestValue = 0

3. Najprej želimo najti najvišjo vrednost. Vsako celico želimo preveriti v naključno izbranem obsegu (to območje je lahko poljubne velikosti). V Excelu VBA lahko za to uporabite zanko For Every Next. Dodajte naslednje kodne vrstice:

'Poiščite najvišjo vrednost
Za VsakcelicaVrng

Naslednjicelica

Opomba: rng in celica sta tukaj naključno izbrana, lahko uporabite poljubno ime. Ne pozabite se sklicevati na ta imena v preostali kodi. Zelena črta je komentar in je dodana samo za podajanje informacij o tem kodu.

4. Preverimo vsako celico v tem razponu. Če je višja od najvišje vrednosti, vrednost zapišemo v spremenljivko najvišja vrednost. V zanko dodajte naslednjo kodno vrstico.

Čecelica.Vrednost> najvišja vrednostPotemnajvišja vrednost = celica.Vrednost

Opomba: prva vrednost je vedno višja od najvišje vrednosti, ker je začetna vrednost najvišje vrednosti 0.

5. Drugič, želimo najti drugo najvišjo vrednost. Dodamo še eno zanko Za vsako naslednjo.

odstotek dveh števil v excelu
'Poiščite drugo najvišjo vrednost
Za VsakcelicaVrng

Naslednjicelica

6. Ponovno preverimo vsako celico v izbranem območju. Če je višja od secondHighestValue in nižja od najvišjeVrednosti, zapišemo vrednost v spremenljivko secondHighestValue. V zanko dodajte naslednjo kodno vrstico.

Čecell.Value> secondHighestValueIncelica.VrednostPotemsecondHighestValue = celica.Vrednost

7. Nazadnje prikažemo drugo najvišjo vrednost z uporabo polja MsgBox.

MsgBox 'Druga najvišja vrednost je' & secondHighestValue

8. Makro postavite v ukazni gumb, izberite številke in kliknite na ukazni gumb.

Rezultat:

Poiščite drugi rezultat najvišje vrednosti

7/9 Dokončano! Preberite več o izjavah if then>
Pojdi na naslednje poglavje: Zanka



^