摘要： 下面的VBA代码可以判断当前Excel工作簿中的某个工作表是否存在，如果指定的工作表不存在，则以指定的工作表名新建一个工作表，如果指定的工作表已存在，则给出一个提示，并激活该工作表。下例中指定的工作表标签为“一月”，可根据实际进行修改。
Excel中计算阶乘（n!)的VBA代码
在Excel中可以通过FACT函数来计算非负整数n的阶乘（n!)，而如果要通过VBA来计算阶乘，可以用下面的两个自定义函数：1.使用循环：FunctionFactorial_a(ByValNumAsInteger)IfNum0ThenFactorial_a=#NUM!
Sub IsSheetExist()
Dim ws As Worksheet
Dim sName As String
sName = "一月" '指定工作表
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then '指定的工作表不存在
Sheets.Add.Name = sName
Else '指定的工作表已存在
MsgBox "“" & sName & "”工作表已存在。"
ws.Activate
End If
End Sub
怎样在打开Excel工作簿时禁止Auto_Open宏的运行
大家知道，一个包含宏的工作簿如果VBA代码中包含Workbook.Open事件或模块中含有Auto_Open宏时，打开该工作簿就会运行指定的宏代码。但有时我们希望这些包含在Workbook.Open事件或Auto_Open宏中的代
