„Excel VBA“ kvadratinės šaknies (SQR) funkcija
VBA mes turime integruotą funkciją, vadinamą „SQR“, ši funkcija grąžina kvadratinę šaknį nurodytam skaičiui, nurodytam įvestyje. Kvadrato šaknies funkcijai reikalingas tik vienas argumentas, ty skaičius.
SQRT yra kvadratinės šaknies funkcija tiek „Excel“, tiek VBA. Šios funkcijos naudojimo būdas yra toks: SQR (skaičius) ir naudojamas apskaičiuojant nurodyto skaičiaus kvadratinę šaknį „Excel“; tačiau nomenklatūra yra kitokia, ir ji yra parašyta kaip SQRT, palyginti su SQR VBA.
Žemiau yra SQR funkcijos sintaksė.
Skaičius: Norėdami pateikti šį argumentą, turime pateikti skaičių, kuriam bandome rasti kvadratinę šaknį. Skaičius gali būti tiesioginis skaičius ar kintamajam priskirtas skaičius, arba galioja skaičius su langelio nuoroda.
Šią funkciją galima naudoti su abiejomis darbalapio funkcijomis, taip pat su VBA funkcija, tačiau darbalapyje ji yra prieinama kaip SQRT.
„Excel VBA“ kvadratinio šaknies pavyzdžiai
1 pavyzdys
Dabar bandysime parašyti kodą, kad surastume kvadratinę šaknį skaičiui 64.
Pirmiausia paleiskite VBA paprogramę.
Kodas:
Antrasis kvadratas_Šaknis_pavyzdys () Pabaigos antrinis
Apibrėžkite du kintamuosius kaip sveikąjį skaičių, vienas - skaičiaus saugojimas, kitas - kvadratinės šaknies vertės rezultato rodymas.
Kodas:
Antrasis kvadratas_šaknis_pavyzdys () Užfiksuoti faktinį skaičių kaip sveikąjį dydį Užfiksuoti kvadrato numerį kaip sveiko skaičiaus pabaigą
Kintamojo "ActualNumber," Pavesti numeris 64 vertę.
Kodas:
Antrasis kvadratas_šaknis_pavyzdys () Dydis „ActualNumber“ kaip „Sveikasis skaičius“ „Dim SquareNumber“ kaip „Sveikasis skaičius“ kaip tikrasis skaičius = 64 Pabaiga
Kitam kintamajam priskirsime kvadratinės šaknies vertę, įvesime kintamojo pavadinimą, įdėsime lygų singą ir atidarysime funkciją SQR.
Vienintelis SQR funkcijos argumentas yra „Skaičius“, nes kintamajam „ActualNumber“ mes jau priskyrėme skaičių 64, SQR funkcijoje pateikime tą patį kintamojo pavadinimą.
Tada parodykite rezultatą pranešimo laukelyje. Dabar kvadratinės šaknies numeris priskirtas kintamajam „SquareNumber“ pranešimo laukelyje rodo tą patį kintamojo pavadinimą.
Kodas:
Sub Square_Root_Example () Dim ActualNumber as Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Gerai, viskas, ką mes baigėme koduoti.
Paleiskite kodą naudodami „Excel“ spartųjį klavišą F5 ir pamatykite, ką gauname pranešimų laukelyje.
Skaičiaus 64 kvadratinė šaknis yra 8, ty 8 * 8 = 64
2 pavyzdys
Dar vieną dalyką, kurį turime nepamiršti, skaičiuodami sqrt VBA, yra tai, kai kintamųjų duomenų tipas yra sveikas arba ilgas, rezultatas suapvalinamas iki artimiausio sveiko skaičiaus arba sveiko skaičiaus vertės.
Pvz., Jei bandote rasti skaičiaus 70 kvadratinę šaknį, tai nėra kvadratinės šaknies, tačiau VBA rodoma kaip 8 tik todėl, kad 8 yra artimiausia kvadratinės šaknies sveikojo skaičiaus reikšmė.
Pažvelkite į žemiau esantį kodą.
Kodas:
Antrasis kvadratas_Šaknies_pavyzdys1 () Dydis „ActualNumber“ kaip sveikasis „Dim SquareNumber“ kaip „Sveikasis skaičius“ „ActualNumber“ = 70 Kvadrato numeris = Sqr („ActualNumber“) MsgBox Kvadrato numeris Pabaiga Sub
Tikrasis 70 kvadratinės šaknies skaičiaus rezultatas yra 8.3666, tačiau naudojant VBA jis apvalinamas iki artimiausios sveiko skaičiaus 8 vertės.
Vienas dalykas, kurį galime padaryti, kad ištaisytume šią klaidą, yra tai, kad kintamojo „SquareNumber“ duomenų tipą turime pakeisti į „Double“.
Kodas:
Sub Square_Root_Example1 () Dim ActualNumber as Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr (ActualNumber) MsgBox SquareNumber End Sub
Dabar paleiskite kodą rankiniu būdu arba naudodami klavišą F5 ir pamatykite rezultatą.
Kaip matote, dabar rezultatas yra tikslus, ty 8.366602. Taip yra dėl duomenų tipo, kurį priskyrėme kintamajam „SquareNumber“.
Ką reikia atsiminti
- VBA rasti skaičiaus formulės kvadratinę šaknį yra SQR, o darbalapyje - SQRT.
- Skaičius, kurį pateikiame funkcijai SQR, turėtų būti teigiamas skaičius, kitaip gausime #NUM! klaida.
