Cara menggunakan Currency Converter di Microsoft Excel

Currency converter merupakan fitur yang sering diggunakan dalam Excel VBA yang bersangkutan dengan pengubahan dari mata uang yang satu ke mata uang yang lain. Microsoft excel VBA yang menyediakan fitur tersebut, tetapi masih begitu jarang yang mampu untuk menggunakan nya. Berikut akan kami berikan tips dalam penggunaannya. Untuk mendapatkan excelmacro ini, bukalah Visual Basic Editor. Jika Project explorer masih belum kelihatan, maka Anda bisa membuka nya dengan pillihan view, project explorer. Pilihlah pilihan click, lalu tekan Useform.  Jika toolbox tidak muncul secara otomatis. Silahkan pilih view, toolbox. Seharusnya layar Anda akan kelihatan seperti gambar di bawah ini.

Tekan pilihan add the labels, list boxes ( pertama tambahkan pada bagian kiri, dan kedua pada bagian kanan ), text boxes juga ditambahkan seperti fungsi list boxes dan juga tambahkan command button. Setelah semua nya selesai. Seharusnya hasilnya akan kelihatan seperti UserForm yang kelihatan pada gambar sebelumnya.

Tentunya kamu juga bisa mengubah namanya.

Untuk menampilkan useform, buatlah sebuah command button pada worksheet kamu dengan menambahkan kode seperti dibawah ini.

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

sekarang kita sudah bisa membuat sub userform_initialize.

Bukalah Visual Basic Editor.

Dalam project explorer, klik kanan pada userform1 dan kemudian klik View Code

Pilihlah userform dari kiri ke bawah list. Dan begitu juga untuk yang bagian kanan

Tambahkan code dibawah ini untuk proses pembuatan currency converter.

Private Sub UserForm_Initialize()

With ListBox1
.AddItem “Euro”
.AddItem “Us Dollar”
.AddItem “British Pound”
End With
With ListBox2
.AddItem “Euro”
.AddItem “Us Dollar”
.AddItem “British Pound”
End With
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Value = 1
TextBox2.Value = 0.722152
End Sub

Penjelasan tambahan : pertama, kedua kotak akan diisi, dolar amerika akan menjadi default dan EURO akan menjadi default kedua.

Setelah itu pilihlah project explorer dan klik dua kali pada userform1

Ketik dua kali pada tombol GO

Dan tambahkan rumus berikut :

Private Sub CommandButton1_Click()

Dim rates(0 To 2, 0 To 2) As Double, i As Integer, j As Integer
rates(0, 0) = 1
rates(0, 1) = 1.38475
rates(0, 2) = 0.87452
rates(1, 0) = 0.722152
rates(1, 1) = 1
rates(1, 2) = 0.63161
rates(2, 0) = 1.143484
rates(2, 1) = 1.583255
rates(2, 2) = 1
For i = 0 To 2
For j = 0 To 2

If ListBox1.ListIndex = i And ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * rates(i, j)

Next j
Next i
End Sub

Silahkan mencoba

Penjelasan singkat mengenai cara pembuatan. Tentunya penjelasan ini sudah menjadi agak simpel untuk mudah dimengerti sehingga kita bisa lebih berkembang lagi dalam penggunaannya. Terdapat banyak jalan ke Roma tentu saja masih ada banyak pilihan yang bisa Anda gunakan untuk membuat nya sendiri. Percobaan dan latihan akan membuat Anda lebih terlatih. Semoga artikel diatas bisa membantu Anda dalam proses pemasangan currency converter dalam menggunakan rumus excel yang sangat berguna membantu pekerjaan kita

Penutup

Terima kasih atas kunjungan anda di LingkaranDunia, serta membaca artikel yang mengenai Cara menggunakan Currency Converter di Microsoft Excel, dan semoga artikel ini bermanfaat buat anda. Jika ada yang kurang di mengerti silahkan ajukan pertanyaan lewat Email, Facabook LingkaranDunia dan lewat kolom komentar yang kami sediakan di bawah artikel ini.

Daftar Pustaka

• http://amirakostader.blogspot.co.id/
• http://rumuslengkap.com/excel-macro/cara-menggunakan-currency-converter/
• http://blogpanduanmicrosoft.blogspot.co.id/