ListBoxa Not Ortalmasını Nasıl Aldırabilirim?

[moresby]

Benim yapmak isteğim Olay şu
Ã?rneğin 6/A sınıfı Türkçe Dersinden 1Dönem Yazılıların tüm notları ListBoxa Gelsin ve altında sınıf ortalmasını versin. List Boxtakileri istegim zaman Sayfa 4 e aktarayım. Yardımcı olursanız sevinirim Dosya ekte

 

[moresby]

Arkadaşlar yardım bekliyorum lütven yardım edin

 

[moresby]

yardımmm

 

[moresby]

Bugün kimsenin yardım etmeye niyeti yok galiba

 

[moresby]

İnşallah yarin Bakarsınız iyi geceler

 

[moresby]

[No message]

 

[moresby]

ya 2 gündür bir kişi bile cevap vermedi lütven yardım

 

[moresby]

birde bu konuda yardım etseniz çok memmun olucam valla

 

[Levent Menteşoğlu]

Sn moresby

Bu şekilde saatbaşı cevap yokmu tarzında mesaj yazmanıza bir anlam veremiyorum. Biraz sabırlı olun lütfen mutlaka bir arkadaşımız sorunuzla ilgilenecektir.

 

[moresby]

Kusuruma bakmayın. Lütven özürümü kabul edin

 

[danersin]

anladığım kadarı ile böyle yaptım, bir inceleyin

 

[moresby]

tşk tam istediğim gibi olmuş eline sağlık

 

[moresby]

sadece ortalamın karşısına 0 değilde ortalama yazdırmak mümkünmü? gene teşekkürler

 

[danersin]

[vb:1:e5522f3276]Private Sub CommandButton16_Click()
On Error Resume Next
toplam = 0
kac = 0
ListBox3.Clear
ListBox3.AddItem
ListBox3.List(0, 0) = "adı"
ListBox3.List(0, 1) = "numarası"
ListBox3.List(0, 2) = "notu"
For a = 2 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 2) = ComboBox10.Value Then
sut = ComboBox12.ListIndex + 12 + ComboBox11.ListIndex * 14

'MsgBox Cells(a, sut) & "<" & TextBox200.Value * 1 & "or" & Cells(a, sut) & ">" & TextBox201.Value * 1
c = c + 1
ListBox3.AddItem
ListBox3.List(c, 0) = Cells(a, 4).Value
ListBox3.List(c, 1) = Cells(a, 3).Value
ListBox3.List(c, 2) = Cells(a, sut).Value
toplam = toplam + Cells(a, sut).Value
kac = kac + 1
End If

10 Next
toplam = toplam / kac
c = c + 1
ListBox3.AddItem
ListBox3.List(c, 0) = "0"
ListBox3.List(c, 1) = "0"
ListBox3.List(c, 2) = toplam

End Sub[/vb:1:e5522f3276]


son satırlarda benim tırnak içinde 0 yazdığım yerlere istediğiniz başlığı atabilirsiniz. kolay gelsin

 

[moresby]

eline koluna sağlık