halo rekan2 bexcel, mau nanya nih...hehe 
 saya membuat script seperti ini di vba excel
 

 Sub statistik()
 Sheets("Sheet2").Activate
 

 'mengetahui jumlah data
 JmlData = selection.Rows.Count
 Range("J8").Value = "1. Data Total = " & JmlData
 

 'menghitung rerata
 datahitung = Range(Cells(9, 5), Cells(JmlData + 8, 5)).Select
 rerata = Application.WorksheetFunction.Average(Cells(9, 5), Cells(JmlData + 8, 
5))
 Range("J9").Value = "2. Rata - Rata = " & rerata
 

 'menghitung standar deviasi
 stdeviasi = Application.WorksheetFunction.StDev(Cells(9, 5), Cells(JmlData + 
8, 5))
 Range("J10").Value = "3. Standar Deviasi = " & stdeviasi
 

 'menghitung variance coefficient
 cv = stdeviasi / rerata
 Range("J11").Value = "4. variance coefficient = " & cv
 

 'menghitung skewness koefficient
 cs = Application.WorksheetFunction.Skew(Cells(9, 5), Cells(JmlData + 8, 5))
 Range("J12").Value = "5. skewness coefficient = " & cs
 

 End Sub
 

 nah, saat di run ada peringatan error, runtime error 1004 unable to get skew 
property of the worksheetfuncion class
 

 kalo dari errornya terlihat pas di function skew dia error, yang bikin saya 
bingung di function average dan stdev dia kok g error, padahal penggunaan 
functionnya sama,
 kira2 rekan-rekan disini ada yang tau akar masalahnya??
 

 

 terima kasih

Kirim email ke