Tutorial ini
menyajikan cara untuk menjumlahkan secara terpisah angka atau harga yang
memiliki mata uang berbeda pada kolom yang sama di lembar kerja 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.
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
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.
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)
=SUMPRODUCT(IF(GetFormat(B2:B6)=GetFormat(B4);1;0);B2:B6)
Dan akhiri juga dengan menekan CTRL + SHIFT +
ENTER.
0 Komentar