Excel VBA分区

在VBA计算器中，我的除法

0

有问题。当我尝试除以

0

时，如何让它显示

MsgBox

“U不能除以0”？ 这是我的“=”和“/”代码：

---

像这样的东西是一张好支票：

Public Sub DivByZero()
    If var2 = 0 Then
        MsgBox ("You cannot divide by 0")
    Else
        Var1 = textbox1.value / var2
    End If

End Sub

您也可以使用错误捕捉器来执行此操作，但这可能会使这个小示例过于复杂：

Public Sub DivByZero()

    On Error GoTo DivByZero_Error
    Var1 = textbox1.value / var2

    On Error GoTo 0
    Exit Sub

DivByZero_Error:

    MsgBox "Division by 0 or another error!"

End Sub

免责声明： 如果您承诺永远不会为交通或医疗行业编写此类代码，请使用以下代码：

If var2 = "0" or len(trim(var2)) = 0 Then

---

像这样的东西是一张好支票：

Public Sub DivByZero()
    If var2 = 0 Then
        MsgBox ("You cannot divide by 0")
    Else
        Var1 = textbox1.value / var2
    End If

End Sub

您也可以使用错误捕捉器来执行此操作，但这可能会使这个小示例过于复杂：

Public Sub DivByZero()

    On Error GoTo DivByZero_Error
    Var1 = textbox1.value / var2

    On Error GoTo 0
    Exit Sub

DivByZero_Error:

    MsgBox "Division by 0 or another error!"

End Sub

免责声明： 如果您承诺永远不会为交通或医疗行业编写此类代码，请使用以下代码：

If var2 = "0" or len(trim(var2)) = 0 Then

---

第二个给我0除法或其他错误！“当我被每一个数字除数时。首先给出了相等的错误”xWynik=Application.Evaluate（var1和var2）" here@GoldenRC-检查输入变量。什么是

var2

，什么是

Var1

，在哪里和如何声明它们，什么是

textbox1.value

？Var1和var2是变量，textbox1.value是displayCool的值。这些是什么样的变量？它们是如何定义的？没有0除法，一切都正常：第二个给了我“0除法”或其他错误！“当我被每一个数字除数时。首先给出了相等的错误”xWynik=Application.Evaluate（var1和var2）" here@GoldenRC-检查输入变量。什么是

var2

，什么是

Var1

，在哪里和如何声明它们，什么是

textbox1.value

？Var1和var2是变量，textbox1.value是displayCool的值。这些是什么样的变量？它们是如何定义的？没有0的除法，一切都在运行：