Vba excel корень числа

Access для Microsoft 365 Access 2021 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Еще…Меньше

Возвращает значение типа Double, указывающее квадратный корень числа.

Синтаксис

Sqr


(число)


Требуемаяаргумент
 является значением double или любым допустимым значением числовое выражение больше нуля или равно.

Пример запроса


Выражение


Результаты:

SELECT UnitPrice, sqr(UnitPrice) AS SqrUnitPrice FROM ProductSales;

Возвращает значения из столбца UnitPrice и их квадратного корня в столбце SqrUnitPrice.

Пример VBA

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.

В этом примере функция Sqr используется для вычисления квадратного корня числа.

Dim MySqr
MySqr = Sqr(4)    ' Returns 2.
MySqr = Sqr(23)    ' Returns 4.79583152331272.
MySqr = Sqr(0)    ' Returns 0.
MySqr = Sqr(-4)    ' Generates a run-time error.

Нужна дополнительная помощь?

Источник

Permalink

Cannot retrieve contributors at this time

title keywords f1_keywords ms.prod ms.assetid ms.date ms.localizationpriority

Sqr function (Visual Basic for Applications)

vblr6.chm1009029

vblr6.chm1009029

office

ce2add56-f943-9470-0caa-befda14d124a

12/13/2018

medium

Returns a Double specifying the square root of a number.

Syntax

Sqr(number)

The required number argument is a Double or any valid numeric expression greater than or equal to zero.

Example

This example uses the Sqr function to calculate the square root of a number.

Dim MySqr
MySqr = Sqr(4)    ' Returns 2.
MySqr = Sqr(23)    ' Returns 4.79583152331272.
MySqr = Sqr(0)    ' Returns 0.
MySqr = Sqr(-4)    ' Generates a run-time error.

See also

  • Functions (Visual Basic for Applications)

[!includeSupport and feedback]

Источник

Excel VBA Square Root (SQR) Function

In VBA, we have a built-in function called “SQR.” This function returns the square root for the given number provided in the input. The Square Root function requires only one argument for its function: Number.

The SQRT is a square root functionThe Square Root function is an arithmetic function built into Excel that is used to determine the square root of a given number. To use this function, type the term =SQRT and hit the tab key, which will bring up the SQRT function. Moreover, this function accepts a single argument.read more in both Excel and VBA. The method to use this function is SQR(Number). One may use it to calculate the square root of a given number in Excel. However, the nomenclature is different. For example, one may write as SQRT compared to SQR in VBA.

Table of contents
  • Excel VBA Square Root (SQR) Function
    • Examples of Square Root in Excel VBA
      • Example #1
      • Example #2
    • Things to Remember
    • Recommended Articles

Below is the syntax of the SQR function.

VBA SQR Syntax

Number: For this argument, we need to supply the Number for which we are trying to find the square root. The Number could be a direct supply of a Number or Number assigned to the variable, or a Number with cell referenceCell reference in excel is referring the other cells to a cell to use its values or properties. For instance, if we have data in cell A2 and want to use that in cell A1, use =A2 in cell A1, and this will copy the A2 value in A1.read more is valid.

This function is available with both worksheet and VBA functionVBA functions serve the primary purpose to carry out specific calculations and to return a value. Therefore, in VBA, we use syntax to specify the parameters and data type while defining the function. Such functions are called user-defined functions.read more. But in a worksheet, it is available as SQRT.

VBA-Square-Root-1-1

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Square Root (wallstreetmojo.com)

Examples of Square Root in Excel VBA

You can download this VBA SQRT Function Excel Template here – VBA SQRT Function Excel Template

Example #1

Now, we will try to write code to find the square root for the number 64.

But, first, start the VBA subroutineSUB in VBA is a procedure which contains all the code which automatically gives the statement of end sub and the middle portion is used for coding. Sub statement can be both public and private and the name of the subprocedure is mandatory in VBA.read more.

Code:

Sub Square_Root_Example()

End Sub

VBA Square root Example 1

Define two variables as Integer. One is to store the Number, and another is to show the result of the square root value.

Code:

Sub Square_Root_Example()

  Dim ActualNumber As Integer
  Dim SquareNumber As Integer

End Sub

VBA Square root Example 1-1

For the variable “ActualNumber,” assign the value of the number 64.

Code:

Sub Square_Root_Example()

  Dim ActualNumber As Integer
  Dim SquareNumber As Integer

  ActualNumber = 64

End Sub

VBA Square root Example 1-2

We will assign the square root value for another variable, enter the variable name, put an equal sign, and open the SQR function.

VBA Square root Example 1-3

The only argument of the SQR function is “Number” since we have already assigned the number 64 to the variable “ActualNumber.” So, let us supply the same variable name in the SQR function.

VBA Square root Example 1-4

Next, show the result in the message box. For example, the square root number assigned to the variable “SquareNumber” shows the same variable name in the message box.

Code:

Sub Square_Root_Example()

  Dim ActualNumber As Integer
  Dim SquareNumber As Integer

  ActualNumber = 64
  SquareNumber = Sqr(ActualNumber)

  MsgBox SquareNumber
 
End Sub

Square root Example 1-5

We have completed coding.

Run the code using excel shortcut keyAn Excel shortcut is a technique of performing a manual task in a quicker way.read more F5 and see what we get in the message box.

VBA SQRT Example 1-6.gif

The Square Root of the number 64 is 8, 8 * 8 = 64.

Example #2

One more thing we need to remember while calculating sqrt in VBA is when the variable data type is either integer or long. Then, the result rounds off to the nearest integer or whole number value.

For example, if you are trying to find the square root for the number 70, there is no square root for this. But in VBA, it shows as 8 only because 8 is the nearest square root integer value.

Look at the below code.

Code:

Sub Square_Root_Example1()

  Dim ActualNumber As Integer
  Dim SquareNumber As Integer

  ActualNumber = 70
  SquareNumber = Sqr(ActualNumber)

  MsgBox SquareNumber

End Sub

Example 2

The actual square root number result for 70 is 8.3666. But with VBA, it will round to the nearest integer value 8.

Example 2-1

One thing we can do to rectify this error is we need to change the data type of the variable “SquareNumber” to “Double.”

Code:

Sub Square_Root_Example1()

  Dim ActualNumber As Integer
  Dim SquareNumber As Double

  ActualNumber = 70
  SquareNumber = Sqr(ActualNumber)

  MsgBox SquareNumber

End Sub

Example 2-2

Run the code manually or through the F5 key to see the result.

Example 2 - Output

As you can see, the result is accurate now, i.e., 8.366602. This is because of the data type assigned to the variable “SquareNumber.”

Things to Remember

  • In VBA, to find the square root of the number formula is SQR, and in the worksheet, it is SQRT.
  • The Number we supply to the SQR function should be a positive number, or else we will get #NUM! Error.

Recommended Articles

This article has been a guide to VBA Square Root Function. Here, we discuss calculating square roots using the SQRT function in Excel VBA with practical examples and a downloadable Excel template. Below you can find some useful Excel VBA articles: –

  • Project Password in VBA
  • VBA Compare String
  • On Error Resume Next in VBA
  • VBA LBound
Источник

What is the square root function in VBA excel? I tried SQRT() and Root() but none of them are working, my Excel version in 2013.

Community's user avatar

asked Apr 28, 2017 at 11:53

2

Use the oddly named

VBA.Sqr(n)

where n is your number for which you want the square root computed. The VBA. prefix is optional, but it helps descriminate between VBA and any other library you might have referenced.

answered Apr 28, 2017 at 11:55

Bathsheba's user avatar

BathshebaBathsheba

231k33 gold badges359 silver badges477 bronze badges

1

Nth root can be obtained with VBA with:

Option Explicit

Function NthRoot(dblNumber As Double, lngRoot As Long) As Double
    NthRoot = dblNumber ^ (1 / lngRoot)
End Function

So for square root:

? NthRoot(64, 2)
 8 
? NthRoot(64.33333, 2)
 8.02080606921773

answered Apr 28, 2017 at 13:15

Robin Mackenzie's user avatar

Robin MackenzieRobin Mackenzie

18.1k7 gold badges41 silver badges54 bronze badges

You can use the ^ operator to obtain square roots. Just raise the number you started with to the power of 0.5:

81^0.5 will give you 9 and 256^0.5 will give you 16

answered Apr 28, 2017 at 23:23

barrowc's user avatar

barrowcbarrowc

10.4k1 gold badge39 silver badges52 bronze badges

Sqr : is the function used to calcualte the sqare root, or you can use ^0.5

Function getDistance(x1, y1, x2, y2)

getDistance = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)


End Function

answered Sep 10, 2022 at 2:26

Arpan Saini's user avatar

Arpan SainiArpan Saini

4,3541 gold badge38 silver badges50 bronze badges

Источник

  • Функция Excel VBA Square Root

Функция 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 (примеры)?

Источник

Like this post? Please share to your friends:
  • Vba excel копия файла
  • Vba excel копируем диапазон
  • Vba excel копировать ячейку
  • Vba excel копировать форматирование
  • Vba excel копировать формат ячеек