أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على ali mohamed ali-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة منع ادخال البيانات بعدة شروط اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام

السلام عليكم طلب مساعدة اريد طريقه لجعل الخانه في عمود A لا يكتب فيها سوى 4 ارقام حتى لو قمت بكتابه اكثر من اربعة لمشاه ..


موضوع مغلق


08-12-2020 04:26 مساء
ابااسماعيل
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-10-2018
رقم العضوية : 8533
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 19-11-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
 offline 

السلام عليكم
طلب مساعدة اريد طريقه لجعل الخانه في عمود A لا يكتب فيها سوى 4 ارقام حتى لو قمت بكتابه اكثر من اربعة

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

تم تعديل العنوان ليتناسب مع الحل الموضوع مدموج من مواضيع متعدّدة
 
 
  test.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(18.559) KB



أفضل إجابة مقدمة من ali mohamed ali وهي:
وعليكم السلام يمكنك هذا بوضع هذا الكود بحدث الورقة التى يتم الإدخال بها , وهناك طريقة أخرى بالملف من خلال قائمة التحقق من البيانات Data Validation وهى عن طريق تقييد الإدخال بالخلية بأن لا تدخل بالخلية أقل أو أكثر من أربعة أرقام أو حروف

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xVal As String
    On Error Resume Next
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For I = 1 To Target.Count
        If Len(Target(I).Text) >= 4 Then
            Target(I).Value = Left(Target(I).Value, 4)
        End If
    Next
    Application.EnableEvents = True
End Sub

3IuJs_1
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
عرض الإجابة




08-12-2020 06:02 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1766
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
وعليكم السلام يمكنك هذا بوضع هذا الكود بحدث الورقة التى يتم الإدخال بها , وهناك طريقة أخرى بالملف من خلال قائمة التحقق من البيانات Data Validation وهى عن طريق تقييد الإدخال بالخلية بأن لا تدخل بالخلية أقل أو أكثر من أربعة أرقام أو حروف

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xVal As String
    On Error Resume Next
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For I = 1 To Target.Count
        If Len(Target(I).Text) >= 4 Then
            Target(I).Value = Left(Target(I).Value, 4)
        End If
    Next
    Application.EnableEvents = True
End Sub

3IuJs_1
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  test.xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(19.687) KB

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

08-12-2020 07:24 مساء
مشاهدة مشاركة منفردة [2]
ابااسماعيل
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-10-2018
رقم العضوية : 8533
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 19-11-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
رائع


شكرا لك اخي

جزاك الله خيرا

09-12-2020 12:10 مساء
مشاهدة مشاركة منفردة [3]
ابااسماعيل
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-10-2018
رقم العضوية : 8533
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 19-11-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
السلام عليكم
في هذ الملف يوجد فيه كود الاستاذ الفاضل علي محمد  لجعل الخانه  لا يكتب فيها سوى 4 ارقام حتى لو قمت بكتابه اكثر من اربعة

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

 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

حذف الارقام الاولى في الصوره المضلله باللون الاحمر

0yYnc_11

09-12-2020 12:47 مساء
مشاهدة مشاركة منفردة [4]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
محتاج حذف ولا عدم اظهار ( اخفائها )

09-12-2020 12:52 مساء
مشاهدة مشاركة منفردة [5]
ابراهيم الحداد
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 163
المشاركات : 236
الجنس : ذكر
الدعوات : 4
يتابعهم : 0
يتابعونه : 33
قوة السمعة : 2329
عدد الإجابات: 30
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
السلام عليكم ورحمة الله
فى الكود المدرج فى حدث Sheet2
استبدل كلمة  "Left" بكلمة  "Right"
و ينتهى الامر باذن الله 

09-12-2020 01:40 مساء
مشاهدة مشاركة منفردة [6]
ابااسماعيل
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 29-10-2018
رقم العضوية : 8533
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 19-11-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 43
 offline 
look/images/icons/i1.gif مدموج :اريد طريقه لجعل الخانه لا يكتب فيها سوى اربعة ارقام
جزاكم الله خيرا على اهتمامكم بالموضوع الرائع



الكلمات الدلالية
اريد ، طريقه ، لجعل ، الخانه ، يظهر ، فيها ، اربعة ، ارقام ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:33 صباحا