VBA师

时间:2017-10-12 10:56:37

标签: excel vba calculator basic

我的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

1 个答案:

答案 0 :(得分: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