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