Tahukah Anda gimana cara menciptakan rumus rata-rata? Yah, rumus itu mah sudah biasa dan anak SD ajah tahu rumus rata-rata itu memakai AVERAGE, namun yang satu ini rumus rata-rata hanya sekali klik saja sanggup memilih berapa rata-rata dari suatu range.
Rumus rata-rata atau lebih familiar dengan AVERAGE ini memang bukan diketikkan menyerupai biasanya Anda mengetik untuk menciptakan rumus pada cell tertentu namun hanya dengan tombol "Cari Rata-Rata" maka secara otomatis akan menciptakan rumus sendiri pada range yang akan dicari tersebut.
Kenapa sanggup hanya 1 kali klik untuk menciptakan rumus rata-rata?
Jawabanya simpel, ya alasannya dengan tunjangan coding atau script VBA. Seperti yang telah aku bahas juga bahwa VBA sanggup mempermudah dan mempercepat pekerjaan dalam menuntaskan dilema di Ms. Excel untuk itu aku sisipkan script untuk menciptakan rumus rata-rata secara otomatis dengan memakai tombol. Langsung saja berikut skrin shut nya.
Ada tiga orang nama diatas dengan 4 nilai yakni nilai1, nilai2, nilai3 dan nilai 4 maaf pada gambar diatas aku lupa untuk mengganti Nilai1 setiap kolom dari D hingga dengan kolom G, nah, range D2:G5 akan dijumlahkan atau dicara berapa nilai rata-ratanya untuk setiap nilai per kolom dan sebelumnya pada baris Rata-Rata belum terdapat angka dan rumus pun belum ada dan aku akan menciptakan rumus AVERAGE tersebut dengan coding VBA
Baca:
8 Rumus Excel yang serng dipake
Berikut Coding VBA untuk mencari Rata-Rata
Sub Rata()
Call RataOtomatis
End Sub
Sub RataOtomatis()
For Each NumRange In Columns("D").SpecialCells(xlConstants, xlNumbers).Areas
SumAddr = NumRange.Address(False, False)
NumRange.Offset(NumRange.Count, 0).Resize(1, 4).Formula = "=Average(" & SumAddr & ")"
c = NumRange.Count
Next NumRange
End Sub Pada Module RataOtomatis akan dipanggil oleh sub Rata dan inilah macro yang nantinya akan dipakai dan dihubungkan dengan tombol yang ada pada worksheet.
Simak Juga :
Contoh Rumus Rata-Rata dengan kondisi
Untuk sanggup menciptakan coding tersebut Anda harus mengaktifkan hidangan Developer terlebih dahulu dan hal ini sudah pernah aku bahas sebelumnya silakan cek dan cari di blog ini niscaya ketemu.
Perhatikan balasannya pada cell D6 tertuliskan rumus =AVERAGE(D3:D5)
pada cell E6 tertuliskan rumus =AVERAGE(E3:E5)
pada cell F6 tertuliskan rumus =AVERAGE(F3:F5)
dan di G6 bertuliskan rumus =AVERAGE(G3:G5)
Rumus-rumus diatas akan ditampilkan secara otomatis dan menghitung nilai rata-rata dengan hasnya 1 tombol "Rata-Ratakan"
Pada tombol tersebut Anda harus Assign macronya ke Rata atau RataOtomatis sama saja lalu klik OK dan silakan coba balasannya dengan cara klik tombol tersebut maka akan secara otomatis rumus AVERAGE akan dituliskan pada cell yang telah ditetapkan.
Demikian bagaimana cara menciptakan rumus AVERAGE atau rata-rata dengan hanya satu kali klik saja, supaya bermanfaat. Sumber http://www.excel-id.com/