代码如下:
Function Fac(num) '自定义一个参数的函数,要求用户输入一个数,然后求其阶乘
Dim i As Integer
Dim total As Long
total = 1
For i = 1 To num
total = total * i
Next i
Fac = total
End Function
使用该函数的方法在和其他固有的函数一样,在函数选项卡里点击即可使用。
代码如下:
Function Fac(num) '自定义一个参数的函数,要求用户输入一个数,然后求其阶乘
Dim i As Integer
Dim total As Long
total = 1
For i = 1 To num
total = total * i
Next i
Fac = total
End Function
使用该函数的方法在和其他固有的函数一样,在函数选项卡里点击即可使用。