hayırlı arifeler
eklediğim örnekte iki metin kutusuna bölme işlemi uygulanıyor
bölen "0" ise division by zero uyarısı veriyor
Private Sub Komut0_Click()
On Error GoTo hata_var
'If Metin1 / Metin3 = "division by zero" ise bir sonraki adıma geç
If Metin1 / Metin3 <> Metin1 \ Metin3 Then
MsgBox "geçersiz sonuç"
Else
Metin6 = Metin1 / Metin3
End If
hata_var:
If Err.Number = 11 Then MsgBox "Sıfıra bölme yapamazsınız"
End Sub
If Err.Number = 11 Then MsgBox "Sıfıra bölme yapamazsınız"
yazmama rağmen bu işleme girmeyip hata mesajı çıkıyor
yapmak istediğim bu
metin1/metin3 ifadesini division by zero mesajını almadan kod yazarak
algılayıp bir sonraki adıma geçmek
if metin3=0 gibi bir şey isstemiyorum
çünkü bu örnek olsun diye ekledim
bazen formul 10-15 farklı değişkenin hangi sırada "/" işareti geleceği belli olmadan kontrol olması gerekiyor
ifadenin tümünün
if metin1/metin3="divion by zero" ise bir sonraki adıma geç
şeklinde değerlendirilmeye girmesi gerekiyor
teşekkürler
