Функция Excel VBA Square Root

В этой статье мы увидим схему Excel VBA Square Root. Каждый раз, работая в Excel, вы должны использовать функцию SQRT, которая дает квадратный корень любого целого числа в результате. Можно ли захватить квадратный корень из числа под VBA? Ну, ответ, конечно, да! Вы можете получить квадратный корень любого положительного числа через VBA, используя функцию VBA SQR. Эта функция является встроенной функцией VBA и может использоваться для любого положительного целого числа, чтобы получить ее квадратный корень. Ну, эта функция очень похожа на ту, которую мы используем в качестве функции электронной таблицы SQRT, а также принимаем тот же единственный аргумент «Число», который должен быть положительным. Мы также не можем получить квадратные корни мнимых чисел, и ввод отрицательных значений бесполезен, потому что нет никакого способа, которым можно получить отрицательное квадратное значение числа.

Синтаксис:

Синтаксис функции квадратного корня VBA довольно прост и похож на синтаксис функции SQRT электронной таблицы.

Где Number - это единственный аргумент, который необходимо указать и который должен быть строго положительным. Поскольку мы не можем иметь отрицательные квадратные значения любого числа, шансы получить отрицательное значение квадратного корня невозможны. Кроме того, нет возможности узнать квадратные корни комплексных чисел. Этот аргумент может быть предоставлен непосредственно в виде числа или переменной, назначенной номеру, или ссылки на ячейку электронной таблицы, где хранится число. Кроме того, следует отметить, что система по умолчанию считает аргумент, который вы задаете, двойным, чтобы получить квадратный корень для любого числа, независимо от того, является он целым квадратом или нет (пример 87 не является целый квадрат, но все равно получит значение квадратного корня, так как тип числа двойной. Вы все еще можете определить число как целое число, а затем использовать его в качестве аргумента функции SQR. Оно округляется до ближайшего значения квадратного корня, если число при условии, не полная площадь.

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

Ниже приведены различные примеры использования функции квадратного корня в Excel VBA.

Вы можете скачать этот шаблон Excel с квадратным корнем VBA здесь - Шаблон Excel с квадратным корнем VBA

Квадратный корень VBA - Пример № 1

Выполните следующие действия, чтобы увидеть, как именно работает функция VBA SQR.

Шаг 1. Откройте вкладку « Разработчик » и щелкните значок Visual Basic (ALT + F11).

Шаг 2: Откройте модуль на вкладке меню «Вставка», как показано ниже.

Шаг 3: Определите новую подпроцедуру, которая может содержать макрос под вновь вставленным модулем.

Код:

 Sub sqrt_Example1 () End Sub

Шаг 4: Используйте оператор присваивания, чтобы присвоить значение функции квадратного корня VBA переменной с именем « sqr_root », чтобы мы могли напечатать результат и посмотреть, работает ли он нормально.

Код:

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

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

Код:

 Sub sqrt_Example1 () sqr_root = Sqr (121) MsgBox "Квадратный корень данного номера:" & sqr_root End Sub

Шаг 6: Запустите этот код, нажав F5 или кнопку Run, расположенную на самой верхней панели.

Как только вы запустите этот код, вы должны увидеть вывод, как показано ниже.

Квадратный корень VBA - Пример №2

Давайте углубимся в функцию SQR VBA и попытаемся выяснить несколько разных случаев.

Шаг 1: Определите подпроцедуру, которая может содержать ваши макросы.

Код:

 Sub sqrt_Example2 () End Sub

Шаг 2: Нам нужно определить две новые переменные как целое число. Один для хранения значения, для которого мы хотим получить квадратный корень. Другая переменная будет для хранения результата квадратного корня после того, как мы применим функцию SQR.

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As 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) End Sub

Шаг 5: Используйте свойство MsgBox, чтобы показать значение квадратного корня в виде сообщения, которое появляется, как только вы запускаете код.

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Integer square_num = 87 square_root = Sqr (square_num) MsgBox "Квадратный корень для заданного числа:" & square_root End Sub

Шаг 6: Запустите этот код, нажав кнопку F5 или Run, расположенную на самой верхней ленте VBE.

Шаг 7: Смотрите вывод в окне сообщения, как показано ниже:

Однако это не фактическое значение квадратного корня для числа 87. Это значение квадратного корня для числа 81. Почему в мире VBA дает неправильный вывод для функции SQR?

Ну, с VBA все в порядке. Если что-то не так, это идеально подходит для нашего кода.

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

Шаг 8: Давайте посмотрим, что происходит, когда мы настраиваем код, определяя переменную square_root как Double вместо Integer.

Код:

 Sub sqrt_Example2 () Dim square_num As Integer Dim square_root As Double square_num = 87 square_root = Sqr (square_num) MsgBox "Квадратный корень для заданного числа:" & square_root End Sub

Шаг 9: Вы увидите, что система теперь может зафиксировать фактическое значение квадратного корня для числа 87.

То, что нужно запомнить

  • Если вы предоставите отрицательное число в качестве аргумента в функции SQR VBA, он выдаст ошибку времени выполнения «5» . Так как невозможно иметь число с отрицательными квадратными значениями.
  • Если у вас есть отрицательное число, убедитесь, что вы преобразуете его в положительную сущность с помощью функции ABS. Вы также можете проверить, является ли число положительным или нет, с помощью функции SGN в VBA.
  • Если вы установите ноль в качестве аргумента в функции VBA SQR, вы получите значение квадратного корня как ноль.

Рекомендуемые статьи

Это руководство по VBA Square Root. Здесь мы обсудим, как использовать функцию квадратного корня в Excel VBA вместе с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

  1. VBA IF Заявления | Шаблоны Excel
  2. Как использовать функцию сортировки Excel VBA?
  3. VBA While Loop (Примеры с шаблоном Excel)
  4. Что такое счетчик VBA (примеры)?

Категория:

VBA