Excel VBA Square Root (SQR) -funktion
I VBA har vi en indbygget funktion kaldet “SQR”, denne funktion returnerer kvadratroden for det givne nummer, der er angivet i input. Square Root-funktion kræver kun et argument for sin funktion, dvs. Number.
SQRT er en kvadratrodfunktion i både excel og VBA. Metoden til at bruge denne funktion er som følger SQR (nummer) og bruges til at beregne kvadratroden af et givet tal i excel; dog er nomenklaturen forskellig, og den er skrevet som SQRT sammenlignet med SQR i VBA.
Nedenfor er syntaksen for SQR-funktionen.
Nummer: For dette argument skal vi angive det nummer, som vi prøver at finde kvadratroden for. Nummeret kan være en direkte tilførsel af nummer eller nummer tildelt variablen, eller et nummer med cellereference er gyldigt.
Denne funktion er tilgængelig med både regnearksfunktioner såvel som VBA-funktion, men i et regneark er den tilgængelig som SQRT.
Eksempler på Square Root i Excel VBA
Eksempel nr. 1
Nu vil vi prøve at skrive kode for at finde kvadratroden til tallet 64.
Start først VBA-underrutinen.
Kode:
Sub Square_Root_Example () Afslut Sub
Definer to variabler som heltal, den ene er at gemme nummeret, og en anden er at vise resultatet af kvadratroden.
Kode:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber Som Integer End Sub
Til variablen "ActualNumber" tildeles værdien af nummer 64.
Kode:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber Som Integer ActualNumber = 64 End Sub
For en anden variabel tildeler vi kvadratroden, indtaster variabelnavnet, sætter lige sing og åbner SQR-funktionen.
Det eneste argument for SQR-funktionen er "Number", da vi allerede har tildelt tallet 64 til variablen "ActualNumber", lad os give det samme variabelnavn i SQR-funktionen.
Vis derefter resultatet i meddelelsesfeltet. Nu er kvadratrodenummeret tildelt variablen "SquareNumber" viser det samme variabelnavn til meddelelsesfeltet.
Kode:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber Som Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Ok, det er alt, hvad vi er færdige med kodning.
Kør koden ved hjælp af excel genvejstast F5 og se hvad vi får i meddelelsesfeltet.
Kvadratroden på tallet 64 er 8, dvs. 8 * 8 = 64
Eksempel 2
En ting mere, vi skal huske på, når vi beregner sqrt i VBA, er når den variable datatype enten er hel eller lang, resultatet afrundes til nærmeste heltal eller heltal.
For eksempel, hvis du forsøger at finde kvadratroden til tallet 70, er der ingen kvadratroden til dette, men i VBA vises det kun som 8, fordi 8 er den nærmeste kvadratrods heltalværdi.
Se på nedenstående kode.
Kode:
Sub Square_Root_Example1 () Dim ActualNumber Som Integer Dim SquareNumber Som Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Det faktiske kvadratrodenummerresultat for 70 er 8.3666, men med VBA afrundes det til nærmeste heltal 8.
En ting, vi kan gøre for at rette op på denne fejl, er, at vi skal ændre datatypen for variablen "SquareNumber" til "Double".
Kode:
Sub Square_Root_Example1 () Dim ActualNumber Som Integer Dim SquareNumber Som Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Kør nu koden manuelt eller gennem F5-tasten og se resultatet.
Som du kan se, er resultatet nøjagtigt nu, dvs. 8.366602. Dette skyldes den datatype, vi har tildelt variablen "SquareNumber."
Ting at huske
- I VBA for at finde kvadratroden af nummerformlen er SQR, og i regnearket er det SQRT.
- Det antal, vi leverer til SQR-funktionen, skal være et positivt tal, ellers får vi #NUM! fejl.
