如何在 Microsoft Excel 编写简单的宏

Question

如题所述

Answer 1

举例说明。

第一步：创建一个带宏的excel文件。

第二步：点击开发工具-visual basic。如图：

第三步：插入-模块。如图：

第四步：编写代码。本例做一个计算阶乘的自定义函数。并且规定计算50以下的。

代码如下：

Function jc(a As Integer)
If a > 50 Then
   jc = 0
   Exit Function
End If
jc = 1
For I = 1 To a
jc = jc * I
Next I
End Function

第五步：在A2~A10输入数值2~10.在b2输入公式：=jc（a2），并下拉至b10.结果如图：