Excel VBA Square Root (SQR) -funksjon
I VBA har vi en innebygd funksjon kalt “SQR”, denne funksjonen returnerer kvadratroten for det gitte nummeret som er gitt i inngangen. Square Root-funksjonen krever bare ett argument for funksjonen, dvs. nummer.
SQRT er en kvadratrotfunksjon i både excel og VBA. Metoden for å bruke denne funksjonen er som følger SQR (nummer) og brukes til å beregne kvadratroten til et gitt tall i excel; nomenklaturen er imidlertid annerledes, og den er skrevet som SQRT sammenlignet med SQR i VBA.
Nedenfor er syntaksen til SQR-funksjonen.
Antall: For dette argumentet må vi oppgi tallet vi prøver å finne kvadratroten for. Nummeret kan være en direkte tilførsel av nummer eller nummer som er tildelt variabelen, eller et nummer med cellereferanse er gyldig.
Denne funksjonen er tilgjengelig med både regnearkfunksjoner og VBA-funksjon, men i et regneark er den tilgjengelig som SQRT.
Eksempler på Square Root i Excel VBA
Eksempel 1
Nå skal vi prøve å skrive kode for å finne kvadratroten til tallet 64.
Start først VBA-underrutinen.
Kode:
Sub Square_Root_Example () End Sub
Definer to variabler som Heltall, den ene er å lagre nummeret, og en annen er å vise resultatet av kvadratrotverdien.
Kode:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber Som Integer End Sub
For variabelen “ActualNumber”, tildel verdien 64.
Kode:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber Som Integer ActualNumber = 64 End Sub
For en annen variabel tildeler vi kvadratrotverdien, skriver inn variabelnavnet, setter like sing og åpner SQR-funksjonen.
Det eneste argumentet for SQR-funksjonen er "Number" siden vi allerede har tilordnet nummeret 64 til variabelen "ActualNumber", la oss oppgi samme variabelnavn i SQR-funksjonen.
Vis deretter resultatet i meldingsboksen. Nå er kvadratroten tilordnet variabelen "SquareNumber" viser samme variabelnavn til meldingsboksen.
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 vi er ferdige med koding.
Kjør koden ved hjelp av excel hurtigtast F5 og se hva vi får i meldingsboksen.
Kvadratrot av tallet 64 er 8, dvs. 8 * 8 = 64
Eksempel 2
En ting til som vi må huske på når vi beregner sqrt i VBA, er at når den variable datatypen enten er heltall eller lang, blir resultatet avrundet til nærmeste heltall eller heltallverdi.
For eksempel, hvis du prøver å finne kvadratroten for tallet 70, er det ingen kvadratrot for dette, men i VBA viser det som 8 bare fordi 8 er nærmeste kvadratrot heltall verdi.
Se på koden nedenfor.
Kode:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber Som Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Det faktiske kvadratrots tallresultatet for 70 er 8.3666, men med VBA vil det rundes til nærmeste heltall 8.
En ting vi kan gjøre for å rette opp denne feilen, er at vi må endre datatypen til variabelen "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
Kjør nå koden manuelt eller gjennom F5-tasten og se resultatet.
Som du ser er resultatet nøyaktig nå, dvs. 8.366602. Dette er på grunn av datatypen vi har tilordnet variabelen "SquareNumber."
Ting å huske
- I VBA for å finne kvadratroten til tallformelen er SQR, og i regnearket er det SQRT.
- Tallet vi leverer til SQR-funksjonen skal være et positivt tall, ellers får vi #NUM! feil.
