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