Formula Menjumlahkan Mata Duit Yang Berbeda Di Dalam Satu Kolom Excel

Tutorial: Excel 2007, 2010, 2013.
Tutorial ini menyuguhkan cara untuk menjumlahkan secara terpisah angka atau harga yang mempunyai mata uang berbeda pada kolom yang serupa di lembar kerja Excel.
Cara Menjumlahkan Mata Uang yang Berbeda di Excel

Cara Menjumlahkan Mata Uang yang Berbeda di Excel

Contohnya seperti gambar di atas. Kolom 2 mempunyai baris angka dengan dua format mata duit, ialah Dollar dan Euro.
Untuk menjumlahkan angka masing-masing mata duit, kita bisa menggunakan User Defined Function (UDF) yang berasal dari forum diskusi ini.

Langkah-Langkah

Pada lembar kerja Excel, tekan tombol ALT + F11 untuk menunjukkan layar editor Microsoft Visual Basic for Applications.

Kemudian pada tab Insert, klik Module. Akan muncul satu layar putih.

Salin dan tempatkan kode di bawah ini pada layar putih tersebut.
Function GetFormat(r As Range)
Dim arr() As String
ReDim arr(1 To r.Cells.Count)
i = 1
For Each c In r
arr(i) = c.NumberFormat
i = i + 1
Next c
GetFormat = WorksheetFunction.Transpose(arr)
End Function

Kemudian simpan dan tutup layar editor.

Selanjutnya kita akan menggunakan function tersebut pada lembar kerja Excel. Klik pada sel yang hendak diisi dengan hasil penjumlahan. Contoh pada tutorial ini yakni sel B7 untuk menjumlahkan mata duit Dollar.

Ketik formula =SUMPRODUCT(IF(GetFormat(B2:B6)=GetFormat(B2);1;0);B2:B6) dan akhiri dengan menekan tombol CTRL + SHIFT + ENTER.
Catatan: gunakan tanda pemisah koma bila komputer Anda menggunakan settingan tersebut.

Keterangan formula:
- GetFormat, nama function yang dibentuk pada langkah 3 di atas.
- Range B2:B6 yakni kumpulan sel yang berisi angka-angka yang ingin dijumlahkan.
- B2 adalah sel yang berisi simbol Dollar ($).

Selanjutnya salin function pada sel B7 ke sel B8 untuk menjumlahkan mata duit Euro.
Ganti B2 pada formula dengan sel B4 yang berisi mata duit Euro (€) mirip formula di bawah ini.
=SUMPRODUCT(IF(GetFormat(B2:B6)=GetFormat(B4);1;0);B2:B6)

Dan akhiri juga dengan menekan CTRL + SHIFT + ENTER.