{"id":4323,"date":"2023-07-12T00:17:49","date_gmt":"2023-07-12T00:17:49","guid":{"rendered":"https:\/\/statorials.org\/id\/rata-rata-vba-jika\/"},"modified":"2023-07-12T00:17:49","modified_gmt":"2023-07-12T00:17:49","slug":"rata-rata-vba-jika","status":"publish","type":"post","link":"https:\/\/statorials.org\/id\/rata-rata-vba-jika\/","title":{"rendered":"Vba: cara menulis fungsi averageif dan averageifs"},"content":{"rendered":"

<\/p>\n

\n

Anda dapat menggunakan metode berikut untuk menulis fungsi AVERAGEIF dan AVERAGEIFS menggunakan VBA di Excel:<\/span><\/p>\n

Metode 1: Fungsi AVERAGEIF di VBA<\/span><\/strong><\/p>\n

 Sub<\/span> Averageif_Function()\n    Range(\" E2<\/span> \") = WorksheetFunction.AverageIf(Range(\" A2:A12<\/span> \"), \" Mavs<\/span> \", Range(\" B2:B12<\/span> \"))\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Contoh khusus ini akan menghitung nilai rata-rata dalam rentang B2:B12<\/strong> di mana nilai terkait dalam rentang A2:A12<\/strong> sama dengan “Mavs”, lalu menetapkan hasilnya ke sel E2<\/strong> .<\/span><\/p>\n
 Metode 2: Fungsi AVERAGEIFS di VBA<\/span><\/strong><\/p>\n
 Sub<\/span> Averageifs_Function()\n    Range(\" E2<\/span> \") = WorksheetFunction.AverageIfs(Range(\" C2:C12<\/span> \"), Range(\" A2:A12<\/span> \"), \" Mavs<\/span> \", Range(\" B2:B12<\/span> \"), \" >20<\/span> \")\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Contoh khusus ini akan menghitung nilai rata-rata pada rentang C2:C12 dimana nilai pada rentang A2:A12<\/strong> sama dengan “Mavs” dan<\/em> nilai pada rentang B2:B12<\/strong> lebih besar dari 20, lalu tetapkan hasilnya ke sel E2<\/strong> . .<\/span><\/p>\n
 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:<\/span> <\/p>\n
\"\"<\/p>\n
 Contoh 1: Fungsi AVERAGEIF di VBA<\/strong><\/span><\/h2>\n
 Katakanlah kita ingin menghitung nilai rata-rata pada kolom poin pemain di tim Mavs.<\/span><\/p>\n
 Kita dapat membuat makro berikut untuk menjalankan fungsi AVERAGEIF ini:<\/span><\/p>\n
 Sub<\/span> Averageif_Function()\n    Range(\" E2<\/span> \") = WorksheetFunction.AverageIf(Range(\" A2:A12<\/span> \"), \" Mavs<\/span> \", Range(\" B2:B12<\/span> \"))\nEnd Sub<\/span><\/strong><\/span><\/pre>\n
 Saat kami menjalankan makro ini, kami menerima keluaran berikut:<\/span> <\/p>\n
\"\"<\/p>\n
 Perhatikan bahwa sel E2<\/strong> berisi nilai 18.25<\/strong> .<\/span><\/p>\n
 Artinya nilai rata-rata pada kolom poin pemain tim Mavs adalah 18,25.<\/span><\/p>\n
 Kami dapat memverifikasi kebenarannya dengan menghitung secara manual nilai rata-rata poin pemain di Mavs:<\/span><\/p>\n
 Poin rata-rata pemain Mavs: (22 + 10 + 29 + 12) \/ 4 = 18.25<\/strong> .<\/span><\/p>\n
 Contoh 2: Fungsi AVERAGEIFS di VBA<\/strong><\/span><\/h2>\n
 Katakanlah kita ingin menghitung nilai rata-rata pada kolom assist untuk pemain yang memenuhi kriteria berikut:<\/span><\/p>\n