VBA平方根函数|如何在VBA中使用SQR计算SQRT?

Excel VBA平方根(SQR)函数

在VBA中,我们有一个内置函数“ SQR”,该函数返回输入中提供的给定数字的平方根。平方根函数的功能仅需要一个参数,即Number。

SQRT在excel和VBA中都是平方根函数,使用此函数的方法如下SQR(number)并用于计算excel中给定数字的平方根,但是术语有所不同,因此将其写为SQRT到VBA中的SQR。

下面是SQR函数的语法。

数字: 对于此参数,我们需要提供要为其求平方根的数字。该数字可以是直接提供的数字,也可以是分配给该变量的数字,或者带有单元格引用的数字是有效的。

该功能在工作表功能和VBA功能中均可用,但在工作表中,它可以作为SQRT使用。

Excel VBA中的平方根示例

您可以在此处下载此VBA SQRT功能Excel模板– VBA SQRT功能Excel模板

范例#1

现在,我们将尝试编写代码以找到数字64的平方根。

首先,启动vba子例程。

代码:

 子Square_Root_Example()结束子 

将两个变量定义为Integer,一个用于存储数字,另一个用于显示平方根值的结果。

代码:

 Sub Square_Root_Example()Dim ActualNumber as Integer Dim SquareNumber as Integer End Sub 

对于变量 “实际号码” 分配数字64的值。

代码:

 Sub Square_Root_Example()Dim ActualNumber作为整数Dim SquareNumber作为整数ActualNumber = 64结束Sub 

对于另一个变量,我们将分配平方根值,输入变量名称,等号并打开SQR函数。

SQR函数的唯一参数是“ Number”,因为我们已经将数字64分配给变量“ ActualNumber”,让我们在SQR函数中提供相同的变量名称。

接下来在消息框中显示结果。现在,将平方根号分配给变量“ SquareNumber”,并在消息框中显示相同的变量名称。

代码:

 Sub Square_Root_Example()Dim ActualNumber as Integer Dim SquareNumber As Integer ActualNumber = 64 SquareNumber = Sqr(ActualNumber)MsgBox SquareNumber结尾Sub 

好的,这就是我们完成编码的全部过程。

使用excel快捷键F5运行代码,然后在消息框中查看得到的内容。

64的平方根是8,即 8 * 8 = 64

范例#2

在VBA中计算sqrt时,我们还需要记住的另一件事是,当变量数据类型为整数或long时,结果将四舍五入为最接近的整数或整数值。

例如,如果要查找数字70的平方根,则没有平方根,但是在VBA中,由于8是最接近的平方根整数值,因此显示为8。

看下面的代码。

代码:

 Sub Square_Root_Example1()Dim ActualNumber as Integer Dim SquareNumber As Integer ActualNumber = 70 SquareNumber = Sqr(ActualNumber)MsgBox SquareNumber End Sub 

70的实际平方根结果为8.3666,但是使用VBA它将四舍五入到最接近的整数值8。

要纠正此错误,我们可以做的一件事是我们需要将变量“ SquareNumber”的数据类型更改为“ Double”。

代码:

 Sub Square_Root_Example1()Dim ActualNumber as Integer Dim SquareNumber As Double ActualNumber = 70 SquareNumber = Sqr(ActualNumber)MsgBox SquareNumber结尾Sub 

现在,手动或通过F5键运行代码,然后查看结果。

如您所见,现在的结果是准确的,即8.366602,这是因为我们已将数据类型分配给变量“ SquareNumber”

要记住的事情

  • 在VBA中找到数字公式的平方根是SQR,在工作表中是SQRT。
  • 我们提供给SQR函数的数字应为正数,否则我们将获得#NUM!错误。