Spodaj si bomo ogledali program v Excel VBA to najde drugo najvišjo vrednost .
Položaj:
kako narediti kvadratni koren v
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, celicaAsDometNobenanajviš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 vrednostZa 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.VrednostOpomba: 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.Vrednost7. Nazadnje prikažemo drugo najvišjo vrednost z uporabo polja MsgBox.
MsgBox 'Druga najvišja vrednost je' & secondHighestValue8. Makro postavite v ukazni gumb, izberite številke in kliknite na ukazni gumb.
Rezultat:
Pojdi na naslednje poglavje: Zanka