Cara Membuat Aplikasi Convert Mata Uang Dengan VBA Excel

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.

Berbagi :