Excel求阶乘 请编写一个 VBA 程序,该程序首先弹出一个对话框输入数据 N,然后计算 N!并通过 输出框输出。请把这个过程指定给工作表中的按钮并运行。

Excel中可以使用VBA（Visual Basic for Applications）编写宏来实现阶乘的计算。以下是一个简单的VBA程序示例，它会创建一个按钮，当点击时会弹出一个对话框让用户输入数值N，并返回其阶乘：

Sub CalculateFactorial()
    Dim N As Integer
    On Error GoTo ErrorHandler ' 添加错误处理

    ' 弹出对话框获取用户输入
    N = InputBox("请输入一个整数：", "计算阶乘")

    ' 阶乘函数
    If N < 0 Then
        MsgBox "抱歉，负数没有阶乘。"
        Exit Sub
    ElseIf N = 0 Or N = 1 Then
        MsgBox N & " 的阶乘是 1。"
    Else
        Dim result As Long
        result = 1
        For i = 2 To N
            result = result * i
        Next i
        MsgBox N & " 的阶乘是 " & result, vbInformation, "阶乘结果"
    End If

ExitMacro:
    Exit Sub

ErrorHandler:
    MsgBox "发生错误：" & Err.Description, vbCritical, "错误"
    Resume ExitMacro ' 跳过错误继续执行其他代码
End Sub

为了将这个程序绑定到工作表的一个按钮上：

1. 打开VBA编辑器（按 `Alt + F11` 或通过菜单栏选择 `插入` > `模块`）。
2. 将上面的代码粘贴到新建或现有模块中。
3. 创建新的工作表或打开现有工作表，找到想要添加按钮的位置。
4. 右键单击选中单元格，选择 `插入` > `形状`，然后选择一个按钮图标。
5. 单击新插入的按钮，选择“属性”（或右键单击，选择“属性”），在“事件”选项卡下，双击“单击”事件，这将跳转回VBA编辑器并在宏列表中显示 `Sheet1_Click`，此时将刚才的 `CalculateFactorial` 宏名称填入。
6. 点击确定保存设置。

现在，当你点击这个按钮时，程序就会按照描述进行操作了。