VB ile Ortalama aldırma

[VisuaL.NET]

VB ile ortalama aldırmak istiyorum... Lütfen yardımcı olurmusunuz?

 

[Levent Menteşoğlu]

Kodunuzu aşağıdaki ile değiştirerek deneyin.

[vb:1:b4e7ee7457]Private Sub CommandButton1_Click()
Dim x As Long
Dim y As Long
Dim s As Long
Sayfa2.Activate
Sayfa2.Cells(1, 1).Value = Calendar1.Value
For s = 5 To 8
Sayfa2.Cells(s, 2).Clear
Next s
For a = 5 To 8
For x = 5 To 14
If Sayfa2.Cells(a, 1).Value = Sayfa1.Cells(x, 1).Value And Sayfa2.Cells(a, 3).Value = Sayfa1.Cells(x, 3).Value Then
c = c + 1
Sayfa2.Cells(a, 2).Value = Sayfa1.Cells(x, 2).Value + Sayfa2.Cells(a, 2).Value
Sayfa2.Cells(a, 4).Value = Sayfa2.Cells(a, 2).Value / c
End If
Next x
c = 0
Next a
End Sub
[/vb:1:b4e7ee7457]

 

[VisuaL.NET]

Kodunuzu aşağıdaki ile değiştirerek deneyin.

[vb:1:f3086dafff]Private Sub CommandButton1_Click()
Dim x As Long
Dim y As Long
Dim s As Long
Sayfa2.Activate
Sayfa2.Cells(1, 1).Value = Calendar1.Value
For s = 5 To 8
Sayfa2.Cells(s, 2).Clear
Next s
For a = 5 To 8
For x = 5 To 14
If Sayfa2.Cells(a, 1).Value = Sayfa1.Cells(x, 1).Value And Sayfa2.Cells(a, 3).Value = Sayfa1.Cells(x, 3).Value Then
c = c + 1
Sayfa2.Cells(a, 2).Value = Sayfa1.Cells(x, 2).Value + Sayfa2.Cells(a, 2).Value
Sayfa2.Cells(a, 4).Value = Sayfa2.Cells(a, 2).Value / c
End If
Next x
c = 0
Next a
End Sub
[/vb:1:f3086dafff]

Ben aşağıdaki gibi bir kod ile kullanmaya çalıştığımda farklı işlem yapmaktadır. Lütfen hataaaa nerde ya...

c sonucunu döngü sayısı kadar veriyor...
diyelimki örnekte

For s = 2 To 5000
If Sayfa4.Cells(s, 12).Value = Calendar1.Value Then

For a = 7 To 61
For x = 6 To 27
If Sayfa1.Cells(a, 1).Value = Sayfa4.Cells(s, 1).Value And Sayfa1.Cells(4, x).Value = Sayfa4.Cells(s, 11).Value And Sayfa1.Cells(a, 5).Value = Sayfa4.Cells(s, 2).Value Then
Sayfa1.Cells(a, x).Value = Sayfa1.Cells(a, x).Value + Sayfa4.Cells(s, 5).Value
Sayfa1.Cells(a, x + 1).Value = Sayfa1.Cells(a, x + 1).Value + Sayfa4.Cells(s, 6).Value

Sayfa1.Cells(a, 37).Value = Sayfa1.Cells(a, 37).Value + Sayfa4.Cells(s, 8).Value
Sayfa1.Cells(a, 30).Value = (Sayfa1.Cells(a, 28).Value / Sayfa1.Cells(a, 37).Value) * 100

c = c + 1
Sayfa1.Cells(a, 38).Value = Sayfa1.Cells(a, 38).Value + Sayfa4.Cells(s, 3).Value
Sayfa1.Cells(a, 39).Value = Sayfa1.Cells(a, 38).Value / c

Else: End If
Next x
Next a
Else: End If
Next s

 

[VisuaL.NET]

konu ile ilgili yardımcı olabilicek varmıdır?

 

[VisuaL.NET]

konu ile ilgili yardımcı olabilicek varmıdır?

Çok gerekliydi... Bir türlü çözemiyorum. Kilitlendim.