Vba: cara menghitung nilai rata-rata rentang
Anda dapat menggunakan sintaks dasar berikut untuk menghitung nilai rata-rata suatu rentang di Excel menggunakan VBA:
SubAverageRange ()
Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub
Contoh khusus ini menghitung nilai rata-rata dalam rentang B2:B12 dan menetapkan hasilnya ke sel E2 .
Jika Anda ingin menampilkan nilai rata-rata dalam kotak pesan, Anda dapat menggunakan sintaks berikut:
SubAverageRange ()
'Create variable to store average value
Dim avg As Single
'Calculate average value of range
avg = WorksheetFunction.Average(Range(" B1:B12 "))
'Display the result
MsgBox " Average Value in Range: " & avg
End Sub
Contoh berikut memperlihatkan cara menggunakan masing-masing metode ini dalam praktik dengan himpunan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:
Contoh 1: Hitung rata-rata rentang menggunakan VBA dan tampilkan hasilnya di sel
Misalkan kita ingin menghitung nilai rata-rata di kolom poin dan menampilkan hasilnya di sel tertentu.
Kita dapat membuat makro berikut untuk melakukan ini:
SubAverageRange ()
Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Perhatikan bahwa sel E2 berisi nilai 21.27273 .
Artinya nilai rata-rata pada kolom poin adalah 21.27273.
Contoh 2: Hitung rata-rata rentang menggunakan VBA dan tampilkan hasilnya di kotak pesan
Misalkan kita ingin menghitung nilai rata-rata di kolom poin dan menampilkan hasilnya di kotak pesan.
Kita dapat membuat makro berikut untuk melakukan ini:
SubAverageRange ()
'Create variable to store average value
Dim avg As Single
'Calculate average value of range
avg = WorksheetFunction.Average(Range(" B1:B12 "))
'Display the result
MsgBox " Average Value in Range: " & avg
End Sub
Saat kami menjalankan makro ini, kami menerima keluaran berikut:
Kotak pesan memberitahu kita bahwa nilai rata-rata dalam rentang B2:B12 adalah 21.27273 .
Perhatikan bahwa dalam contoh ini kami menghitung nilai rata-rata dalam rentang B2:B12 .
Namun, jika Anda ingin menghitung nilai rata-rata di seluruh kolom, Anda bisa mengetikkan B:B .
Ini akan menghitung nilai rata-rata untuk setiap sel di kolom B.
Sumber daya tambahan
Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:
VBA: Cara menulis fungsi AVERAGEIF dan AVERAGEIFS
VBA: Cara menulis fungsi SUMIF dan SUMIFS
VBA: Cara menulis fungsi COUNTIF dan COUNTIFS