Private Sub Command1_Click()
a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
If a <= 0 Then MsgBox "Hava Soğuk"
Else: If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
Else: If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
Else
MsgBox "Hava Çok Sıcak"
End If
End Sub
şu kodlamada Compile Error: Else Without İf hatası veriyor. Hata nerede acaba? Yardımcı olabilirseniz sevinirim.
a = InputBox("Bugünkü Hava Sıcaklığını Giriniz", "Sıcaklık")
If a <= 0 Then MsgBox "Hava Soğuk"
Else: If a > 0 And a <= 10 Then MsgBox "Hava Soğuk"
Else: If a > 10 And a < 25 Then MsgBox "Hava Sıcaklığı Normal"
Else
MsgBox "Hava Çok Sıcak"
End If
End Sub
şu kodlamada Compile Error: Else Without İf hatası veriyor. Hata nerede acaba? Yardımcı olabilirseniz sevinirim.