Not Hesaplaması

[brsgdc]

Not hesaplaması ile ilgili problemim var yardımcı olursanız çok sevinirim anlatıyorum...

Vize'nin %40'ı alınacak eğer ödev notu girilmez ise ödev notu girilir ise vize %30 Ödev %10 alınacak
Final %60 alınacak eğer bütünleme notu girilmez ise bütünleme notu girilir ise final alınmayıp bütünleme notunun %60'ı alınacaktır.

Harf Notu kısmında ise ortalama diyelim ki 90 ile 100 arası ise harf notu kısmında AA yazacak aşağıda değerleri verdim bu anlattıklarımı makro kodları ile yaparsanız çok sevinirim. Excel dosyası ektedir.

AA 90-100
BA 85-89
BB 75-84
CB 65-74
CC 60-64
DC 50-59
DD 45-49
FD 40-44
FF 00-39

 

[Mahir64]

Merhaba,

Harf Notu G2 hücresi için,

=ARA(H2;({0;40;45;50;60;65;75;85;90;100});
({"FF";"FD";"DD";"DC";"CC";"CB";"BB";"BA";"AA"}))

ortalama F2 için,

=EĞER(F2="";E2*60%;F2*60%)+EĞER(D2="";C2*40%;(C2*30%)+
(D2*10%))

Deneyiniz.

 

[Mustafa MUTLU]

Mahir bey cevaplamış görmedim..

 

[brsgdc]

İlginiz için çok teşekkür ederim fakat özellikle belirttim ben bunları makro kodları ile istiyorum.

 

[Mahir64]

İlginiz için çok teşekkür ederim fakat özellikle belirttim ben bunları makro kodları ile istiyorum.

Sorunuzu Makro kısmına açtığınıza dikkat etmemişim.
O zaman altarnatif çözüm olarak kullanılabilir.

 

[brsgdc]

Makro kodlarına ihtiyacım var yardımcı olabilirseniz çok sevinirim.

 

[brsgdc]

Yardımcı olucak kimse yok mu zor durumda kaldım ?

 

[accountant80]

Merhaba, dosyanızı inceleyemiyorum ama 2.sorunuz için bir kod hazırladım, lütfen deneyiniz. A1 hücresine not yazıp hesapla makrosunu çalıştırınca B1 hücresine harf yazar. Dosyanızı 2003 formatında gönderirseniz diğer soruya da bakabilirim.

Sub hesapla()
If [a1].Value <= 100 And [a1].Value >= 90 Then [b1].Value = "AA"
If [a1].Value <= 89 And [a1].Value >= 85 Then [b1].Value = "BA"
If [a1].Value <= 84 And [a1].Value >= 75 Then [b1].Value = "BB"
If [a1].Value <= 74 And [a1].Value >= 65 Then [b1].Value = "CB"
If [a1].Value <= 64 And [a1].Value >= 60 Then [b1].Value = "CC"
If [a1].Value <= 59 And [a1].Value >= 50 Then [b1].Value = "DC"
If [a1].Value <= 49 And [a1].Value >= 45 Then [b1].Value = "DD"
If [a1].Value <= 44 And [a1].Value >= 40 Then [b1].Value = "FD"
If [a1].Value <= 39 And [a1].Value >= 0 Then [b1].Value = "FF"

End Sub

 

[brsgdc]

Çok teşekkür ederim, 2003 formatına çevrilmiş dosyayı ekte gönderiyorum.

 

[brsgdc]

Yardımcı olabilecek birisi var mı ?

 

[Mustafa MUTLU]

Yardımcı olabilecek birisi var mı ?

Tabiki yardım eden çıkar Hocam..
Vakit harcamaları lazım.
Benim boş vaktim var yarında Pazar nasıl olsa dedim ve
Sana isteğini karşılayacak bir şey hazırladım.
buyurun....
İşinizi görür umarım..

 

[brsgdc]

Teşekkürler.

 

[Mustafa MUTLU]

Teşekkürler.

Rica ederim.
İşinizi Görüyorsa ne güzel..

 

[Mustafa MUTLU]

Hatırlatma :
Ders sayısını aşağı doğru istediğiniz kadar artırabilirsiniz.
Sadece 7 ders için değil 65536 adet ders girebilirsiniz alt alta.
A sütununda ders kodu kesinikle girilmelidir..

 

[brsgdc]

Mustafa bey, öncelikle ilginiz ve emeğiniz için teşekkür ederim fakat kodlar çok fazla 2010 makro kodları daha basit galiba o şekilde yapabilirmisiniz ?

 

[Mustafa MUTLU]

Hocam Puan lar için harf vermek lazım.
Kodun uzaması harfler yüzünden.
9 çeşit harf uygulaması var.
Hepside iki şık içeriyor 10 - 20 arası gibi..
Kodların çok olması sorun yaratmaz..

 

[brsgdc]

Mustafa bey, okulda ödev olarak vericemde bu sırada öğrenciyim yalnız çok reklam yapmışsınız açıkçası kendime göre düzenlemem gerekiyo yardımcı olurmusunuz ? birde 65536 adet ders girilebilir demişsiniz o kısmıda kaldırabilirseniz çok sevinirim. teşekkürler.

 

[Mustafa MUTLU]

Mustafa bey, okulda ödev olarak vericemde bu sırada öğrenciyim yalnız çok reklam yapmışsınız açıkçası kendime göre düzenlemem gerekiyo yardımcı olurmusunuz ? birde 65536 adet ders girilebilir demişsiniz o kısmıda kaldırabilirseniz çok sevinirim. teşekkürler.

Kodları yazarken özellikle for döngüleri yada başvurulara isim vermek gerekiyor.
arkadaşlar genellikle x, i, y gibi tek harf kullanıyorlar.
Bende For döngüsü için MSTF harflerini tercih ettim.
Siz Menüden Edit / Replace / İlk kutucuğa MSTF ikinci Kutucuğa X yazıp Replace all tuşunu tıklarsanız Reklamımı Kaldırabilirsiniz.
Diğer ismim yazan yerler içinde aynı işlemi yapabilirsiniz.
Kodlarınız bozulmaz....

 

[brsgdc]

hallettim teşekkür ederim.