Funkcia VBA Max - Ako nájsť maximum pomocou aplikácie Max v programe Excel VBA?

Max, ako už názov napovedá, sa používa na zistenie maximálnej hodnoty z danej množiny údajov alebo z poľa, jedná sa o funkciu pracovného hárka, takže sa používa s metódou pracovného hárka ako funkcia pracovného hárka, táto metóda má však svoje obmedzenie funkcia vezme pole ako argument, v poli môže byť iba 30 hodnôt.

Funkcia Excel VBA Max

V Exceli máme niekoľko numerických funkcií. Môžeme počítať číselné hodnoty v rozmedzí, môžeme sčítať a nájdeme minimálnu aj maximálnu hodnotu šarže. Aby sme zistili maximálnu hodnotu dávky, máme funkciu programu Excel s názvom MAX, ktorá vráti maximálnu hodnotu dodaného rozsahu čísel. Vo VBA nemáme žiadnu zabudovanú funkciu nazvanú „MAX“, aby sme dosiahli maximálny počet. Uvidíme, ako túto funkciu Excel VBA Max používať.

Príklad maximálnej funkcie v programe Excel VBA

Bohužiaľ nemáme taký luxus, že by sme ako integrovanú funkciu VBA používali MAX, ale k tejto funkcii máme prístup ako súčasť triedy Worksheet Function.

Teraz sa pozrite na nižšie uvedený kód.

Kód:

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

Vo vyššie uvedenom príklade som deklaroval tri premenné na uloženie čísla.

Dim a As Integer  Dim b As Integer  Dim c As Integer

Vyhlásil som ešte jednu premennú, ktorá ukáže výsledky.

Stlmiť výsledok ako celé číslo.

Pre prvé 3 tri premenné som priradil hodnotu ako 50, 25, respektíve 60.

a = 50  b = 25  c = 60

V ďalšom riadku som použil MAX ako triedu funkcií pracovného listu VBA na uloženie výsledku do premennej „Výsledok“.

Výsledok = WorksheetFunction.Max (a, b, c)

Takže nakoniec ukazujem hodnotu v schránke správ vo VBA. Výsledok MsgBox

Teraz tento kód spustím pomocou klávesu F5 alebo manuálne a v okne so správou uvidím, aký je výsledok.

Výsledok je teda 60.

Zo všetkých dodaných čísel, tj. 50, 25 a 60, je maximálny počet 60.

Pokročilý príklad Maxa v Exceli VBA

Smyčky sú vo VBA veľmi dôležité, aby prešli všetkými bunkami a dospeli k výsledku. Uvidíme, ako skombinovať VBA MAX so slučkami, aby sme dosiahli maximálnu hodnotu zo zoznamu čísel.

Mám zoznam položiek a ich mesačný predajný výkon týchto položiek, ako je uvedené nižšie.

Teraz pri každej položke chcem vedieť, aké je maximálne predajné číslo za 4 mesiace, ako je to znázornené na obrázku.

Použitím MAX na vyniknutie to nájdeme za pár sekúnd.

Teraz uvidíme, ako nájsť maximálnu hodnotu pomocou kódu VBA.

Nasledujúci kód slúži na nájdenie maximálneho počtu pre každú položku.

Kód:

Sub MAX_Example2 () Dim k ako celé číslo pre k = 2 až 9 buniek (k, 7). Hodnota = WorksheetFunction.Max (rozsah ("A" & k & ":" & "E" & k)) Ďalej k Koniec Sub

Takto ľahko zistíte maximálny počet.

Teraz spustite kód manuálne alebo stlačte kláves F5 a pozrite si výsledok, ako je uvedené nižšie.

Pre získanie maximálnych hodnôt názov mesiaca použite nasledujúci kód.

Kód:

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) )) Ďalej k Koniec Sub

Na základe hodnoty poskytnutej funkciou VBA max funkcia INDEX & MATCH vráti súvisiaci mesiac v nasledujúcom riadku.

Na čo treba pamätať

  • Ak sa tam nachádza ich duplicitné číslo, zobrazí sa iba jedno číslo, ktoré bude skôr.
  • Toto je opačný vzorec funkcie MIN v programe Excel.
  • MAX nie je funkcia VBA. Je to zabudovaná funkcia v programe Excel, takže sa používa trieda funkcií listu.

Túto šablónu programu Excel si môžete stiahnuť tu - Šablóna funkcií VBA Max.

Zaujímavé články...