Coba tambahkan procedure sbb:
Private Sub IDUser_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = AngkaSaja(KeyAscii)
End Sub
Private Sub TextNama_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = HurufSaja(KeyAscii)
End Sub
Private Function AngkaSaja(an_ascii As MSForms.ReturnInteger) As Integer
Const strAngka = "0123456789"
If InStr(strAngka, Chr(an_ascii)) = 0 Then
AngkaSaja = 0
Else
AngkaSaja = an_ascii
End If
End Function
Private Function HurufSaja(an_ascii As MSForms.ReturnInteger) As Integer
Select Case an_ascii
Case 65 To 90: HurufSaja = an_ascii 'huruf besar
Case 97 To 122: HurufSaja = an_ascii 'huruf kecil
Case 32: HurufSaja = an_ascii 'space
Case Else
HurufSaja = 0
End Select
End Function
_____
From: yayat ruhimat [mailto:[email protected]]
Sent: Monday, March 02, 2009 5:19 PM
To: [email protected]
Subject: ]] XL-mania [[ Form entri texbox hanya bisa huruf saja
Dear XLMaia
Saat ini sedang belajar membuat Form Entri, dan sudah coba browse tentang
entri data melalui textbox hanya huruf saja, tapi sampai saat ini belum
bisa.
Untuk jelasnya, saya attach contoh kasus untuk mendapat koreksi/perbaikan
syntac macro dari teman-teman XLMania
Atas bantuan teman-teman diucapkan terima kasih.
Yayat
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3901 (20090302) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3901 (20090302) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3901 (20090302) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
Private Sub IDUser_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = AngkaSaja(KeyAscii)
End Sub
Private Sub TextNama_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = HurufSaja(KeyAscii)
End Sub
Private Function AngkaSaja(an_ascii As MSForms.ReturnInteger) As Integer
Const strAngka = "0123456789"
If InStr(strAngka, Chr(an_ascii)) = 0 Then
AngkaSaja = 0
Else
AngkaSaja = an_ascii
End If
End Function
Private Function HurufSaja(an_ascii As MSForms.ReturnInteger) As Integer
Select Case an_ascii
Case 65 To 90: HurufSaja = an_ascii 'huruf besar
Case 97 To 122: HurufSaja = an_ascii 'huruf kecil
Case 32: HurufSaja = an_ascii 'space
Case Else
HurufSaja = 0
End Select
End Function
