Anasayfa | Akademik Forum | Sizden Gelenler | Sipariş
Menü Açıklamaları
Sorular - Cevaplar
Makaleler
Makrolar
Yerleşik İşlevler
Animasyonlar
Yumurtalar
Fonksiyonlar
MTK Programlar
ExcelCE
Dosya İndir
Neler Yaptık?
İletişim
Fonksiyonlar
Not Baremi (Puan Hesaplama)
Düzce Meslek Yüksek Okulu’ndan mail atan arkadaşlarımız, not baremini hesaplama zorluğu çekmişler ve bizden böyle bir istekte bulunmuşlardı. Aşağıda verdiğimiz uygulamanın sonucunda, not karşılıklarının kod haline dönüştürülmesini göreceksiniz.

0-39   FF  
40-49     FD   
50-54     DD   
55-59     DC   
60-69     CC   
70-74     CB   
75-84     BB   
85-89     BA   
90-100   AA

Excel VBA sayfasında yeni bir modül açın ve bu modüle aşağıdaki kodu kaydedin.

Function Puan(a As Integer)
    If a < 0 Then Puan = "NOT Sıfırdan Küçük Olmaz"
    If a >= 0 And a <= 39 Then Puan = "FF"
    If a >= 40 And a <= 49 Then Puan = "FD"
    If a >= 50 And a <= 54 Then Puan = "DD"
    If a >= 55 And a <= 59 Then Puan = "DC"
    If a >= 60 And a <= 69 Then Puan = "CC"
    If a >= 70 And a <= 74 Then Puan = "CB"
    If a >= 75 And a <= 84 Then Puan = "BB"
    If a >= 85 And a <= 89 Then Puan = "BA"
    If a >= 90 And a <= 100 Then Puan = "AA"
   
If a > 100 Then Puan = "Notun 100 den büyük olduğuna emin misiniz?"
End Function

Destek
M.ÖZTÜRK - Y.KARAMAN
Bu siteyi, "Hayatını çocuklarının Ahlâklı ve Dürüst yetişmesi için harcamış olan Cefakar ve Fedakar, Canım ANNEM'e adadım."
Copyright © 1998-2011 M. Temel Korkmaz - Tüm hakları saklıdır.