محمد الورفلي1 قام بنشر يونيو 27, 2019 مشاركة قام بنشر يونيو 27, 2019 السلام عليكم كيف جعل التكسيت لايقبل اكثر من 12 رقم 1.xls رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 27, 2019 مشاركة قام بنشر يونيو 27, 2019 وعليكم السلام اكتب فى خاصيه 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 2 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يونيو 27, 2019 الكاتب مشاركة قام بنشر يونيو 27, 2019 بالنسبة لمنع الكتابة تعمل ولكن تقيد التكسيت بعدد 12 رقم لايعمل رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر يونيو 27, 2019 أفضل إجابة مشاركة قام بنشر يونيو 27, 2019 بعد اذن الاساتذة كود على السريع 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 2 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر يونيو 27, 2019 الكاتب مشاركة قام بنشر يونيو 27, 2019 شكرا بارك الله فيك رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر يونيو 27, 2019 مشاركة قام بنشر يونيو 27, 2019 لأنك لم تقم أستاذ محمد بعمل ما أبلغتك به فالملف يعمل معى بكل كفاءة فيبدو انك اخذت الكود فقط وقمت بلصقه ولكنك لم تنظر وتنتبه الى الملف 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.