如何在 vba 中创建阶乘函数（带有示例）

阶乘是所有小于或等于给定正整数的正整数的乘积。

例如，5 的阶乘（写作 5！）计算如下：

• 5！ = 5 * 4 * 3 * 2 * 1 = 120

您可以使用以下语法在 VBA 中创建阶乘函数：

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

创建此函数后，您可以在 Excel 的单元格中键入=FindFactorial(A2)之类的内容，以查找单元格A2中整数的阶乘。

以下示例展示了如何在实践中使用此语法。

示例：在 VBA 中创建阶乘函数

假设我们在 Excel 中有以下数字列表，并且我们想要计算每个数字的阶乘：

我们可以在 VBA 中定义以下函数来执行此操作：

 Function FindFactorial(N As Integer) As Double

 Dim i As Integer, result As Long
 
 result = 1

 For i = 1 To N
     result = result * i
 Next

 FindFactorial = result

End Function

创建此函数后，我们可以在单元格B2中键入以下公式来计算单元格A2中的值的阶乘：

 =FindFactorial( A2 )

然后我们可以单击此公式并将其拖动到 B 列中的每个剩余单元格：

请注意，B 列现在显示 A 列中每个整数的阶乘。

例如：

• 1！ = 1
• 2！ = 2 * 1 = 2
• 3！ = 3 * 2 * 1 = 6
• 4！ = 4 * 3 * 2 * 1 = 24

等等。

注意：要在不使用 VBA 的情况下计算 Excel 中的阶乘，可以使用FACT函数。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何添加范围内的值
VBA：如何计算范围的平均值
VBA：如何计算范围内的行数