EXCEL VBA İLE HARFLİ NOT HESAPLAMA
1. Adım: Notların Girilmesi Öncelikle, Excel sayfasında A sütununa öğrenci isimlerini, B sütununa vize notlarını ve C sütununa final notlarını girdiğimizi varsayalım. D sütununa genel notu ve E sütununa harfli notu hesaplayacağız.
2. Adım: VBA Kodlarının Eklenmesi Excel'de Geliştirici sekmesinden VBA penceresini açın ve yeni bir Module oluşturun. Aşağıdaki kodları modüle ekleyin:
Sub NotHesapla()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' Sayfa adınızı buraya yazın
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
Dim i As Long
For i = 2 To lastRow
Dim vize As Double
Dim final As Double
Dim genelNot As Double
Dim harfNotu As String
vize = ws.Cells(i, 2).Value
final = ws.Cells(i, 3).Value
genelNot = vize * 0.4 + final * 0.6
ws.Cells(i, 4).Value = genelNot
Select Case genelNot
Case Is >= 90
harfNotu = "AA"
Case Is >= 85
harfNotu = "BA"
Case Is >= 80
harfNotu = "BB"
Case Is >= 75
harfNotu = "CB"
Case Is >= 70
harfNotu = "CC"
Case Is >= 65
harfNotu = "DC"
Case Is >= 60
harfNotu = "DD"
Case Is >= 55
harfNotu = "FD"
Case Else
harfNotu = "FF"
End Select
ws.Cells(i, 5).Value = harfNotu
Next i
End Sub
3. Adım: Makroyu Çalıştırma Bu kodları ekledikten sonra Sub NotHesapla makrosunu çalıştırarak vize ve final notlarına göre genel notu ve harfli sistemi hesaplayabilirsiniz. Notların bulunduğu satırlar arasında dolaşarak her bir öğrenci için genel notu ve harfli notu hesaplayacak.
Bu kod örneği, notların bulunduğu Excel sayfasında Sheet1 sayfasını kullanmaktadır. Eğer sayfanızın adı farklıysa, Set ws = ThisWorkbook.Sheets("Sheet1") satırını güncelleyerek sayfa adını uygun şekilde değiştirin.