Bir Sınavdaki Aynı Kazanımların ortalamasını Alma

[nozdemir]

Merhaba Arkadaşlar,

Bir yazılı sınav yaptığımızda soruları ve sorulara ait kazanımları sıralıyoruz.

Örnek: S.N. Kazanım Not
1 Doğru 10
2 Nokta 20
3 Doğru 15
4 Nokta 13
5 Nokta 17
Bu listedeki Aynı kazanımların ortalamasını yazıp sütun grefiğinde göstermek istiyorum.Not Bu kazanımlar sınavlara göre sürekli değişiyor.
VB kodları:
Next
isoru = 0
For isoru = 4 To CByte(l7.Caption) + 3
kyazdir.Cells(ListView2.ListItems.Count + 5, isoru).FormulaR1C1 = "=AVERAGE(R[-" & ListView2.ListItems.Count & "]C:R[-1]C)"
kyazdir.Cells(ListView2.ListItems.Count + 6, isoru).FormulaR1C1 = "=INT((R[-1]C/" & ListView1.ListItems(sadet - 3).SubItems(3) & ")*100)"

Nasıl Yapabilirim.
Dosya Ektedir. Şimdiden Teşekkürler