Max, așa cum sugerează și numele, este folosit pentru a afla valoarea maximă dintr-un anumit set de date sau dintr-o matrice, aceasta este o funcție de foaie de lucru, deci este utilizată cu metoda foii de lucru ca funcție de foaie de lucru, există o limitare la această metodă, deoarece acest lucru funcția ia un tablou ca argument, pot exista doar 30 de valori în tablou.
Funcția Excel VBA Max
Avem mai multe funcții numerice în Excel. Putem număra valorile numerice din interval, putem însuma și putem găsi valoarea minimă, precum și valoarea maximă a lotului. Pentru a găsi valoarea maximă a lotului, avem o funcție excel numită MAX, care va returna valoarea maximă a intervalului de numere furnizat. În VBA, nu avem nicio funcție încorporată numită „MAX” pentru a obține numărul maxim. Vom vedea cum să utilizați această funcție Excel VBA Max.
Exemplu de funcție Max în Excel VBA
Din păcate, nu avem luxul de a folosi MAX ca funcție încorporată VBA, dar putem accesa această funcție ca parte a clasei Funcția Foaie de lucru.
Acum, uitați-vă la codul de mai jos.
Cod:
Sub 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
În exemplul de mai sus, am declarat trei variabile pentru a stoca numărul.
Dim a As Integer Dim b As Integer Dim c As Integer
Am declarat încă o variabilă pentru a arăta rezultatele.
Diminuează rezultatul ca întreg.
Pentru primele 3 trei variabile, am atribuit valoarea cum ar fi 50, 25 și respectiv 60.
a = 50 b = 25 c = 60
În rândul următor, am aplicat MAX ca o clasă de funcții de foaie de lucru VBA pentru a stoca rezultatul la variabila „Rezultat”.
Rezultat = WorksheetFunction.Max (a, b, c)
Deci, în cele din urmă, arăt valoarea în caseta de mesaj din VBA. Rezultat MsgBox
Acum voi rula acest cod folosind F5 sau manual și voi vedea care este rezultatul în caseta de mesaj.
Deci, rezultatul este de 60.
Din toate numerele furnizate, adică 50, 25 și 60, numărul maxim este de 60.
Exemplu avansat de Max în Excel VBA
Buclele sunt foarte importante în VBA pentru a rula prin toate celulele și pentru a ajunge la rezultat. Vom vedea cum să combinăm VBA MAX cu bucle pentru a ajunge la valoarea maximă din lista numerelor.
Am o listă de articole și performanța lunară a vânzărilor acestora, așa cum se arată mai jos.
Acum, pentru fiecare articol, vreau să știu care este numărul maxim de vânzare pe 4 luni, așa cum se arată în imagine.
Aplicând MAX la Excel, putem găsi acest lucru în câteva secunde.
Acum vom vedea cum să găsim valoarea maximă utilizând codul VBA.
Codul de mai jos va îndeplini sarcina de a găsi numărul maxim pentru fiecare articol.
Cod:
Sub MAX_Example2 () Dim k Întreg pentru k = 2 până la 9 celule (k, 7). Valoare = WorksheetFunction.Max (Range ("A" & k & ":" & "E" & k)) Următorul k End Sub
Aceasta va identifica cu ușurință numărul maxim.
Now run the code manually or press the F5 key and see the result as shown below.
In order to get the maximum values month name, use the below code.
Code:
Sub MAX_Example2() Dim k As Integer For k = 2 To 9 Cells(k, 7).Value = WorksheetFunction.Max(Range("B" & k & ":" & "E" & k)) Cells(k, 8).Value = WorksheetFunction.Index(Range("B1:E1"), WorksheetFunction.Match _ (Cells(k, 7).Value, Range("B" & k & ":" & "E" & k))) Next k End Sub
Based on the value provided by the VBA max function, the INDEX function & MATCH function will return the associated month in the next line.
Things to Remember
- If their duplicate number is there, it will show only one number which comes first.
- This is the opposite formula of the MIN function in excel.
- MAX nu este o funcție VBA. Este o funcție încorporată în Excel, deci folosind clasa de funcții a foii de lucru.
Puteți descărca acest șablon Excel aici - Șablon funcție VBA Max.
