Textbox Masking

Sebuah script VBA yang digunakan untuk input Mask pada Textbox yang berfungsi untuk memudahkan proses input pengguna.

Masking membantu proses input pengguna sehingga saat proses input sudah terlihat bantuan dari format yang dikehendaki

Script pada Standar Module

Function SetMask(ByRef ctr As Control, ByVal Mask As String, _
                 Optional Kar As String = "_") As String
'-----------------------------------------
' Sctipt VBA    : Textbox Masking
' Author        : https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------

TextAsli = ctr.Text
pos = InStr(1, TextAsli, Kar)
If pos = 0 Then pos = Len(Mask) + 1

TextBaru = Left(TextAsli, pos - 1)
SetMask = TextBaru & Right(Mask, Len(Mask) - Len(TextBaru))
ctr.SelStart = Len(TextBaru)
End Function

Untuk penggunaan Function diatas, simpan pada Textbox Change dan juga set masking yang diperlukan

Script pada Textbox Change

Private Sub TextBox1_Change()
TextBox1.Text = SetMask(TextBox1, "__.__.____")
End Sub

Script pada Textbox Keydown

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Then TextBox1.Text = Mask
End Sub
Tagged with:
Userform Controls

Leave a Reply

Your email address will not be published. Required fields are marked *