ini dia, dengan nilai ascii, silakan dicoba dulu:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'anton suryadi 29/Apr/2011
Select Case KeyAscii
Case 48 To 57
Exit Sub
Case Else
KeyAscii = 0
Exit Sub
End Select
End Sub
>semoga bermanfaat
--- In XL-mania@yahoogroups.com, "STDEV(i)" <setiyowati.devi@...> wrote:
>
> gampang....
> *setiap ada perubahan *di textbox maka *karakter terkanan* di cek
> apakah sama dengan salah satu dari karakter "0/1/2/3/4/5/6/7/8/9"
>
> *jika sama* >> DIAMKAN SAJA (tetap masuk ke textbox)
>
> *jika tidak sama* >>> ptong kembali karakter terkanan ituhhhh!!, aliyas
> jangan biarkan masuk)
>
> jadi dengan aturan yang tegas bin sadistis spt itu karakter lain selain 0 sd
> 9
> akan ngacir ketakutan.. tak berani masuk ke textbox..!)
>
>
> Private Sub TextBox1_Change()
> ' siti Vi / 28 Apr 2011
> Dim teks As String
> Application.EnableEvents = False
> teks = TextBox1.Text
> If Len(teks) > 0 Then
> If InStr(1, "0123456789", Right(teks, 1), 3) = 0 Then
> teks = Left(teks, (Len(teks) - 1))
> End If
> End If
> If Val(teks) > 0 Then TextBox1.Text = Val(teks) Else TextBox1.Text = ""
> Application.EnableEvents = True
> End Sub
>
> coding spt ini tentu bukan satu satunya trick, banyak yang lain misalnya
> deteksinya dengan
> nilai ascii dsb....
>
> ~siti~
>
>
>
> 2011/4/29 tigan_black lets_3n@...
>
> > Salam para XL-mania
> > 1. bagaimana cara membatasi input pada textbox bisa kita batasi hingga
> > hanya menerima masukan berupa integer.
> > 2. pada vba bagaimana cara kita untuk mendapat hasil boolean dari check
> > apakah sebuah variable integer atau bukan.
> > Thanks sebelumnya
> >
> >
>
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| wooHoooOoooo!!! "mengapa boss benci chart anda" mau dicetak lagi! |
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci |
| chart anda cuma segituhh? pokoknya yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
| wooHoooOoooo!!! "mengapa boss benci chart anda" mau dicetak lagi! |
| insanbiasa : "member 17,000++ yang beli buku mengapa boss benci |
| chart anda cuma segituhh? pokoknya yang nggak beli: BANNED :D :D |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário