VBA师

Question

我的VBA计算器中有0除法的问题。当我尝试除以MsgBox时如何让它显示"U can't divise by 0" 0？ 有我的“=”和“/”代码：

'equals button
Private Sub Wynik_Click() 'równa się
   var2 = TextBox1.Value
    xWynik = Application.Evaluate(var1 & var2)
    TextBox1.Value = xWynik
End Sub

'division
Private Sub Dziel_click()
    If var2 = "0" Then
        MsgBox ("Nie można dzielić przez 0")
    Else
        var1 = TextBox1.Value + "/"
        TextBox1.Value = ""
    End If
End Sub

Answer 1

这样的事情是一个很好的检查：

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