Friday, September 7, 2018

√ Menampilkan Pemisah Ribuan Pada Textbox Userform Dengan Vba

Jika Anda sedang membuat aplikasi berbasis VBA Excel dalam bidang Akuntansi keuangan atau perhitungan data keuangan tentunya tidak terlepas angka rupiah atau dalam istilah lain format curency. Tentunya aaplikasi yang anda ciptakan tersebut mungkin memakai UserForm sebagai interface kepada user maka materi kali ini cocok untuk Anda baca lebih lanjut lagi.

Mmebuat textbox yang bisa mengisi format keuangan dan biasanya format keuangan tersebut dipisahkan dengan angka titik dalam ribuan atau ada juga yang memakai koma itu tergantung pada si pembuat aplikasi tersebut. Nah disinilah kerennya seorang programmer dalam membuat aplikasi harus berkreasi dan lebih kreatif untuk membuat aplikasi yang bisa dipakai oleh banyak user.

OK, eksklusif saja berikut rujukan sederhana screen shoot untuk format textbox yang hanya bisa di isi dengan angka dan balasannya akan dipisahkan oleh titik sebagai pembatas ribuan.


Saya tuliskan 25000000 pada textbox jumlah uang diatas dan saat Anda enter maka balasannya akan menjadi 25.000.000 dipisahkan oleh tanda koma atau titik pada ribuan. Bagaimana hal tersebut terjadi Anda bisa mencobanya dengan memakai coding VBA.

Baca dulu :
Cara Belajar Membuat Textbox Melalui UserForm

Bagaimana Cara Menampilkan Pemisah Ribuan Pada Textbox UserForm dengan VBA?

Langkah pertama Anda membuat coding atau perintah untuk membatasi entri hanya bisa dimasukan data angka dan kalau selain angka maka akan menampilkan pesan peringatan. Kenapa hal ini perlu dilakukan? Jelas sekali alasannya ialah perintah coding akan membaca apa yang telah dituliskan coba kalau tidak maka balasannya akan error.

Berikut coding untuk membatasi entri data hanya angka

Private Sub EntriHanyaAngkaSaja()
    
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Maaf, Hanya angka yang bisa dientri"
                .Value = vbNullString
            End If
        End With
    End If
    
End Sub

Perintah diatas akan menghasilkan apabila textbox diisikan data selain angka maka akan muncul pesan error "Maaf, hanya angka yang bisa dientri"

Langkah berikutnya kita panggil coding EntriHanyaAngkaSaja tersebut kedalam prosedure textbox change. Kenapa saya pilih procedure tersebut alasannya ialah coding akan dilakukan saat ada perubahan dalam textbox tersebut.

Berikut codingnya :

Private Sub TextBox1_Change()
    EntriHanyaAngkaSaja
End Sub


Langkah berikutnya silakan tambahkan pula coding untuk textbox exit sebagai berikut
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
    TextBox1 = Format(CDbl(Me.TextBox1.Value), "#,##0")
End Sub


Selesai deh, silakan coba run kegiatan yang sudah dibentuk diatas dan lihat hasilnya, Ada perbedaankah dengan tutorial ini? Silakan komentar dibawah

Simak Juga
Cara Membuat Textbox AutoComplete






Sumber http://www.excel-id.com/