VBA Division von

Question

Ich habe Probleme mit der Division von 0 in meinem VBA-Rechner. Wie kann ich eine MsgBox"U can't divise by 0" zeigen, wenn ich versuche, durch 0 zu teilen? Es ist mein „=“ und „/“ Code:

'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

So etwas ist eine gute Kontrolle:

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

End Sub 

Sie es auch mit einem Fehler Fang tun können, aber es wird sein wohl über dieses kleine Beispiel zu verkomplizieren:

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 

Haftungsausschluss: Wenn Sie versprechen, dass Sie nie einen solchen Code f schreibt oder der Transport oder für die medizinische Industrie, verwenden Sie diese:

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