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 SelectEnd Sub
>semoga bermanfaat --- In [email protected], "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 > > > > >
