Validasi Angka atau Teks pada TeksBox

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