Funcția Excel VBA Square Root (SQR)
În VBA avem o funcție încorporată numită „SQR”, această funcție returnează rădăcina pătrată pentru numărul dat furnizat în intrare. Funcția Rădăcină pătrată necesită un singur argument pentru funcția sa, adică Număr.
SQRT este o funcție rădăcină pătrată atât în Excel, cât și în VBA. Metoda de utilizare a acestei funcții este următoarea SQR (număr) și utilizată pentru a calcula rădăcina pătrată a unui număr dat în excel; cu toate acestea, nomenclatura este diferită și este scrisă ca SQRT comparativ cu SQR în VBA.
Mai jos este sintaxa funcției SQR.
Număr: Pentru acest argument, trebuie să furnizăm numărul pentru care încercăm să găsim rădăcina pătrată. Numărul poate fi un aport direct de număr sau număr atribuit variabilei sau un număr cu referință de celulă este valid.
Această funcție este disponibilă atât cu funcțiile foii de lucru, cât și cu funcția VBA, dar într-o foaie de lucru, este disponibilă ca SQRT.
Exemple de rădăcină pătrată în Excel VBA
Exemplul nr. 1
Acum vom încerca să scriem cod pentru a găsi rădăcina pătrată pentru numărul 64.
Mai întâi, porniți subrutina VBA.
Cod:
Sub Square_Root_Example () End Sub
Definiți două variabile ca Număr întreg, una este să stocați numărul, iar alta este să arătați rezultatul valorii rădăcinii pătrate.
Cod:
Sub Square_Root_Example () Dim Număr actual ca număr întreg Dim Număr pătrat ca număr întreg Sub
Pentru variabila „Număr actual”, atribuiți valoarea numărului 64.
Cod:
Sub Square_Root_Example () Dim Număr actual ca număr întreg Dim Număr pătrat ca număr întreg real = 64 End Sub
Pentru o altă variabilă, vom atribui valoarea rădăcinii pătrate, vom introduce numele variabilei, vom pune canturi egale și vom deschide funcția SQR.
Singurul argument al funcției SQR este „Număr”, deoarece am atribuit deja numărul 64 variabilei „Număr actual” să furnizăm același nume de variabilă în funcția SQR.
Apoi, arată rezultatul în caseta de mesaj. Acum, numărul rădăcinii pătrate este atribuit variabilei „SquareNumber” afișează același nume al variabilei în caseta de mesaje.
Cod:
Sub Square_Root_Example () Dim Număr actual ca număr întreg Dim Număr pătrat ca număr întreg Număr actual = 64 Număr pătrat = Sqr (Număr real) MsgBox SquareNumber End Sub
Ok, asta e tot ce am terminat cu codificarea.
Rulați codul utilizând tasta de comandă rapidă excel F5 și vedeți ce primim în caseta de mesaje.
Rădăcina pătrată a numărului 64 este 8 adică 8 * 8 = 64
Exemplul nr. 2
Încă un lucru pe care trebuie să-l avem în vedere atunci când calculăm sqrt în VBA este atunci când tipul de date variabil este fie întreg sau lung, rezultatul este rotunjit la cea mai apropiată valoare întreg sau număr întreg.
De exemplu, dacă încercați să găsiți rădăcina pătrată pentru numărul 70, nu există nici o rădăcină pătrată pentru aceasta, dar în VBA, se afișează ca 8 numai pentru că 8 este cea mai apropiată valoare întreagă a rădăcinii pătrate.
Uită-te la codul de mai jos.
Cod:
Sub Square_Root_Example1 () Dim Număr actual ca număr întreg Dim Număr pătrat ca număr întreg Număr actual = 70 Număr pătrat = Sqr (Număr actual) MsgBox SquareNumber End Sub
Rezultatul efectiv al numărului rădăcinii pătrate pentru 70 este 8.3666, dar cu VBA, se va rotunji la cea mai apropiată valoare întreagă 8.
Un lucru pe care îl putem face pentru a remedia această eroare este că trebuie să schimbăm tipul de date al variabilei „SquareNumber” în „Double”.
Cod:
Sub Square_Root_Example1 () Dim Număr actual ca număr întreg Dim Număr pătrat ca dublu Număr actual = 70 Număr pătrat = Sqr (Număr actual) MsgBox SquareNumber End Sub
Acum rulați codul manual sau prin intermediul tastei F5 și vedeți rezultatul.
După cum puteți vedea, rezultatul este corect acum, adică 8.366602. Acest lucru se datorează tipului de date pe care l-am atribuit variabilei „SquareNumber”.
Lucruri de amintit
- În VBA pentru a găsi rădăcina pătrată a formulei numerice este SQR, iar în foaia de lucru este SQRT.
- Numărul pe care îl furnizăm funcției SQR ar trebui să fie un număr pozitiv, altfel vom primi #NUM! eroare.
