Validasi Angka di TextBox VBA Excel

Perhatikan gambar format gif di bawah..!!! Textbox hanya bisa di input angka saja, dan menolak untuk karakter lain. Validasi Angka dalam texbox dibutuhkan untuk menghidari salah pengetikan data. simak baik-baik langkah-langkah untuk membuat texbox hanya menerima input angka saja.

Langkah-langkah Validasi Angka di texbox VBA Excel 

• Download sample file Validasi Angka pada kotak dibawah ini

MediaFire

*Jika link mati / tidak dapat diakses silahkan lapor via kontak yang tersedia

LINK DOWNLOAD TERKUNCI.
Silahkan SHARE untuk membuka kunci!

FacebookTwitterWhatsapp

• Buka Visual Basic dan masukkan kode berikut ini 
• Kode Validasi pada TextBox1

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Validasi angka TextBox
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

• Kode Validasi untuk TextBox2

Private Sub TextBox2_Change()
'Validasi Mata Uang Rupiah
TextBox2.Value = Format(TextBox2.Value, "Rp #,##0")
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Validasi angka TextBox Dengan Pesan
Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
        KeyAscii = 0
End Select
End Sub

• Kode Validasi Untuk TextBox3

Private Sub TextBox3_Change()
    If TextBox3 = vbNullString Then Exit Sub
        If Not IsNumeric(TextBox3) Then
             MsgBox "Maaf, hanya data berupa angka yang diijinkan", 16, "Validasi"
             TextBox3 = vbNullString
        End If
End Sub

• Selesai..!!! Mudah bukan..!!

Berbagi :