Erf

最新推荐文章于 2026-06-09 09:33:19 发布

原创最新推荐文章于 2026-06-09 09:33:19 发布 · 1.5k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#microsoft #工具 #工作 #vba #function

数字计算技巧同时被 3 个专栏收录

97 篇文章

订阅专栏

VBA

82 篇文章

订阅专栏

Numbers

49 篇文章

订阅专栏

ERF

返回误差函数在上下限之间的积分。

如果该函数不可用，并返回错误值 #NAME?，请安装并加载“分析工具库”加载宏。

在“工具”菜单上，单击“加载宏”。
在“可用加载宏”列表中，选中“分析工具库”框，再单击“确定”。
如果必要，请遵循安装程序中的指示。

语法

ERF(lower_limit,upper_limit)

Lower_limit ERF 函数的积分下限。

Upper_limit ERF 函数的积分上限。如果省略，ERF 将在零到下限之间进行积分。

说明

如果下限是非数值型，函数 ERF 返回错误值 #VALUE!。
如果下限是负值，函数 ERF 返回错误值 #NUM!。
如果上限是非数值型，函数 ERF 返回错误值 #VALUE!。
如果上限是负值，函数 ERF 返回错误值 #NUM!。

示例

如果您将示例复制到空白工作表中，可能会更易于理解该示例。

创建空白工作簿或工作表。

请在“帮助”主题中选取示例。不要选取行或列标题。

从帮助中选取示例。
按 Ctrl+C。
在工作表中，选中单元格 A1，再按 Ctrl+V。
若要在查看结果和查看返回结果的公式之间切换，请按 Ctrl+`（重音符），或在“工具”菜单上，指向“公式审核”，再单击“公式审核模式”。

1

2
3

A	B
公式	说明（结果）
=ERF(0.74500)	误差函数在 0 与 0.74500 之间的积分值 (0.707929)
=ERF(1)	误差函数在 0 与 1 之间的积分值 (0.842701)

VBA中使用时，可按下面方式调用：

Sub macro1()
MsgBox Application.Run("atpvbacs.xla!erf", 1)
End Sub

对于X<=1，可使用如下自定义函数：

Function erf(ByVal x As Single) As Single
Dim i As Long, b(9) As Double
b(0) = 1
erf = x
For i = 1 To 9
b(i) = b(i - 1) * (2 * i + 1)
erf = erf + 2 ^ i * x ^ (2 * i + 1) / b(i)
Next
erf = erf * Exp(-x * x) / Sqr(Atn(1))
End Function
Sub macro1()
MsgBox erf(1)
End Sub

上述代码返回 0.8427008