VBA计算器的全部实现

我们将加入 除零逻辑 和 对话框提示。

后面 就很简单了~~~

提供效果图跟 代码

代码示例

Sub 矩形1_Click()
'
' 矩形1_Click Macro
' 代码编辑
 
    Dim number1 As Integer
    Dim number2 As Integer
 
    number1 = Cells(, )
    number2 = Cells(, )
 
    Cells(, ) = number1 + number2
 
End Sub
Sub 矩形2_Click()
'
' 矩形2_Click Macro
'
    Dim number1 As Integer
    Dim number2 As Integer
 
    number1 = Cells(, )
    number2 = Cells(, )
 
    Cells(, ) = number1 - number2
 
End Sub
Sub 矩形4_Click()
'
' 矩形4_Click Macro
'
    Dim number1 As Integer
    Dim number2 As Integer
 
    number1 = Cells(, )
    number2 = Cells(, )
 
    Cells(, ) = number1 * number2
End Sub
Sub 矩形5_Click()
'
' 矩形5_Click Macro
'
    number1 = Cells(, )
    number2 = Cells(, )
 
    If number2 =  Then
        MsgBox ("除数不能为零~")
    Else
 
        Cells(, ) = number1 / number2
    End If
 
End Sub

参考文献：

https://www.yiibai.com/vba/vba_message_box.html