Cara Menjumlahkan Mata Uang yang Berbeda di Dalam Satu Kolom Excel

Tutorial: Excel 2007, 2010, 2013.

Tutorial ini menyajikan cara untuk menjumlahkan secara terpisah angka atau harga yang memiliki mata uang berbeda pada kolom yang sama di lembar kerja Excel.

Cara Menjumlahkan Mata Uang yang Berbeda di Excel

Contohnya seperti gambar di atas. Kolom 2 memiliki baris angka dengan dua format mata uang, yaitu Dollar dan Euro.

Untuk menjumlahkan angka masing-masing mata uang, kita bisa menggunakan  User Defined Function (UDF) yang berasal dari forum diskusi ini.

Langkah-Langkah

  1. Pada lembar kerja Excel, tekan tombol ALT + F11 untuk menampilkan layar editor Microsoft Visual Basic for Applications.
  2. Kemudian pada tab Insert, klik Module. Akan muncul satu layar putih.
  3. 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

  4. Kemudian simpan dan tutup layar editor.
  5. Selanjutnya kita akan menggunakan function tersebut pada lembar kerja Excel. Klik pada sel yang akan diisi dengan hasil penjumlahan. Contoh pada tutorial ini adalah sel B7 untuk menjumlahkan mata uang Dollar.
    Baris Sel mata uang Dollar dan Euro
  6. 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 dibuat pada langkah 3 di atas.
    • Range B2:B6 adalah kumpulan sel yang berisi angka-angka yang ingin dijumlahkan.
    • B2 adalah sel yang berisi simbol Dollar ($).
  7. Selanjutnya salin function pada sel B7 ke sel B8 untuk menjumlahkan mata uang Euro.

    Ganti B2 pada formula dengan sel B4 yang berisi mata uang Euro (€) seperti formula di bawah ini.
    =SUMPRODUCT(IF(GetFormat(B2:B6)=GetFormat(B4);1;0);B2:B6)

    Dan akhiri juga dengan menekan CTRL + SHIFT + ENTER.

 

Tutorial lain yang Menggunakan Function dan Macro

Share this

Related Posts

Previous
Next Post »