Makrolarla öğrenci not bilgisi

[aykut2458]

Makrolarla öğrencilerin 2 notunun ortalamasını bulan, geçti/kaldı görüntüleyen, geçtilerin sayısını bulan programı bilen varsa lütfen ACİLLL YARDIMMMM !!!!!!!!

 

[Vedat Özer]

Merhabalar,


Linki inceleyin,

Milli Eğitim ve Okul Uygulamaları


Burada istediğiniz dosyayı bulamazsanız istediğiniz şekilde küçük bir örnek dosya ekleyin.

 

[aykut2458]

Vedat bey, gösterdiğiniz linkte istediğim programı bulamadım.

Textbox, buton filan kullanılmadan bir program arıyorum.

Ekli dosyayı görüntüle ÖĞRENCİ NOT BİLGİSİ.xlsx

 

[Vedat Özer]

Merhabalar,


Benim de size sormak istediklerim var,

1)Vize ve Final notların % kaçları alınacak.

2)Geçme sınırı kaçtır.

3)Kalanların sayısını istemiyormusunuz.

 

[aykut2458]

Merhaba,

vizenin 0,4'ü , finalin 0,6' sı alınacak.

geçme sınırı 50

kalanlara gerek yok

 

[Vedat Özer]

Merhabalar,


D2 hücresine yapıştırıp aşagıya doğru çekin,

=(B2%*40)+(C2%*60)

E2 hücresine yapıştırıp aşagıya doğru çekin,

=EĞER(D2=0;"";EĞER(D2>49;"Geçti";"Kaldı"))

F2 hücresine yapıştırın,

=EĞERSAY(E:E;"Geçti")

 

[aykut2458]

Vedat Bey, yardımınız için teşekkürler fakat ben makro ile nasıl yapılıyor onu öğrenmem lazım.

 

[mustafaine1]

merhaba select case yapisi ile yapabilirsiniz bence;

 Select Case notlar
        Case 0 To 50
            sinav_ortalama = "Kaldi"
                Case Else
            sinav_ortalama = "Gecti"
    End Select

seklindeki bir yapidan sonucu cikarabilirsiniz, macronun ne sekilde calisacagini bilemedigimden daha acik bisey yazamiyorum..

olmadi ktf olarak kullanabilirsiniz;

Function sinav_ortalama(rng As Range) As String
    Dim notlar As Byte
    notlar = rng.Value
    
    Select Case notlar
        Case 0 To 50
            sinav_ortalama = "Kaldi"
                Case Else
            sinav_ortalama = "Gecti"
    End Select
End Function