رافت الهجان قام بنشر أبريل 24, 2016 مشاركة قام بنشر أبريل 24, 2016 (معدل) السلام عليكم ورحمة الله وبركاته مواجهاني مشكلة في كيفية عمل Data Validation من خلال الفورم وإذا كان هنالك أكواد لتحديد قيمة معنية وإجبار المستخدم إدخال عدد معين من الارقام مثلا 10 ارقام فقط بحيث لا تقبل الخلية أقل أو أكثر من 10 أرقام أرجو إفادتي مما علمكم الله .. ولكم مني كل تقدير CAI-KRT 3-2016.rar تم تعديل أبريل 24, 2016 بواسطه رافت الهجان رابط هذا التعليق شارك More sharing options...
توكل قام بنشر أبريل 24, 2016 مشاركة قام بنشر أبريل 24, 2016 أضف هذا الشرط في Data Validation رابط هذا التعليق شارك More sharing options...
رافت الهجان قام بنشر أبريل 24, 2016 الكاتب مشاركة قام بنشر أبريل 24, 2016 مشكور أخي الفاضل توكل .. ولكني أريد هذه العملية من خلال الــ VBA من خلال الفورم عن طريق كود .. ولك مني خالص الود والتقدير رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 24, 2016 مشاركة قام بنشر أبريل 24, 2016 جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(4)) Is Nothing And IsNumeric(Target) _ And Target.Row > 1 Then Application.EnableEvents = False: Application.ScreenUpdating = False With Columns("d").Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=and(isnumber($d1),len($d1)=10)" End With End If Application.EnableEvents = True: Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
رافت الهجان قام بنشر أبريل 24, 2016 الكاتب مشاركة قام بنشر أبريل 24, 2016 اعتذر منك أخي سليم .. بس رجاء إذا أضفت الكود في ملف أكسل وأرفقته لي تكون فعلت فيني معروف لان الكود ما اشتغل معاي وقد أكون ما نسخته بالصورة المطلوبة .. ولك خالص التحايا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 24, 2016 مشاركة قام بنشر أبريل 24, 2016 13 ساعات مضت, رافت الهجان said: اعتذر منك أخي سليم .. بس رجاء إذا أضفت الكود في ملف أكسل وأرفقته لي تكون فعلت فيني معروف لان الكود ما اشتغل معاي وقد أكون ما نسخته بالصورة المطلوبة .. ولك خالص التحايا جرب هذا الماكرو Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(4)) Is Nothing And IsNumeric(Target) _ And Target.Row > 1 Then Application.EnableEvents = False: Application.ScreenUpdating = False With Columns("d").Validation .Delete .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=and(isnumber($d1),len($d1)=10)" End With End If Application.EnableEvents = True: Application.ScreenUpdating = True End Sub تفضل الكود مرفق مع الملف الكود لا يسمح بادخال اية قيمة في العامود D الا اذا كانت رقماً مؤلفاً من 10 خانات CAI-KRT 3-2016 macro.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أبريل 25, 2016 مشاركة قام بنشر أبريل 25, 2016 أخي الكريم رأفت الهجان أرى أنه لا داعي لاستخدام الكود ..لأنه في النهاية النتيجة واحدة تماماً .. فما الداعي أن يتم عمل ذلك في كل مرة في حدث تغير ورقة العمل؟ عذراً لا أرى الموضوع مقبول من وجهة نظري على الإطلاق ... حيث يمثل الكود في حدث تغير ورقة العمل عبء بدون داعي .. تقبل تحياتي رابط هذا التعليق شارك More sharing options...
رافت الهجان قام بنشر أبريل 25, 2016 الكاتب مشاركة قام بنشر أبريل 25, 2016 (معدل) شكراً لك أخي الكريم سليم حاصبيا على هذه الإفادة .. وجعلها الله في ميزان حسناتك جزيت خيراً أخي الكريم ياسر خليل .. فقط إحتجت لمعرفة ذلك لأن طبيعة عملي (موظف إحصاء بشركة طيران سودانية) تحتم علي عدم الخطأ في إدخال أرقام التذاكر بحيث لا تكون ناقصة أو زائدة لكي لا تتسبب مشاكل .. لذلك محتاج كود بحيث أذا كان رقم التذكرة ناقص أو زائد ما يرحل معاي للشيت. .. هذا نموذج لملف الرحل لهذا الشهر للإطلاع والتطوير .. مع خالص تحياتي الباسويرد 72328 أبريل 2016.rar تم تعديل أبريل 25, 2016 بواسطه رافت الهجان 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان