Validasi Data Texbox

      Validasi Data Texbox

Validasi Data pada Texbox memungkin pengguna aplikasi memenuhi persyaratan dalam melakukan input pada sebuah texbox
Misalkan seorang penggunakan harus mengimput nominal atau bukan text demikian pula harus jumlah yang diimput harus memenuhi sayar yang sdh ditentukan misalnya nominal minimal 1 juta dan sebagainya
Caranya cukup mudah
Buat sebuah form input dengan 2 buah texbox dan satu tombol input

Pada tombol input pastekan kode

Private Sub CommandButton1_Click()
Dim irow As Long
irow = Worksheets("data").Cells(Rows.Count, 2).End(xlUp).Offset(1, 1).Row
Worksheets("data").Cells(irow, 2).Value = TextBox1.Value
Worksheets("data").Cells(irow, 3).Value = TextBox2.Value
End Sub


Pada Userform pastekan kode berikut :

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Validasi angka TextBox
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Else
KeyAscii = 0
MsgBox "Maaf, hanya data berupa angka yang diijinkan", 16, "Validasi"
End Select
End Sub

Pada Texbox2 pastekan code berikut:

Private Sub TextBox2_Change()
If TextBox2 = vbNullString Then Exit Sub
If TextBox2 > 1000000 Then
MsgBox " Maaf ! Jumlah Transfer Anda lebih dari 1 juta" & vbCrLf & " Silahkan logi terlebih dahulu!", vbYesNo + vbCritical, "Caution"
TextBox2 = vbNullString
Cancel = True
End If
End Sub

Sekian silahkan di coba
Semoga bermanfaat
Tiada suatu yang susah bila tekun dipelajari
Salam

File sampel pada link berikut



 Texbox Validasi