A Max, amint a neve is mutatja, egy adott adatkészletből vagy tömbből származó maximális érték megállapítására szolgál, ez egy munkalapfüggvény, így a munkalap metódussal együtt munkalapfüggvényként használják, ennek a módszernek van korlátozása, mivel ez A function egy tömböt vesz fel argumentumként, a tömbben csak 30 érték lehet.
Excel VBA Max funkció
Számos függvényünk van az excelben. Számolhatunk számértékeket a tartományban, összegezhetünk, és megtalálhatjuk a tétel minimális és maximális értékét is. A tétel maximális értékének megtalálásához van egy MAX nevű excel függvényünk, amely a megadott számtartomány maximális értékét adja vissza. A VBA-ban nincs egyetlen beépített „MAX” funkció sem a maximális szám eléréséhez. Meglátjuk, hogyan kell használni ezt az Excel VBA Max funkciót.
Példa a Max Funkcióra az Excel VBA-ban
Sajnos nincs olyan luxusunk, hogy a MAX-ot VBA beépített funkcióként használjuk, de ehhez a funkcióhoz a Worksheet Function osztály részeként férhetünk hozzá.
Most nézze meg az alábbi kódot.
Kód:
Sub MAX_Példa1 () Dim a As Integer Dim b As Integer Dim c Integer Dim Eredmény egészként a = 50 b = 25 c = 60 Result = WorksheetFunction. Max (a, b, c) MsgBox Result End Sub
A fenti példában három változót deklaráltam a szám tárolására.
Dim a As Integer Dim b As Integer Dim c As Integer
Még egy változót deklaráltam az eredmények megjelenítésére.
Tompítsa az eredményt egészként.
Az első 3 változóhoz az 50, 25 és 60 értéket rendeltem.
a = 50 b = 25 c = 60
A következő sorban a MAX-ot VBA munkalap funkcióosztályként alkalmaztam az eredmény tárolására az „Eredmény” változóban.
Eredmény = WorksheetFunction. Max (a, b, c)
Végül megmutatom az értéket a VBA üzenetmezőjében. MsgBox eredmény
Most futtatom ezt a kódot az F5 használatával vagy manuálisan, és megnézem, mi az eredmény az üzenetmezőben.
Tehát az eredmény 60.
Az összes mellékelt számból, azaz 50, 25 és 60 közül a maximális szám 60.
Haladó példa Max-re az Excel VBA-ban
A hurkok nagyon fontosak a VBA-ban, hogy végigfussanak az összes cellán és elérjék az eredményt. Meglátjuk, hogyan kombinálhatjuk a VBA MAX-ot hurkokkal, hogy elérjük a maximális értéket a számok listájából.
Van egy listám a tételekről és azok havi értékesítési teljesítményéről, az alábbiak szerint.
Most minden tételnél szeretném tudni, hogy mi a maximális eladási szám 4 hónapon keresztül, amint a képen látható.
A MAX alkalmazását az excelre néhány másodperc alatt megtalálhatjuk.
Most meglátjuk, hogyan lehet megtalálni a maximális értéket a VBA kód használatával.
Az alábbi kód elvégzi azt a feladatot, hogy megtalálja az egyes elemek maximális számát.
Kód:
Sub MAX_Példa2 () Dim k mint egész szám k = 2 - 9 celláig (k, 7). Érték = WorksheetFunction.Max (Tartomány ("A" & k & ":" & "E" & k)) Következő k Vége Sub
Ez könnyen meghatározza a maximális számot.
Most futtassa manuálisan a kódot, vagy nyomja meg az F5 billentyűt, és tekintse meg az eredményt az alábbiak szerint.
A hónap maximális értékének megadásához használja az alábbi kódot.
Kód:
MAX MAX_példa2 () Dim k egész szám k = 2 - 9 celláig (k, 7). Érték = WorksheetFunction.Max (Tartomány ("B" & k & ":" & "E" & k)) Cellák (k, 8) .Value = WorksheetFunction.Index (Tartomány ("B1: E1"), WorksheetFunction.Match _ (Cellák (k, 7). Érték, Tartomány ("B" & k & ":" & "E" & k) )) Következő k Vége Sub
A VBA max függvény által megadott érték alapján az INDEX függvény és a MATCH függvény a következő hónapban adja vissza a hozzá tartozó hónapot.
Dolgok, amikre emlékezni kell
- Ha megvan a kettős számuk, akkor csak egy szám jelenik meg, amelyik előbb következik.
- Ez a MIN függvény ellentétes képlete az excelben.
- A MAX nem VBA függvény. Ez egy beépített függvény az excelben, tehát a munkalap funkcióosztály használatával.
Ezt az Excel sablont innen töltheti le - VBA Max Function Template.
