Max, kao što i samo ime govori, koristi se za pronalaženje maksimalne vrijednosti iz datog skupa podataka ili niza, ovo je funkcija radnog lista pa se koristi s metodom radnog lista kao funkcija radnog lista, a ova metoda ima ograničenje funkcija uzima niz kao argument, u nizu može biti samo 30 vrijednosti.
Excel VBA Max funkcija
U Excelu imamo nekoliko numeričkih funkcija. Možemo brojati numeričke vrijednosti u rasponu, možemo zbrajati i možemo pronaći minimalnu vrijednost kao i maksimalnu vrijednost lota. Da bismo pronašli maksimalnu vrijednost lota, imamo excel funkciju koja se zove MAX, koja vraća maksimalnu vrijednost isporučenog raspona brojeva. U VBA nemamo ugrađenu funkciju nazvanu "MAX" da bismo dobili maksimalan broj. Vidjet ćemo kako se koristi ova Excel VBA Max funkcija.

Primjer maksimalne funkcije u programu Excel VBA
Nažalost, nemamo luksuz koristiti MAX kao VBA ugrađenu funkciju, ali toj funkciji možemo pristupiti kao dio klase Funkcije radnog lista.
Sada pogledajte kod u nastavku.
Kodirati:
Pod MAX_Example1 () Dim a as Integer Dim b As Integer Dim c As Integer Dim Result As Integer a = 50 b = 25 c = 60 Result = WorksheetFunction.Max (a, b, c) MsgBox Result End Sub

U gornjem primjeru proglasio sam tri varijable za pohranu broja.
Dim a As Integer Dim b As Integer Dim c As Integer
Proglasio sam još jednu varijablu za prikaz rezultata.
Zatamni rezultat kao cjelovito.
Za prve tri tri varijable dodijelio sam vrijednost poput 50, 25, odnosno 60.
a = 50 b = 25 c = 60
U sljedećem sam retku primijenio MAX kao klasu funkcija VBA radnog lista za pohranu rezultata u varijablu „Rezultat“.
Rezultat = Radni listFunction.Max (a, b, c)
Napokon, vrijednost prikazujem u okviru za poruke u VBA. Rezultat MsgBox-a
Sada ću pokrenuti ovaj kod pomoću F5 ili ručno i vidjeti kakav je rezultat u okviru za poruku.

Dakle, rezultat je 60.
Od svih isporučenih brojeva, tj. 50, 25 i 60, maksimalni broj je 60.
Napredni primjer maksima u programu Excel VBA
Petlje su u VBA vrlo važne za prolazak kroz sve stanice i postizanje rezultata. Vidjet ćemo kako kombinirati VBA MAX s petljama kako bismo dobili maksimalnu vrijednost s popisa brojeva.
Imam popis predmeta i njihovu mjesečnu izvedbu tih predmeta, kao što je prikazano u nastavku.

Sada za svaku stavku želim znati koliki je maksimalni prodajni broj tijekom 4 mjeseca, kao što je prikazano na slici.
Primjenom MAX-a na excel, to možemo pronaći za nekoliko sekundi.

Sada ćemo vidjeti kako pronaći maksimalnu vrijednost pomoću VBA koda.
Kôd u nastavku izvršit će zadatak pronalaženja maksimalnog broja za svaku stavku.
Kodirati:
Sub MAX_Example2 () Dim k kao cjelobrojno za k = 2 do 9 ćelija (k, 7) .Value = WorksheetFunction.Max (Raspon ("A" & k & ":" & "E" & k)) Sljedeći k Kraj Sub

Ovo će lako prepoznati maksimalan broj.
Sada pokrenite kod ručno ili pritisnite tipku F5 i pogledajte rezultat kao što je prikazano u nastavku.

Da biste dobili naziv mjeseca s maksimalnim vrijednostima, upotrijebite donji kod.
Kodirati:
Sub MAX_Example2 () Dim k kao cjelobrojno za k = 2 do 9 ćelija (k, 7) .Value = WorksheetFunction.Max (Raspon ("B" & k & ":" & "E" & k)) Stanice (k, 8) .Value = WorksheetFunction.Index (Raspon ("B1: E1"), WorksheetFunction.Match _ (Ćelije (k, 7). Vrijednost, Raspon ("B" & k & ":" & "E" & k) )) Sljedeći k Kraj Sub

Na temelju vrijednosti koju pruža funkcija VBA max, funkcija INDEX i funkcija MATCH vratit će pridruženi mjesec u sljedećem retku.

Stvari koje treba zapamtiti
- Ako je njihov duplikat broj, prikazat će samo jedan broj koji je na prvom mjestu.
- Ovo je suprotna formula funkcije MIN u excelu.
- MAX nije VBA funkcija. To je ugrađena funkcija u excelu, pa pomoću klase funkcije radnog lista.
Ovaj Excel predložak možete preuzeti ovdje - VBA Max Predložak funkcije.