Excel ile 100'lük notu 5'lik nota dönüştürme

[lord_leo]

Bu işlemi excel'in dahili işlevlerinden(fonksiyon) biri olan EĞER ile iç içe kullanarak yapabilirsiniz ama bu biraz karışık gelebilir.
Bunun yerine VBA kodlarıyla yeni bir işlev ekleyebilirsiniz. Böylece 5'lik nota dönüştürmek daha kolay olacaktır.

Nasıl yapılr?
Exceldeyken ALT+F11' e basarak VBA düzenleyicisini açın.
Yeni bir modül eklemek için menüden Insert / Module tıklayın.
Açılan pencereye aşağıdaki kodları ekleyin.

Kod: Tümünü seç

Function besliknot(sayi As Integer) As Integer 
Select Case sayi   
Case 0 To 24     
besliknot = 0   
Case 25 To 44     
besliknot = 1   
Case 45 To 54     
besliknot = 2   
Case 55 To 69    
 besliknot = 3   
Case 70 To 84     
besliknot = 4   
Case 85 To 100     
besliknot = 5   
Case Else     
besliknot = -1 
End Select 
End Function 

İsterseniz VBA düzenleyicisini kapatabilirsiniz.
Bu işlem ile artık excel işlevi gibi çalılşan yeni bir işlev oluştu. İşlevin adı: besliknot

Nasıl kullanılır?
=besliknot(Rakam)
Rakam 0 ile 100 arasında olmalı. Değilse -1 olarak sonuç döner

Örneğin;
=besliknot(75)
=besliknot((78+65+70)/3)
=besliknot(C3)

[velociraptor]

ilaveten bakiniz:
viewtopic.php?f=20&t=62134