Rabu, 28 Desember 2016

Menyertakan simbol mata uang dalam textbox


UTutorial kali ini merupakan perbaikan dari tutorial sebelumnya yaitu TextBox Hanya Dapat Diisi Dengan Angka atau mungkin tips kali ini bisa juga dijadikan sebagai pengembangan dari tutorial tersebut.

Konsep dari tutorial ini adalah pengguna hanya dapat mengentry nilai dari 0 sampai dengan 9 plus angka yang diketik dalam textbox otomatis menampilkan sebuah simbol mata uang (Rp), dengan menggunakan kode sederhana dalam sebuah prosedur Change dan KeyPress untuk TextBox.

Untuk dapat mengaplikasikan logika diatas kita hanya perlu menambahkan kode macro sederhana, saya berasumsi dalam UserForm. Anda terdapat sebuah TextBox dengan nama TextBox1.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
End Select
End Sub

Kode diatas akan memaksa pengguna untuk mengentry angka atau karakter mulai dari 0 sampai dengan 9, dan TextBox akan berhenti bekerja bila yang diketikan adalah huru atau simbol. Jika ingin menyertakan simbol mata uang dalam TextBox secara otomatis, maka tambahkan kode berikut

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "Rp #,###")
End Sub

Artinya, setiap kali pengguna mengentry sebuah angka maka akan secara otomatis menampilkan sebuah simbol mata uang (Rupiah) didepan. demikianlah tips kali ini tetang Menyertakan simbol mata uang dalam textbox, silahkan aplikasikan tips ini dengan menggunakan microsoft excel visual basic for application (VBA), semoga dapat dipahami. Termikasih


EmoticonEmoticon