Ketika melakukan input data, seringkali terjadi kesalahan. seperti memasukkan data yang berupa angka pada tempat yang seharusnya diisi dengan teks atau huruf. VBA Excel menyediakan fasilitas untuk melakukan validasi terhadap data yang dimasukkan melalui textBox. Berikut kodenya:
1. Hanya menerima data berupa text:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bNumbers As Boolean
OnlyText
Cancel = bNumbers
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = vbNullString Then Exit Sub
If IsNumeric(TextBox1) Then
MsgBox "Maaf, hanya data berupa teks yang diijinkan"
TextBox1 = vbNullString
Cancel = True 'Stops them leaving with numbers in the TextBox
End If
End Sub
2. Hanya menerima data berupa Angka
Private Sub TextBox1_Change()
If TextBox1 = vbNullString Then Exit Sub
If Not IsNumeric(TextBox1) Then
MsgBox "Maaf, hanya data berupa angka yang diijinkan"
TextBox1 = vbNullString
End If
End Sub
Seperti kode-kode yang lain yang digunakan pada UserForm, kode di atas dituliskan pada private module.
semoga manfaat.
lihat sumber asli di sini
