Format Currency merupakan format yang biasa dipakai untuk keuangan atau nominal angka dalam bilangan. Misalnya kita menuliskan angka 6500 maka jikalau kita memakai format curency alhasil ialah 6.500 dalam hal ini untuk satuan setiap ribuan dibatasi dengan huruf koma.
Menggunakan Format Currency dalam textbox yang ditampilkan melalui UserForm biasanya dipakai untuk menciptakan aplikasi kasir berbasis Excel VBA. Karena dalam hal ini kita sebagai insan biasanya agak kesulitan dalam mengidentifikasi angka ribuan dan ratusan maka dengan memakai format ini setiap ribuan akan dipisahkan dengan angka "titik" atau "koma" sesuai dengan regional setting komputer Anda.
Pertama kita harus menciptakan mekanisme gres contohnya menyerupai referensi dibawah ini yang disertai dengan coding VBA nya.
Sub FormatAngka()
If IsNumeric(TextBox3) Then
TextBox3 = Format(TextBox3, "#,##0")
Else
TextBox3 = FormatKeuangan
End If
End Sub Setelah kita menciptakan mekanisme gres kita akan panggil mekanisme FormatAngka tersebut dengan fungsi Call. Dalam hal ini terserah apakah Anda akan mengambil mekanisme saat textbox berubah (textbox_change) atau mekanisme Ufter_Update, Before_Update atau bahkan mekanisme Click pada CommandButton.Pada referensi aku kali ini akan menciptakan mekanisme saat perubahan pada textbox. Perhatikan referensi penerapan dalam UserForm berikut ini
Perhatikan yang ditunjukan dengan anak panah warna merah pada gambar diatas itu merupakan mekanisme saat pada textbox harga diketikan angka ribuan maka saat Anda menuliskan angka 2500 maka secara otomatis tertulis 2.500. Tambahkan coding untuk memanggil perintah FormatAngka tersebut
Private Sub TextBox3_Change()
Call FormatAngka
End Sub Lalu bagaimana jikalau Anda mengetikan angka 1000000? hal ini sama alhasil saat Anda menuliskan angka tersebut pada kolom harga maka alhasil ialah 1.000.000Hal ini sangat penting bagi para programmer VBA Excel dengan tujuan untuk memudahkan user dalam memakai aplikasi yang dibuat.
Demikian Format Cureency Pada Textbox Userform dengan VBA, biar bermanfaat. Sumber http://www.excel-id.com/