Aplikasi Converter Mata Uang memang banyak bertebaran di internet, baik yang berbayar mau pun yang gratis.
Bahkan banyak pula website yang secara realtime dapat memantau Kurs mata uang dan menyediakan fasilitas untuk mengconvert mata uang secara realtime dan online.
![]() |
Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel |
Namun demikian, untuk mengasah pengetahuan kita tentang VBA Excel, kita dapat juga membuat Aplikasi Converter Mata Uang.
Pada posting ini saya akan membedah cara bikin aplikasi senderhana yang berfungsi sebagai converter mata uang. Ikut saja langkah-langkahnya.
Ikuti selangkah demi selangkah Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel. Rancang Userform dan element lainnya serta tempatkan kode pada tempat seharusnya diletakkan.
Langkah-langkah Membuat Aplikasi Converter Mata Uang Dengan VBA Excel :
- Download file yang sudah siap dirancang di link download dibawah posting. Biar hemat waktu dari pada menjelaskan dari cara merancang. Buka file yang sudah di download, klik Developer selajutnya pilih visual basic.
- Pilih UserForm1, Klik kanan UserForm1 pilih View Code dan masukkan kode dibawah ini di General - Declarations
Option Explicit
Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
LParam As Any) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Const WM_SETICON = &H80
Private Const ICON_SMALL = 0&
Private Const ICON_BIG = 1&
Dim hWnd As Long
- klik kanan pada UserForm1 masukkan kode berikut pada UserForm_Initialize
Private Sub UserForm_Initialize()
'_____Kode ini untuk memanggil Gambar Icon Aplikasi_________
Image1.Visible = False
hWnd = FindWindow(vbNullString, UserForm1.Caption)
Call SendMessage(hWnd, WM_SETICON, ICON_SMALL, ByVal Image1.Picture.Handle)
Call SendMessage(hWnd, WM_SETICON, ICON_BIG, ByVal Image1.Picture.Handle)
'______________________________________________________________________
'________Kode ini untuk memanggil Item Listbox1 dan listbox2
With ListBox1
.AddItem "Rupiah"
.AddItem "Us Dollar"
.AddItem "British Pound"
End With
With ListBox2
.AddItem "Rupiah"
.AddItem "Us Dollar"
.AddItem "British Pound"
End With
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Value = 1
TextBox2.Value = 0.722152
'______________________________________________________________________
End Sub
- Klik kanan pada CommandButton1 pilih View Code dan masukkan kode berikut ini di Private Sub CommandButton1_Click()
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.0001
rates(1, 0) = 13356.29
rates(1, 1) = 1
rates(1, 2) = 0.79
rates(2, 0) = 16802.06
rates(2, 1) = 1.26
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
- Selesai..!! Uji Aplikasinya yang udah di pasang kode tersebut. Bila penempatan kode sudah mengikuti dengan benar, maka aplikasi akan berjalan seperti yang terlihat pada gambar gif diatas.
Download : Aplikasi Converter $$$
Demikian posting Bikin Aplikasi Convert Mata Uang Dengan VBA Excel, Semoga dapat dikembangkan menurut kemauan dan keperluan masing-masing.
Bila ingin kode lainnya silahkan share di kolom komentar. Bagi yang download dan mencoba jangan lupa kasih tau juga dikolom kementar sukses atau ngak..!!
Semoga artikel ini dengan judul Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel dapat menjadi referensi bagi kita untuk belajar vba excel.
Jika artikel ini dengan judul Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel membantu untuk belajar vba excel mohon dapat dishare ke teman-teman lain melalui media sosial.
Bila ingin kode lainnya silahkan share di kolom komentar. Bagi yang download dan mencoba jangan lupa kasih tau juga dikolom kementar sukses atau ngak..!!
Semoga artikel ini dengan judul Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel dapat menjadi referensi bagi kita untuk belajar vba excel.
Jika artikel ini dengan judul Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel membantu untuk belajar vba excel mohon dapat dishare ke teman-teman lain melalui media sosial.