كيف جعل التكسيت لايقبل اكثر من 12 رقم

[محمد الورفلي1]

السلام عليكم

 

كيف جعل التكسيت لايقبل اكثر من 12 رقم

1.xls

[Ali Mohamed Ali]

وعليكم السلام

اكتب فى خاصيه Maxlenght  رقم 12 

مع وجود هذا الكود داخل التكست بوكس حتى لا يقبل سوى ارقام

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii > Asc("9") Or KeyAscii < Asc("0") Then
        If KeyAscii = Asc("-") Then
            If InStr(1, Me.TextBox1.Text, "-") > 0 Or _
               Me.TextBox1.SelStart > 0 Then KeyAscii = 0
        ElseIf KeyAscii = Asc(".") Then
            If InStr(1, Me.TextBox1.Text, ".") > 0 Then KeyAscii = 0
        Else
            KeyAscii = 0
        End If
    End If
End Sub

أو فقط هذا الكود لو حابب تكتب أرقام وحروف مثلا

Private Sub TextBox1_Change()
MaxLength = 12
End Sub

1.xls

[محمد الورفلي1]

بالنسبة لمنع الكتابة تعمل ولكن تقيد التكسيت بعدد 12 رقم لايعمل

[سليم حاصبيا]

بعد اذن الاساتذة

كود على السريع

Private Sub TextBox1_Change()
Application.EnableEvents = False
    If TextBox1.TextLength > 12 Then
        MsgBox "Too long Expression"
        TextBox1 = vbNullString
    End If
Application.EnableEvents = True
End Sub

 

[محمد الورفلي1]

شكرا

بارك الله فيك

[Ali Mohamed Ali]

لأنك لم تقم أستاذ محمد بعمل ما أبلغتك به فالملف يعمل معى بكل كفاءة 

فيبدو  انك اخذت الكود فقط وقمت بلصقه ولكنك لم تنظر وتنتبه  الى الملف