Friday, January 1, 2016

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
  • 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..!!

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon