geometrik ortalama?

[maxcoder]

abilerim geometrik ortalama aldırcam bu kodda nerde hata var sürekli ya (1) yada (0) sonucunu veriyor.Hata nerde?
--------
'Geometrik ortalama
ElseIf OptionButton9.Value Then
d = 1
Range(UserForm1.RefEdit1).Select 'verileri al
For i = 1 To Selection.Rows.Count
For j = 1 To Selection.Rows.Count
d = d * Cells(i, j)
Next j
Next i
d = d ^ 1 / Selection.Rows.Count

MsgBox "İşlem Sonucunuz:" & d
----------------------------------

 

[zafer]

Merhaba

Siz Örneğin a1 ile c50 arasındaki sayıların ortalamasınımı almak istiyorsunuz.

Sub norortalama()

Range(UserForm1.RefEdit1).Select
sat = Selection.Rows.Count
sut = Selection.Columns.Count
Top = sat + sut

For i = 1 To sat
For j = 1 To sut
d = d + Cells(i, j)
Next j
Next i
c = (d ^ 1) / Top
MsgBox "İşlem Sonucunuz:" & c
End Sub


geometrik için fonksiyon
=GEOORT(A1:E4)

 

[maxcoder]

hocam kullanıcı excel veirlerini giricek daha sonra istedigini refeditle seçicek sonra seçilen sayıları çarpıcam ve adedi kadar dereceden kök alıcam ama yine olmadı hala ne girsem 1 diyo

 

[zafer]

Merhaba


dongüye gerek yok

Sub geoort()
geo = Application.WorksheetFunction.GeoMean(Range(UserForm1.RefEdit1))

MsgBox "İşlem Sonucunuz:" & geo

End Sub

 

[maxcoder]

zafer abi excelin yerleşik fonksiyonlarını kulanmam yasak hocam ödev yapıyorumda.

 

[maxcoder]

zafer abi ortalama kodu da çalışmıyo daha dogrusu cevap yanlış 1 ile 4 ün ortalamasına 1.6 diyor.

 

[zafer]

Merhaba


Sub geortalama()

'Range(UserForm1.RefEdit1).Select
sat = Selection.Rows.Count
sut = Selection.Columns.Count
sec = Selection.Cells.Count
d = 1
For i = 1 To sat
For j = 1 To sut
d = d * Cells(i, j)
Next j
Next i
far = 1 / sec
c = d ^ far
MsgBox "İşlem Sonucunuz:" & c
End Sub

 

[zafer]

Merhaba


Userform ve msg kutusu olarak 2 ayrı şekilde hesaplıyor
Aşağıdaki dosyayı inceleyiniz

 

[maxcoder]

teşekkkürler hocam

k::