用excel vba写一个加减乘除的代码

以下是一个简单的 Excel VBA 代码，可以实现加减乘除四则运算：

Sub Calculator()
    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    Dim operator As String
    
    num1 = CDbl(InputBox("请输入第一个数字："))
    num2 = CDbl(InputBox("请输入第二个数字："))
    operator = InputBox("请输入运算符 (+, -, *, /)：")
    
    Select Case operator
        Case "+"
            result = num1 + num2
        Case "-"
            result = num1 - num2
        Case "*"
            result = num1 * num2
        Case "/"
            If num2 = 0 Then
                MsgBox "除数不能为零！"
                Exit Sub
            Else
                result = num1 / num2
            End If
        Case Else
            MsgBox "无效的运算符！"
            Exit Sub
    End Select
    
    MsgBox "结果为：" & result
End Sub

运行这段代码后，程序会提示你输入两个数字和一个运算符，然后根据运算符计算结果并弹出一个提示框显示结果。需要注意的是，在除法运算中，如果第二个数字为零，程序会弹出一个警告提示框并退出运行。