Excel VBA Square Root Function

V tomto článku uvidíme osnovy v kořenovém kořenovém adresáři Excel VBA. Pokaždé, když pracujete v Excelu, musíte použít funkci SQRT, která jako výsledek dává druhou odmocninu libovolného celého čísla. Je možné zachytit druhou odmocninu čísla pod VBA? Odpověď je jistá Ano! Druhou odmocninu libovolného kladného čísla můžete získat pomocí funkce VBA pomocí funkce VBA SQR. Tato funkce je vestavěná funkce VBA a lze ji použít na jakémkoli kladném čísle pro získání druhé odmocniny. Tato funkce je velmi podobná té, kterou používáme jako tabulkovou funkci SQRT, a také vezme stejný argument „Number“, který by měl být pozitivní. Nemůžeme získat ani druhé odmocniny imaginárních čísel a zadávání záporných hodnot není k ničemu, protože není možné zachytit zápornou druhou mocninu čísla.

Syntax:

Syntaxe pro funkci root root VBA je velmi jednoduchá a vypadá podobně jako funkce tabulkového procesoru SQRT.

Kde Number je jediný argument, který je třeba poskytnout a měl by být striktně pozitivní. Protože nemůžeme mít zápornou druhou mocninu, žádné šance na získání záporné druhé odmocniny není možné. Rovněž neexistuje prostor pro nalezení pravoúhlých kořenů komplexních čísel. Tento argument lze poskytnout přímo jako číslo nebo proměnnou přiřazenou číslu nebo odkaz na buňku tabulky, kde je číslo uloženo. Zde je třeba poznamenat, že systém ve výchozím nastavení považuje argument, který poskytnete, za dvojnásobek, aby vám dal druhou odmocninu na libovolném čísle bez ohledu na to, že se jedná o celý čtverec nebo ne (např. 87 není celý čtverec, ale stále získá druhou odmocninu, protože typ čísla je dvojitý. Stále můžete číslo definovat jako celé číslo a poté jej použít jako argument funkce SQR. Zaokrouhlí se na nejbližší druhou odmocninu, pokud číslo pokud není celý čtverec.

Jak používat funkci Square Root v Excelu VBA?

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

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

VBA Square Root - Příklad č. 1

Postupujte podle níže uvedených kroků a zjistěte, jak přesně funguje funkce VBA SQR.

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

Krok 2: Otevřete modul na kartě nabídky Vložit, jak je ukázáno níže.

Krok 3: Definujte nový dílčí postup, který může držet makro pod nově vloženým modulem.

Kód:

 Sub sqrt_Example1 () End Sub

Krok 4: Pomocí operátoru přiřazení přiřaďte hodnotu funkce root root VBA proměnné s názvem „ sqr_root “, abychom mohli výsledek vytisknout a zjistit, zda funguje dobře.

Kód:

 Sub sqrt_Example1 () sqr_root = Sqr (121) End Sub

Krok 5: Použijte funkci MsgBox, abychom mohli vytisknout výsledek jako okno se zprávou, které se objeví, jakmile spustíme kód.

Kód:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "Druhá odmocnina zadaného čísla je:" & sqr_root End Sub

Krok 6: Spusťte tento kód stisknutím klávesy F5 nebo Spustit umístěné na horním panelu.

Jakmile spustíte tento kód, měl by se zobrazit výstup, jak je uvedeno níže.

VBA Square Root - Příklad č. 2

Pojďme se ponořit hlouběji do funkce VBA SQR a pokusme se zjistit několik různých případů.

Krok 1: Definujte dílčí postup, který pojme vaše makra.

Kód:

 Sub sqrt_Example2 () End Sub

Krok 2: Musíme definovat dvě nové proměnné jako celé číslo. Jeden pro uložení hodnoty, pro kterou chceme druhou odmocninu. Jiná proměnná by byla pro uložení výsledku druhé odmocniny poté, co použijeme funkci SQR.

Kód:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root jako Integer End Sub Sub

Krok 3: Přiřaďte hodnotu jako 87 k proměnné square_num pomocí operátoru přiřazení ('='). Toto je číslo, pro které jsme chtěli zachytit druhou odmocninu.

Kód:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 End Sub

Krok 4: Pomocí funkce SQR a operátoru přiřazení přiřaďte hodnotu druhé odmocniny proměnné square_root . Square_num použijte jako argument ve funkci SQR (číslo, pro které jsme chtěli druhou odmocninu).

Kód:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) End Sub

Krok 5: Pomocí vlastnosti MsgBox zobrazte hodnotu druhé odmocniny jako zprávu, která se objeví, jakmile spustíte kód.

Kód:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) MsgBox "Druhá odmocnina pro dané číslo je:" & square_root End Sub

Krok 6: Spusťte tento kód stisknutím tlačítka F5 nebo Run, které je umístěno na nejvyšší stuze VBE.

Krok 7: Viz výstup v okně se zprávou, jak je uvedeno níže:

Toto však není skutečná druhá odmocnina pro číslo 87. Toto je druhá odmocnina pro číslo 81. Proč na světě dává VBA špatný výstup pro funkci SQR?

No, s VBA není nic špatného. Pokud je něco špatně, je to ideální s naším kódem.

Protože jsme proměnné definovali jako celá čísla, omezujeme VBA tak, aby dával druhé odmocniny pouze těch čísel, která jsou celá čísla čtverců (např. 4, 9, 16, 25 atd.). Pokud žádné číslo není celý čtverec, funkce VBA SQR namísto vyvolání chyby, dává druhou odmocninu hodnotu pro číslo, které je blízké aktuálnímu číslu. Zde má 87 jako nejbližší celé číslo 81. Proto dostáváte výstup jako 9.

Krok 8: Uvidíme, co se stane, když vyladíme kód definováním proměnné square_root jako Double namísto Integer.

Kód:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Double square_num = 87 square_root = Sqr (square_num) MsgBox "Druhá odmocnina pro dané číslo je:" & square_root End Sub

Krok 9: Uvidíte, že systém nyní může zachytit skutečnou druhou odmocninu pro číslo 87.

Co si pamatovat

  • Pokud zadáte záporné číslo jako argument v rámci funkce VBA SQR, vyvolá chybu run-time '5' . Protože není možné mít číslo se zápornými čtvercovými hodnotami.
  • Pokud máte záporné číslo, ujistěte se, že je pomocí funkce ABS převádíte na pozitivní entitu. Můžete také zkontrolovat, zda je číslo kladné nebo záporné pomocí funkce SGN pod VBA.
  • Pokud zadáte nulu jako argument ve funkci VBA SQR, dostanete druhou odmocninu jako nulu.

Doporučené články

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

  1. VBA IF Prohlášení | Šablony Excelu
  2. Jak používat funkci řazení Excel VBA?
  3. VBA while Loop (příklady se šablonou Excel)
  4. Co je počítadlo VBA (příklady)?

Kategorie:

VBA