Function Format Currency Pada Textbox Userform Dengan VBA #Rumus Ajaib

Format Currency merupakan format yang biasa digunakan untuk keuangan atau nominal angka dalam bilangan. Misalnya kita menuliskan angka 6500 maka jika kita menggunakan format curency hasilnya adalah 6.500 dalam hal ini untuk satuan setiap ribuan dibatasi dengan karakter koma.

Menggunakan Format Currency dalam textbox yang ditampilkan melalui UserForm biasanya digunakan untuk membuat aplikasi kasir berbasis Excel VBA. Karena dalam hal ini kita sebagai manusia biasanya agak kesulitan dalam mengidentifikasi angka ribuan dan ratusan maka dengan menggunakan format ini setiap ribuan akan dipisahkan dengan angka "titik" atau "koma" sesuai dengan regional setting komputer Anda.

Pertama kita harus membuat prosedur baru misalnya seperti contoh 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 membuat prosedur baru kita akan panggil prosedur FormatAngka tersebut dengan fungsi Call. Dalam hal ini terserah apakah Anda akan mengambil prosedur ketika textbox berubah (textbox_change) atau prosedur Ufter_Update, Before_Update atau bahkan prosedur Click pada CommandButton.
Pada contoh saya kali ini akan membuat prosedur ketika perubahan pada textbox. Perhatikan contoh penerapan dalam UserForm berikut ini

Perhatikan yang ditunjukan dengan anak panah warna merah pada gambar diatas itu merupakan prosedur ketika pada textbox harga diketikan angka ribuan maka ketika 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 jika Anda mengetikan angka 1000000? hal ini sama hasilnya ketika Anda menuliskan angka tersebut pada kolom harga maka hasilnya adalah 1.000.000

Hal ini sangat penting bagi para programmer VBA Excel dengan tujuan untuk memudahkan user dalam menggunakan aplikasi yang dibuat.

Demikian Format Cureency Pada Textbox Userform dengan VBA, semoga bermanfaat.

Function Format Currency Pada Textbox Userform Dengan VBA #Rumus Ajaib

0 Response to "Function Format Currency Pada Textbox Userform Dengan VBA #Rumus Ajaib"

Post a Comment