VBA division by

Question

VBA計算機で0の除算に問題があります。 0で分けようとすると、MsgBox"U can't divise by 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 

免責事項： あなたは、このようなコードFを記述しないことを、約束した場合

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