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