Averaj Hesaplama Örnek ( Kullanıcı Tanımlı Fonksiyon)

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Averaj Hesaplama Örnek ( Kullanıcı Tanımlı Fonksiyon)

İleti#1)  Tarkan VURAL » 15 Haz 2008 03:57

Sayfa1 içindeki verilerinizin averaj ve sapmalarını hesaplar

Kod: Tümünü seç
Function Bak(Arr() As Single)
Dim Sum As Single, i As Integer
    Sum = 0
    For i = 1 To UBound(Arr)
        Sum = Sum + Arr(i)
    Next i
    Bak = Sum / UBound(Arr)
End Function


Kod: Tümünü seç
Function StdSap(Arr() As Single)
Dim i As Integer, avg As Single, SumSq As Single
     avg = Bak(Arr)
     For i = 1 To UBound(Arr)
          SumSq = SumSq + (Arr(i) - avg) ^ 2
     Next i
     StdSap = Sqr(SumSq / (UBound(Arr) - 1))
End Function


Kod: Tümünü seç
Private Sub hesapla()
Dim Arr(10) As Single, Averaj As Single, Std_Sapma As Single
     For i = 1 To UBound(Arr)
          Arr(i) = Sheets("Sayfa1").Cells(i, 1)
     Next i
     Averaj = Bak(Arr)
     Std_Sapma = StdSap(Arr)
     MsgBox "Averaj:" & vbTab & Averaj & vbCrLf & "Std.Sapma :" & vbTab & Std_Sapma
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26652
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Averaj Hesaplama Örnek ( Kullanıcı Tanımlı Fonksiyon)

İleti#2)  sürreal » 11 Oca 2016 13:16

Sayın Tarkan Vural Arr dizisinin eleman sayısını önceden bilmiyorsak
bu KTF yi nasıl çalıştırırız. Ben bir kaç deneme yaptım ama başaramadım.
Kullanıcı avatarı
sürreal
 
Adı Soyadı:Umut Güney
Kayıt: 24 Oca 2013 02:47
Konum: Ankara
Meslek: serbest
Yaş: 51
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Sincan


Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe