Funkcija kvadratnog korijena Excela VBA

U ovom ćemo članku vidjeti strukturu Excel VBA Square Root. Svaki put kada radite na Excelu, sigurno ste koristili funkciju SQRT koja kao rezultat daje kvadratni korijen bilo kojeg cijelog broja. Je li moguće uhvatiti kvadratni korijen broja pod VBA? Pa, odgovor je siguran Da! Kvadratni korijen bilo kojeg pozitivnog broja možete dobiti putem VBA pomoću VBA SQR funkcije. Ova je funkcija ugrađena u VBA funkciju i može se koristiti na bilo kojem pozitivnom cijelom broju kako bi se dobio četvrtasti korijen. Pa, ova je funkcija vrlo slična onoj koju koristimo kao funkciju proračunske tablice SQRT i također uzima isti argument "Broj" koji bi trebao biti pozitivan. Ne možemo dobiti ni kvadratne korijene imaginarnih brojeva, a unošenje negativnih vrijednosti nije od koristi jer ne postoji način na koji bi se mogla uhvatiti negativna kvadratna vrijednost broja.

Sintaksa:

Sintaksa za VBA funkciju kvadratnog korijena prilično je jednostavna i po izgledu je slična onoj u SQRT funkciji proračunske tablice.

Gdje je Broj jedini argument koji se mora pružiti i koji bi trebao biti strogo pozitivan. Kako ne možemo imati negativne kvadratne vrijednosti bilo kojeg broja, šanse za dobivanje negativne kvadratne vrijednosti korijena su nemoguće. Također, nema mjesta za pronalaženje kvadratnih korijena složenih brojeva. Ovaj se argument može pružiti izravno kao broj ili varijabla dodijeljena broju ili referenci ćelije proračunske tablice u kojoj je broj pohranjen. Također, ovdje treba napomenuti da sustav prema zadanim postavkama smatra argument koji ste naveli dvostrukim kako bi vam dao kvadratni korijen na bilo kojem broju, bez obzira na to je li cijeli kvadrat ili ne (npr. 87, nije cijeli kvadrat, ali još uvijek će dobiti vrijednost korijena kvadrata jer je vrsta broja dvostruka. I dalje možete definirati broj kao cijeli broj, a zatim ga koristiti kao argument za SQR funkciju. Zaokružit će se na najbližu kvadratnu vrijednost korijena ako je broj pod uvjetom da nije cijeli trg.

Kako koristiti funkciju kvadratnog korijena u Excelu VBA?

Ispod su sljedeći primjeri za korištenje funkcije Square Root u Excelu VBA.

Možete preuzeti ovaj VBA predložak s kvadratnim korijenom korijena ovdje - VBA predložak s kvadratnim korijenom Excela

VBA kvadratni korijen - primjer # 1

Slijedite korake u nastavku kako biste vidjeli kako točno funkcionira VBA SQR funkcija.

Korak 1: Kliknite karticu Developer, a zatim kliknite ikonu Visual Basic (ALT + F11).

Korak 2: Otvorite modul na kartici izbornika Umetanje, kao što je prikazano u nastavku.

Korak 3: Definirajte novi podpostupak koji može sadržavati makronaredbu pod novo umetnutim modulom.

Kodirati:

 Sub sqrt_Example1 () Kraj Sub

Korak 4: Pomoću operatora dodjele dodijelite vrijednost VBA kvadratne korijenske funkcije varijabli nazvanoj " sqr_root " kako bismo mogli ispisati rezultat i vidjeti radi li dobro.

Kodirati:

 Sub sqrt_Example1 () sqr_root = Sqr (121) Kraj Sub

Korak 5: Upotrijebite funkciju MsgBox kako bismo rezultat ispisali kao okvir s porukom koji će se pojaviti čim pokrenemo kôd.

Kodirati:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "Kvadratni korijen zadanog broja je:" & sqr_root Kraj Pot

Korak 6: Pokrenite ovaj kôd pritiskom na F5 ili Pokreni gumb smješten na gornjoj ploči.

Čim pokrenete ovaj kod, trebali biste vidjeti izlaz kao što je prikazano u nastavku.

VBA kvadratni korijen - primjer br. 2

Zaronimo dublje u VBA SQR funkciju i pokušajmo otkriti neke različite slučajeve.

Korak 1: Definirajte podprocedura koji može sadržavati vaše makronaredbe.

Kodirati:

 Sub sqrt_Example2 () Kraj Sub

Korak 2: Moramo definirati dvije nove varijable kao cijeli broj. Jedna za pohranu vrijednosti za koju želimo kvadratni korijen. Druga bi varijabla bila za pohranjivanje rezultata kvadratnog korijena nakon što primijenimo SQR funkciju.

Kodirati:

 Pod sqrt_Example2 () Dim square_num Kao Cijeli broj Dim square_root Kao Cijeli kraj Sub

Korak 3: Dodijelite vrijednost kao 87 varijabli square_num pomoću operatora dodjele ('='). Ovo je broj za koji smo željeli uhvatiti kvadratnu vrijednost korijena.

Kodirati:

 Pod sqrt_Example2 () Dim square_num Kao cijeli broj Dim square_root Kao cijeli broj square_num = 87 Kraj sub

Korak 4: Pomoću SQR funkcije i operatora dodjele dodijelite vrijednost kvadratnog korijena varijabli square_root . Koristite square_num kao argument u okviru SQR funkcije (broj za koji želimo vrijednost kvadratnog korijena).

Kodirati:

 Pod sqrt_Example2 () Dim square_num Kao cijeli broj Dim square_root Kao cijeli broj square_num = 87 square_root = Sqr (square_num) Kraj sub

Korak 5: Upotrijebite svojstvo MsgBox da biste prikazali vrijednost kvadratnog korijena kao poruke koja se pojavljuje čim pokrenete kôd.

Kodirati:

 Pod sqrt_Example2 () Dim square_num Kao cijeli broj Dim square_root Kao cijeli broj square_num = 87 square_root = Sqr (square_num) MsgBox "Kvadratni korijen za navedeni broj je:" & square_root Kraj Sub

Korak 6: Pokrenite ovaj kôd pritiskom na tipku F5 ili Run koji se nalazi na gornjoj vrpci VBE.

Korak 7: Pogledajte izlaz u okviru s porukama kao što je prikazano u nastavku:

Međutim, ovo nije stvarna vrijednost kvadratnog korijena za broj 87. Ovo je vrijednost kvadratnog korijena za broj 81. Zašto u svijetu VBA daje pogrešan izlaz za SQR funkciju?

Pa, nema ništa loše s VBA. Ako nešto nije u redu, idealno je s našim kodom.

Budući da smo definirali varijable kao cijeli brojevi, VBA ograničavamo da daje kvadratne korijene samo onih brojeva koji su cijeli kvadratni brojevi (Izl 4, 9, 16, 25, itd.). Ako bilo koji broj nije cijeli kvadrat, VBA SQR funkcija umjesto bacanja pogreške daje kvadratnu korijensku vrijednost za broj koji je blizu trenutnom broju. Ovdje 87 ima 81 kao najbliži cijeli kvadratni broj. Stoga dobivate izlaz kao 9.

Korak 8: Pogledajmo što se događa kad podešavamo kôd definiranjem varijable square_root kao Double umjesto Integer.

Kodirati:

 Pod sqrt_Example2 () Dim square_num Kao cijeli broj Dim square_root Kao dvostruki square_num = 87 square_root = Sqr (square_num) MsgBox "Kvadratni korijen za navedeni broj je:" & square_root Kraj Sub

9. korak: Vidjet ćete da sustav sada može uhvatiti stvarnu kvadratnu vrijednost korijena za broj 87.

Stvari koje treba zapamtiti

  • Ako kao argument u okviru VBA SQR funkcije navedete negativan broj, to će dovesti do pogreške "5" tijekom izvršavanja . Kako nije moguće imati broj s negativnim kvadratnim vrijednostima.
  • Ako imate negativan broj, obavezno ga pretvarajte u pozitivan entitet uz pomoć ABS funkcije. Također možete provjeriti je li broj pozitivan ili ne uz pomoć SGN funkcije pod VBA.
  • Ako kao argument stavite VBA SQR funkciju, dobit ćete kvadratnu vrijednost korijena kao nulu.

Preporučeni članci

Ovo je vodič za VBA Square Root. Ovdje smo raspravljali o tome kako koristiti funkciju Square Root u Excelu VBA zajedno s praktičnim primjerima i download-ovim Excel predložakom. Možete i pregledati naše druge predložene članke -

  1. VBA IF Izjave | Predlošci Excela
  2. Kako koristiti Excel VBA funkciju sortiranja?
  3. VBA Dok je petlja (primjeri s Excelovim predloškom)
  4. Što je VBA brojač (primjeri)?

Kategorija:

VBA