摘要： 在Excel中可以通过FACT函数来计算非负整数n的阶乘（n!)，而如果要通过VBA来计算阶乘，可以用下面的两个自定义函数： 1.使用循环：怎样在打开Excel工作簿时禁止Aut...
在Excel中可以通过FACT函数来计算非负整数n的阶乘（n!)，而如果要通过VBA来计算阶乘，可以用下面的两个自定义函数：
1.使用循环：
怎样在打开Excel工作簿时禁止Auto_Open宏的运行
大家知道，一个包含宏的工作簿如果VBA代码中包含Workbook.Open事件或模块中含有Auto_Open宏时，打开该工作簿就会运行指定的宏代码。但有时我们希望这些包含在Workbook.Open事件或Auto_Open宏中的代
Function Factorial_a(ByVal Num As Integer)
If Num < 0 Then
Factorial_a = "#NUM!"
Else
Factorial_a = 1
For i = 1 To Num
Factorial_a = Factorial_a * i
Next
End If
End Function
2.使用递归：
Function Factorial_b(ByVal Num As Integer)
If Num < 0 Then
Factorial_b = "#NUM!"
ElseIf Num = 0 Or Num = 1 Then
Factorial_b = 1
Else
Factorial_b = Num * Factorial_b(Num - 1)
End If
End Function
excel如何打开和关闭光驱的宏代码
用下面的宏代码可以打开或关闭电脑中默认的光驱。方法是：1.按Alt F11打开VBA编辑器。2.在代码窗口中输入下列代码：PrivateDeclareSubmciSendStringALibwinmm.dll(ByVallpstrCommandAsString,_ByVallpst
