menyertakan mata uang di excel vba

utorial kali ini merupakan perbaikan dari tutorial sebelumnya atau mungkin bisa juga dijadikan sebagai alternatif dalam menjadikan TextBox hanya dapat diisi dengan angka saja.

Konsepnya dari tutorial ini adalah pengguna hanya dapat mengentry nilai dari 0 sampai dengan 9, dengan menggunakan kode sederhana dalam sebuah prosedur KeyPress untuk TextBox
Untuk dapat melakukannya, saya berasumsi dalam UserForm Anda terdapat sebuah TetBox 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

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 (Rp) didepannya.