if konusu

[keskin535]

Merhaba herkese bi konu var beynim yandı nasıl yapıcam bilen biri yardımcı olabilirmi http://hizliresim.com/pX7kOm bu resimdeki gibi isteneni nasıl yaparım elseif kullanmadan ?

 

[systran]

inceleyiniz...

Sub hesapla()
puan = 10
Select Case puan
Case 0 To 10
    MsgBox "a"
Case 11 To 20
    MsgBox "b"
Case 21 To 30
    MsgBox "c"
Case Else
    MsgBox "farklı bir durum oluştu"
End Select
End Sub

 

[vardar07]

Buyurun.

Sub if_4()
Dim nnot As Integer
nnot = Cells(1, 1)
If nnot <= 10 Then
MsgBox "çok kötü"
End If
If nnot > 10 And nnot <= 20 Then
MsgBox "zayıf"
End If
If nnot > 20 And nnot <= 30 Then
MsgBox "  kötü"
End If
If nnot > 30 And nnot <= 40 Then
MsgBox "az kötü"
End If
If nnot > 40 And nnot <= 50 Then
MsgBox "ha gayret"
End If
If nnot >= 60 Then
MsgBox "geçtin"
End If
End Sub

 

[keskin535]

Çok sağolun Allah razı olsun yeni yeni başlıyorumda bu konulara