Buat Fungsi VBA Rata-rata dan Simpangan Baku

Contoh di bawah ini adalah contoh mudah untuk membuat fungsi dengan VBA Excel. Tujuan pembuatan fungsi Rerata dan SimpanganBaku adalah untuk menghitung rata-rata dan simpangan baku dari sebuah deret data. Untuk mudahnya maka deret data kita masukan ke sel A1 samoau A10 pada Sheet1 dalam sebuah Workbook Excel. Untuk menyederhanakan program dan tentunya mempercepat proses pengolahan maka dibuat dua prosedur fungsi dan satu sub-prosedur. sub prosedur membaca angka-angka dari deret atau array (A1..A10), dan memanggil ke dua fungsi yang menghasilkan rata-rata dan simpangan baku dari data tersebut. Rumus untuk menghitung rata-rata dan simpangan baku yang diperoleh dari buku statistik adalah sebagai berikut. Perlu diketahui bahwa Simpangan Baku di bawah ini adalah untuk sampel, bukan untuk populasi.

‘—————————————————————————————————

‘*                                                                       Rerata                                                                            *
‘=======================================================

Function Rerata(Jumdata  As Long, Arr() As Single)
Dim Jumlah As Single
Dim i As Integer

Jumlah = 0
For i = 1 To Jumdata
Jumlah = Jumlah + Arr(i)
Next i

Rerata = Jumlah / Jumdata

End Function

‘——————————————————————————————————

‘ %%                                                    Simpangan Baku                                                                     &&
‘=========================================================
Function SimpanganBaku(Jumdata As Long, Arr() As Single)
Dim i As Integer
Dim rata As Single, JumKwadrat As Single

rata = Rerata(Jumdata, Arr)
For i = 1 To Jumdata
JumKwadrat = JumKwadrat + (Arr(i) – rata) ^ 2
Next i

SimpanganBaku = Sqr(JumKwadrat/ (Jumdata – 1))

End Function

‘*************************************************************************
‘* Perhitungan*
‘*************************************************************************
Sub hitung()
Dim Arr(10) As Single
Dim Ratarata As Single
Dim StandarDeviasi As Single

For i = 1 To 10
Arr(i) = Sheets(“Sheet1″).Cells(i, 1)
Next i

Ratarata = Rerata(10, Arr)
StandarDeviasi = SimpanganBaku(10, Arr)

‘Tulis di bawahnya
Sheets(“Sheet1″).Cells(12, 1) = Ratarata

Sheets(“Sheet1″).Cells(13, 1) = StandarDeviasi

End Sub

Share

2 comments for “Buat Fungsi VBA Rata-rata dan Simpangan Baku

  1. August 1, 2013 at 3:47 pm
    Howdy! I could have sworn I’ve been to this web site before but after going through many of the posts I realized it’s new to me.
    Anyways, I’m definitely pleased I came across it and I’ll be bookmarking it and checking back regularly!

Leave a Reply