Textlerin ortalamasını hesaplatmak

[ahmedummu]

Merhaba arkadaşlar, herkesa hayırlı deceler.

8 adet textbox'um var bunlara değer giriyorum. Her zaman tüm textlerin dolu olması gerekmiyor. değer olan textrboxların ortalamasını yapamadım. Yarcdımcı olabilir misiniz. Örnek 8 textbox'un 4'ün de değer var ise dördünün ortalamasnı, 5'inde değer varsa 5'inin ortalamasnı alacak. Yardımcı olursanız sevinirim.

 

[cems]

Merhaba arkadaşlar, herkesa hayırlı deceler.

8 adet textbox'um var bunlara değer giriyorum. Her zaman tüm textlerin dolu olması gerekmiyor. değer olan textrboxların ortalamasını yapamadım. Yarcdımcı olabilir misiniz. Örnek 8 textbox'un 4'ün de değer var ise dördünün ortalamasnı, 5'inde değer varsa 5'inin ortalamasnı alacak. Yardımcı olursanız sevinirim.

Dosya eklemeyi unutmuş olabilirsiniz ..

 

[muygun]

Merhaba;
İşlemi nerde yaptığınızı , Buton yada veri girişi oldukça mı yapılacağını belirtmemişsiniz.
Ekleri inceleyin.
Bir butona bağlayabilir yada change olayında bırakabilirsiniz.
İyi çalışmalar.

 

[halit3]

Alternatif kod

Private Sub CommandButton1_Click()

ReDim deg(8)
Dim deg2, i, j
deg2 = 0
For j = 1 To 8
deg(j) = 0
If IsNumeric(Controls("TextBox" & j).Value) = True Then
i = i + 1
deg(j) = deg(j) + Round(Controls("TextBox" & j).Value, 2) * 1
deg2 = deg2 + CDbl(Round(Controls("TextBox" & j).Value, 2) * 1)
End If
Next j

MsgBox WorksheetFunction.Average(deg(1), deg(2), deg(3), deg(4), deg(5), deg(6), deg(7), deg(8))
MsgBox (deg2 / i)
'Dim r As Range
'Set r = Range("A2", Range("A2").End(xlDown))
'MsgBox WorksheetFunction.Average(r.Value)
End Sub

 

[ahmedummu]

Teşekkürler arkadaşlar.