Co je Max Function ve VBA?

Funkce Max se používá k výpočtu největšího čísla. Existuje několik numerických funkcí v Excelu, které lze použít k výpočtu rozsahu, sčítání šarže nebo k nalezení minimální nebo maximální hodnoty z rozsahu čísel. Funkce Max se používá k nalezení maximální hodnoty z rozsahu hodnot. Jedná se o vestavěnou funkci v Excelu a kategorizovanou jako funkce Max. Ve VBA však neexistuje žádná vestavěná funkce jako Max pro získání maximální hodnoty. Funkci Max lze použít také v aplikaci VBA Excel. Pro argument funkce (pole, rozsah atd.) Může být zadán přímo do funkce nebo definován jako proměnné, které se místo toho použijí.

Syntax:

=application.WorksheetFunction.max(arg1, arg2, arg3……………arg30)

Parametr nebo argumenty použité ve funkci Max jsou:

arg1 …… arg30: číslo 1 až číslo 30, ze kterého se má odvodit maximální počet. Může to být číslo, pojmenované rozsahy, pole nebo odkaz na čísla.

Poznámka:

  • Pokud argumenty neobsahují žádná čísla, vrátí MAX 0 (nula).
  • Argumenty, které mají chybové hodnoty nebo text a nemohou být přeloženy do čísel, způsobí chyby.
  • Funkce Max vrací číselnou hodnotu.

Jak povolit kartu Vývojáři?

Pro spuštění a zápis makra VBA je na pásu karet Excel povinná karta Developer. Chcete-li kartu vývojáře v aplikaci Excel povolit, postupujte podle níže uvedených kroků.

Krok 1: Přejděte do souboru .

Krok 2: Klikněte na Možnosti .

Krok 3: V okně, které se otevře s názvem Možnosti aplikace Excel, klikněte na Přizpůsobit pás karet a otevřete možnosti přizpůsobení pásu karet.

Krok 4: Zde v možnostech přizpůsobení vidíte možnost Vývojář (vlastní) . Zaškrtněte ji, aby se aktivovala na hlavní stuze Excelu a byla snadno přístupná. Po zaškrtnutí možnosti Vývojář klepněte na tlačítko OK .

Krok 5: Klikněte na kartu Vývojář a poté na ikonu jazyka (ALT + F11).

Objeví se editor VBA.

Jak používat maximální funkci v Excel VBA?

Níže jsou uvedeny různé příklady použití funkce Max v aplikaci Excel VBA:

Tuto šablonu VBA Max Excel si můžete stáhnout zde - VBA Max Excel Template

VBA Max - Příklad č. 1

Vezměte čtyři čísla 12, 25, 36, 45. Zjistěte Maxovo číslo pomocí funkce max.

Kód:

 Sub AA () Dim A jako celé číslo Dim B jako celé číslo Dim C jako celé číslo Dim D jako celé číslo Dim výsledek jako celé číslo A = 12 B = 25 C = 36 D = 45 výsledek = WorksheetFunction.Max (A, B, C, D) Výsledek MsgBox End Sub

Poznámka:

  • Uveďte datový typ proměnných pomocí dim .
  • Přiřazujte čísla proměnným.

Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Přehrát. Výsledek se zobrazí v okně se zprávou.

VBA Max - Příklad č. 2

Vezměte čtyři čísla 15, 34, 50, 62. Zjistěte maximální počet pomocí funkce Max.

Kód:

 Sub AA1 () A = 15 B = 34 C = 50 D = 62 výsledek = WorksheetFunction.Max (A, B, C, D) MsgBox výsledek End Sub

Poznámka:

  • Zde jsme přímo přiřadili čísla čtyřem proměnným, aniž bychom uvedli jejich datový typ. Program automaticky rozhodne o typu dat.
  • Použil tyto proměnné ve vzorci a výsledek dostal do okna zprávy.

Spusťte kód stisknutím klávesy F5 nebo kliknutím na tlačítko Přehrát. Výsledek se zobrazí v okně se zprávou.

VBA Max - Příklad č. 3

Najděte maximální hodnotu z rozsahu pomocí funkce Max.

Kód:

 Funkce getmaxvalue (Maximum_range As Range) Dim i Double pro každou buňku In Maximum_range If cell.Value> i Then i = cell.Value End If Next getmaxvalue = i End Function

Poznámka:

  • Procedura funkce v kódu VBA provádí výpočty a vrací výsledek.
  • Může mít volitelný návratový příkaz. Je nutné vrátit hodnotu z funkce.
  • Před použitím funkce musíme tuto konkrétní funkci definovat.

Syntax:

Function functionname(parameter_list)
Statement 1
Statement 2
Statement 3
:
End Function

Zde za klíčovým slovem funkce následuje jedinečný název funkce, např. Getmaxvalue (args_1, … args_n) a může nebo nemusí nést seznam parametrů s datovým typem, např. Maximum_range As Range. Končí koncovou funkcí, která označuje konec funkce. Uveďte datový typ proměnných pomocí dim .

Volání funkce:

Chcete-li vyvolat funkci, zavolejte funkci pomocí názvu funkce, např. Getmaxvalue (args_1, … args_n) .

Výsledek bude uveden níže.

VBA Max - Příklad č. 4

Najděte maximální hodnotu z rozsahu pomocí funkce Max.

Kód:

 Funkce getmaxvalue (Maximum_range As Range) Dim i Double pro každou buňku In Maximum_range If cell.Value> i Then i = cell.Value End If Next getmaxvalue = i End Function

Poznámka:

  • Maximum_range představuje rozsah buněk předaných z listu Excel jako parametr.
  • Proměnná i je deklarována jako Double.
  • Smyčka For je opakována. Při každé iteraci podmínka if zkontroluje, zda je hodnota načtená z odpovídající buňky větší než i. Pokud podmínka vyhodnocuje true, je hodnota buňky přiřazena i .
  • Když byly iterovány všechny buňky v Maximum_range, maximum mezi buňkami bude přiřazeno k i .
  • Nakonec je i přiřazeno getmaxvalue a vráceno do volající buňky.

Výsledek bude uveden níže.

Závěr

Funkce VBA max se používá k nalezení maximální hodnoty z rozsahu čísel. K provádění výpočtů je vyžadován funkční postup. Dim se používá k definování proměnných. Funkce End se používá k ukončení funkce. Plní úkol velmi rychle a přesně. Přestože se nejedná o vestavěnou funkci ve VBA excel, pomocí funkční procedury však můžeme provést funkci max ve VBA excel.

Doporučený článek

Toto je průvodce VBA MAX. Zde diskutujeme o tom, jak používat funkci MAX v Excelu VBA, spolu s praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. Vytváření kolekce objekt v Excel VBA
  2. VBA IF Prohlášení | Šablony Excelu
  3. Jak používat funkci řazení Excel VBA?
  4. VBA while Loop (příklady se šablonou Excel)

Kategorie:

VBA