كود لمنع كتابة الحروف في تكست بوكس

[osmana2005]

السلام عليكم

ممكن كود لمنع كتابة الحروف اواي شي ما عدا الارقام فقط في تكست بوكس ضروري وجزاكم الله خيرا

[عادل حنفي]

السلام عليكم

اخي الفاضل وجدت لك هذا الكود لعله يفيدك ان شاء الله

Private Sub TextBox1_Change()
    Dim CurrentPos As Long
    Dim CurrentChar As String

    CurrentPos = 1
    While CurrentPos <= Len(TextBox1.Text)
        CurrentChar = Mid(TextBox1.Text, CurrentPos, 1)

        If Not (Asc(CurrentChar) >= 48 And Asc(CurrentChar) <= 57) Then
            TextBox1.Text = Replace(TextBox1.Text, CurrentChar, "")
        End If

        CurrentPos = CurrentPos + 1
    Wend

    TextBox1.SelStart = Len(TextBox1.Text)
End Sub

مرفق مثال علي الاكسل

تحياتي

___________________.rar

[ابو اسامة العينبوسي]

السلام عليكم

اخى عادل ممكن اختصار الكود بالاتى

Private Sub TextBox1_Change()
    If Not IsNumeric(Me.TextBox1) Then Me.TextBox1 = ""
End Sub

لكن في حال تم كتابه ارقام ثم احرف يمسح كل محتويات التكست بوكس

تم تعديل مارس 18, 2009 بواسطه ابو اسامة العينبوسي

[omar1]

السلام عليكم

اضافة الي حل الاخ / عادل و الاخ / ابو اسامة

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (KeyAscii > 47 And KeyAscii < 58) Then
    KeyAscii = KeyAscii
Else
    KeyAscii = 0
End If

End Sub

[عادل حنفي]

السلام عليكم

اخي الحبيب

ابو اسامه بارك الله فيك وزادك من علمه

الكود بالفعل جميل ومختصر

اخي الحبيب

omar1 بارك الله فيك اخي

خالص تحياتي و تقديري