VBA Square Root - Как да използвате функцията за квадратни корени в Excel VBA?

• Функция за квадратни корени на Excel VBA

Функция за квадратни корени на Excel VBA

В тази статия ще видим очертание на Excel VBA Square Root. Всеки път, когато работите върху Excel, трябва да сте използвали функцията SQRT, която дава квадратния корен на всяко цяло число. Възможно ли е да се улови квадратният корен на число под VBA? Е, отговорът е сигурен Да! Можете да получите квадратния корен на всяко положително число чрез VBA с помощта на VBA SQR функцията. Тази функция е вградена VBA функция и може да се използва във всяко положително цяло число, за да получите квадратния корен от нея. Е, тази функция е много подобна на тази, която използваме като функция за електронни таблици SQRT, а също така приема същия единствен аргумент „Число“, който трябва да бъде положителен. Ние също не можем да получим квадратни корени на въображаеми числа и въвеждането на отрицателни стойности не е от полза, защото няма възможен начин, чрез който отрицателна квадратна стойност на число може да бъде уловена.

Синтаксис:

Синтаксисът за VBA квадратна коренна функция е доста прост и изглежда подобно на функцията за SQRT на електронната таблица.

Където числото е единствен аргумент, който трябва да бъде предоставен и трябва да бъде строго положителен. Тъй като не можем да имаме отрицателни квадратни стойности на което и да е число, шансовете за получаване на отрицателна стойност на квадратния корен са невъзможни. Също така, няма поле за намиране на квадратните корени на сложните числа. Този аргумент може да бъде предоставен директно като число или променлива, присвоена на номера или референция на клетка на електронна таблица, където се съхранява числото. Освен това тук трябва да се отбележи, че системата по подразбиране счита аргумента, който предоставяте, като двоен, за да ви даде квадратния корен на всяко число, независимо от факта, че е цял квадрат или не (Пример 87, не е цял квадрат, но все пак ще получите квадратната стойност на корен, тъй като типът на числото е двоен. Все още можете да определите число като цяло число и след това да го използвате като аргумент на SQR функцията. при условие, че не е цял квадрат.

Как да използвате функцията за квадратни корени в Excel VBA?

По-долу са дадени различните примери за използване на функцията Square Root в Excel VBA.

Можете да изтеглите този шаблон на VBA Square Root Excel тук - шаблон на VBA Square Root Excel

VBA Square Root - Пример №1

Следвайте стъпките по-долу, за да видите как точно работи VBA SQR функцията.

Стъпка 1: Щракнете върху раздела Developer и след това щракнете върху иконата Visual Basic (ALT + F11).

Стъпка 2: Отворете модула от раздела на менюто Вмъкване, както е показано по-долу.

Стъпка 3: Определете нова под-процедура, която може да държи макроса под ново вмъквания модул.

Код:

 Sub sqrt_Example1 () Край Sub 

Стъпка 4: Използвайте оператора за присвояване, за да присвоите стойността на квадратната коренна функция на VBA на променлива, наречена „ sqr_root “, за да можем да отпечатаме резултата и да видим дали работи добре.

Код:

 Sub sqrt_Example1 () sqr_root = Sqr (121) Край Sub 

Стъпка 5: Използвайте функцията MsgBox, така че да можем да отпечатаме резултата като поле за съобщение, което ще се появи, веднага щом стартираме кода.

Код:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "Квадратният корен на зададения брой е:" & sqr_root End Sub 

Стъпка 6: Стартирайте този код, като натиснете F5 или бутона Run, поставен в най-горния панел.

Щом стартирате този код, трябва да видите изход, както е показано по-долу.

VBA Square Root - Пример №2

Нека се потопим по-дълбоко във функцията VBA SQR и да се опитаме да открием някои различни случаи.

Стъпка 1: Определете под-процедура, която може да побере вашите макроси.

Код:

 Sub sqrt_Example2 () Край Sub 

Стъпка 2: Трябва да определим две нови променливи като цяло число. Една за съхраняване на стойността, за която искаме квадратен корен. Друга променлива би била за съхранение на резултата от квадратния корен, след като приложим функцията SQR.

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root Като Integer End Sub 

Стъпка 3: Присвойте стойност като 87 на променливата square_num с помощта на оператора за присвояване ('='). Това е числото, за което искахме да уловим квадратната коренна стойност.

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 End Sub 

Стъпка 4: Използвайте SQR функцията и оператора на присвояване, за да присвоите стойността на квадратния корен на променливата square_root . Използвайте square_num като аргумент под функцията SQR (числото, за което искахме стойността на квадратния корен).

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) Край Sub 

Стъпка 5: Използвайте свойството MsgBox, за да покажете стойността на квадратния корен като съобщение, което изскача веднага след като стартирате кода.

Код:

 Sub sqrt_Example2 () Dim square_num Както Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) 

Стъпка 6: Стартирайте този код, като натиснете бутона F5 или Run, който е поставен на най-горната лента на VBE.

Стъпка 7: Вижте изхода в полето за съобщения, както е показано по-долу:

Това обаче не е действителната стойност на квадратния корен за число 87. Това е квадратната коренна стойност за число 81. Защо в света VBA дава грешен изход за SQR функция?

Е, няма нищо лошо в VBA. Ако нещо не е наред, това е идеално с нашия код.

Тъй като сме определили променливите като цели числа, ограничаваме VBA да дава квадратни корени само на онези числа, които са цели квадратни числа (Пример 4, 9, 16, 25 и т.н.). Ако което и да е число не е цял квадрат, функцията VBA SQR вместо да хвърли грешка, тя дава квадратна коренна стойност за число, близко до текущото число. Тук 87 има 81 като най-близкото цяло квадратно число. Следователно, получавате резултата като 9.

Стъпка 8: Нека видим какво се случва, когато ощипваме кода, като дефинираме променливата square_root като Double вместо Integer.

Код:

 Sub sqrt_Example2 () Dim square_num като цяло число Dim square_root като двойно square_num = 87 square_root = Sqr (square_num) 

Стъпка 9: Ще видите, че системата вече може да улавя реалната квадратна коренна стойност за числото 87.

Неща, които трябва да запомните

• Ако предоставите отрицателно число като аргумент в рамките на VBA SQR функцията, тя ще хвърли грешка по време на изпълнение '5' . Тъй като не е възможно да има число с отрицателни квадратни стойности.
• Ако имате отрицателно число, уверете се, че го преобразувате в положително цяло с помощта на функцията ABS. Можете също да проверите дали номерът е положителен или не с помощта на функцията SGN под VBA.
• Ако поставите нула като аргумент под VBA SQR функцията, ще получите стойността на квадратния корен като нула.

Препоръчителни статии

Това е ръководство за VBA Square Root. Тук обсъждаме как да използвате функцията Square Root в Excel VBA, заедно с практически примери и шаблон за excel за сваляне. Можете да разгледате и другите ни предложени статии -

1. VBA IF изявления | Excel Шаблони
2. Как да използвате функция за сортиране на Excel VBA?
3. VBA докато цикъл (примери с шаблон на Excel)
4. Какво е VBA брояч (примери)?