Cara menggunakan Currency Converter

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 excel macro 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.

Currency Converter

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

Add a Comment

Your email address will not be published. Required fields are marked *

* Copy This Password *

* Type Or Paste Password Here *