Funkcija Excel VBA Square Root (SQR)
U VBA imamo ugrađenu funkciju koja se naziva “SQR”, ova funkcija vraća kvadratni korijen za zadani broj naveden u ulazu. Funkcija Square Root zahtijeva samo jedan argument za svoju funkciju, tj. Number.
SQRT je funkcija kvadratnog korijena i u Excelu i u VBA. Metoda korištenja ove funkcije je kako slijedi SQR (broj) i koristi se za izračunavanje kvadratnog korijena određenog broja u excelu; međutim, nomenklatura je drugačija i napisana je kao SQRT u usporedbi sa SQR u VBA.
Ispod je sintaksa funkcije SQR.
Broj: Za ovaj argument moramo navesti broj za koji pokušavamo pronaći kvadratni korijen. Broj može biti izravna opskrba brojem ili brojem dodijeljenim varijabli ili je broj s referencom na ćeliju valjan.
Ova je funkcija dostupna s obje funkcije radnog lista kao i s VBA funkcijom, ali na radnom listu dostupna je kao SQRT.
Primjeri kvadratnog korijena u programu Excel VBA
Primjer # 1
Sada ćemo pokušati napisati kod kako bismo pronašli kvadratni korijen za broj 64.
Prvo pokrenite VBA potprogram.
Kodirati:
Sub Square_Root_Example () Kraj Sub
Definirajte dvije varijable kao Integer, jedna je za spremanje broja, a druga za prikaz rezultata vrijednosti kvadratnog korijena.
Kodirati:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer End Sub
Za varijablu "ActualNumber" dodijelite vrijednost broja 64.
Kodirati:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 End Sub
Za drugu varijablu dodijelit ćemo vrijednost kvadratnog korijena, unijeti ime varijable, staviti jednako sing i otvoriti funkciju SQR.
Jedini argument funkcije SQR je "Broj", jer smo varijabli "ActualNumber" već dodijelili broj 64, navedimo isto ime varijable u funkciji SQR.
Zatim prikaži rezultat u okviru za poruku. Sada je kvadratni korijenski broj dodijeljen varijabli "SquareNumber" prikazuje isto ime varijable u okviru s porukom.
Kodirati:
Sub Square_Root_Example () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Ok, to je sve što smo završili s kodiranjem.
Pokrenite kôd pomoću excelove tipke prečaca F5 i pogledajte što ćemo dobiti u okviru za poruku.
Kvadratni korijen broja 64 je 8, tj. 8 * 8 = 64
Primjer # 2
Još jednu stvar koju moramo imati na umu prilikom izračunavanja sqrt-a u VBA-u je kada je varijabla tipa podataka ili cijela ili duga, rezultat se zaokružuje na najbližu cijelu vrijednost ili vrijednost cijelog broja.
Na primjer, ako pokušavate pronaći kvadratni korijen za broj 70, za to ne postoji kvadratni korijen, ali u VBA se prikazuje kao 8 samo zato što je 8 najbliža cjelobrojna vrijednost kvadratnog korijena.
Pogledajte donji kod.
Kodirati:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Integer ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Stvarni rezultat broja kvadratnih korijena za 70 iznosi 8,3666, ali s VBA zaokružit će se na najbližu cjelobrojnu vrijednost 8.
Jedna stvar koju možemo učiniti da bismo ispravili ovu pogrešku je da moramo promijeniti vrstu podataka varijable "SquareNumber" u "Double".
Kodirati:
Sub Square_Root_Example1 () Dim ActualNumber As Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Sada pokrenite kod ručno ili preko tipke F5 i pogledajte rezultat.
Kao što vidite, rezultat je sada točan, tj. 8.366602. To je zbog vrste podataka koju smo dodijelili varijabli "SquareNumber".
Stvari koje treba zapamtiti
- U VBA je pronalazak kvadratnog korijena brojevne formule SQR, a na radnom listu SQRT.
- Broj koji dostavljamo funkciji SQR trebao bi biti pozitivan broj, inače ćemo dobiti #NUM! pogreška.
