Funkcija Excel VBA Square Root (SQR)
V VBA imamo vgrajeno funkcijo, imenovano “SQR”, ta funkcija vrne kvadratni koren za dano številko, navedeno v vnosu. Funkcija Square Root zahteva samo en argument za svojo funkcijo, tj. Number.
SQRT je kvadratna korenska funkcija tako v Excelu kot v VBA. Metoda za uporabo te funkcije je naslednja SQR (število) in se uporablja za izračun kvadratnega korena določenega števila v excelu; vendar je nomenklatura drugačna in je v VBA zapisana kot SQRT v primerjavi s SQR.
Spodaj je sintaksa funkcije SQR.
Številka: Za ta argument moramo navesti številko, za katero želimo najti kvadratni koren. Številka je lahko neposredna dobava številke ali številke, dodeljene spremenljivki, ali pa je številka s sklicem na celico veljavna.
Ta funkcija je na voljo tako s funkcijami delovnega lista kot s funkcijo VBA, vendar je na delovnem listu na voljo kot SQRT.
Primeri kvadratnega korena v Excelu VBA
Primer # 1
Zdaj bomo poskušali napisati kodo, da bi našli kvadratni koren za število 64.
Najprej zaženite podprogram VBA.
Koda:
Sub Square_Root_Example () Konec Sub
Določite dve spremenljivki kot celo število, ena je shraniti število, druga pa prikazati rezultat kvadratne vrednosti korena.
Koda:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer End Sub
Za spremenljivko "ActualNumber" dodelite vrednost številke 64.
Koda:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 End Sub
Za drugo spremenljivko bomo dodelili vrednost kvadratnega korena, vnesli ime spremenljivke, dali enak sing in odprli funkcijo SQR.
Edini argument funkcije SQR je "Število", saj smo spremenljivki "ActualNumber" že dodelili številko 64. V funkciji SQR navedimo isto ime spremenljivke.
Nato v oknu za sporočilo pokažite rezultat. Zdaj je spremenljivki »SquareNumber« dodeljena kvadratna korenska številka, ki prikazuje isto ime spremenljivke v polju za sporočila.
Koda:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Ok, s kodiranjem smo končali.
Zaženite kodo s pomočjo bližnjice excel F5 in si oglejte, kaj dobimo v polju za sporočila.
Kvadratni koren števila 64 je 8, tj. 8 * 8 = 64
2. primer
Še ena stvar, ki jo moramo upoštevati pri izračunu sqrt-a v VBA, je, če je spremenljivka podatkovnega tipa celo število ali dolga, rezultat se zaokroži na najbližjo celo število ali celoštevilčno vrednost.
Če na primer poskušate najti kvadratni koren za število 70, kvadratnega korena za to ni, v VBA pa se prikaže kot 8 samo zato, ker je 8 najbližja celoštevilčna vrednost kvadratnega korena.
Poglejte spodnjo kodo.
Koda:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Dejanski rezultat kvadratnega korena za 70 je 8,3666, vendar se bo z VBA zaokrožil na najbližjo celoštevilčno vrednost 8.
Nekaj, kar lahko storimo za odpravo te napake, je, da spremenimo podatkovni tip spremenljivke »SquareNumber« v »Double«.
Koda:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Zdaj zaženite kodo ročno ali s tipko F5 in si oglejte rezultat.
Kot lahko vidite, je rezultat zdaj natančen, tj. 8.366602. To je zaradi vrste podatkov, ki smo jo dodelili spremenljivki »SquareNumber«.
Stvari, ki si jih je treba zapomniti
- V VBA je kvadratni koren formule števila SQR, na delovnem listu pa SQRT.
- Število, ki ga dostavljamo funkciji SQR, mora biti pozitivno število, sicer bomo dobili # ŠTEVILO! napaka.
