Cara Membuat Fungsi (UDF) Korelasi Spearman di Microsoft Excel

Seperti pada pembahasan sebelumnya mengenai Cara Menghitung Analisis Korelasi Spearman Di Micosoft Excel, saya akan membahas mengenai membuat Korelasi Spearman di Microsoft Excel dengan tujuan efesiensi dalam melakukan perhitungan korelasi Spearman tanpa tabel bantu. Berikut langkah-langkah yang dilakukan:

• Aktifkan Microsoft Excel 2010/2013 anda.
• Tampilkan Tab Developer pada Menu Excel  dengan cara =>File => Option => Costumize Ribbon => ceklis menu Developer Kolom kanan
• Pada tab developer aktifkan visual basic
• Setelah window Visual Basic Terbuka kemudian klik insert dan pilih Module
• Ketikan Kode Makro sebagai berikut:

Public Function Spearman(X As Range, Y As Range) As Variant

If X.Count <> Y.Count Then

MsgBox "jumlah X dan Y tidak sama"

End If

N = X.Rows.Count

Dim arrayX() As Variant

Dim arrayY() As Variant

ReDim arrayX(1 To N) As Variant

ReDim arrayY(1 To N) As Variant

For i = 1 To N

arrayX(i) = WorksheetFunction.Rank_Avg(WorksheetFunction.Index(X, i, 1), X, 1)

arrayY(i) = WorksheetFunction.Rank_Avg(WorksheetFunction.Index(Y, i, 1), Y, 1)

Next i

Dim arrayXY() As Variant

ReDim arrayXY(1 To N) As Variant

For i = 1 To N

arrayXY(i) = arrayX(i) * arrayY(i)

Next i

v1 = WorksheetFunction.Sum(arrayX)

v2 = WorksheetFunction.Sum(arrayY)

v3 = WorksheetFunction.Sum(arrayXY)

v4 = WorksheetFunction.SumSq(arrayX)

v5 = WorksheetFunction.SumSq(arrayY)

bawahisi = ((N * v4) - v1 ^ 2) * ((N * v5) - v2 ^ 2)

bawah = Sqr(bawahisi)

atas = ((N * v3) - (v1 * v2))

Spearman = atas / bawah

End Function

• Setelah selesai , kembali pada worksheet dan save data dengan ekstensi Excel Add-In(*.xlam) dengan nama SPEARMAN atau sesuaikan dengan keinginan anda
• Setelah itu buka new file dengan short key CTR+N dan tutup file SPEARMAN tadi.
• Pada file baru klik Tab Developer dan pilih Add-Ins
• Setelah menu Add-Ins terbuka klik Browse dan pilih file SPEARMAN yang kita save tadi dan klik OK
• Sekarang fungsi spearman telah terinstal pada Microsoft Excel anda, untuk menggunakannya tinggal ketik =SPEARMAN(Pilih range variabel X, Pilih range variabel Y)

Untuk yang ingin langsung menginstall dapat download UDF Spearman di sini. Demikian pembahasan Kali ini lihat juga pembahasan mengenai Cara Membuat Manual Korelasi Rank Spearman Secara Otomatis, semoga membantu.