VBA除

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