عبدالله المجرب

ضع مرفق وستجد الحل ان شاء الله

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

احسنت اخي ابو تميم

السلام عليكم هذه اكواد دوال معرفة لاستخراج الصنف والكود Function MyCode(MyCel As Range) As String Dim R As Integer Do Until IsNumeric(Mid(MyCel, R + 1, 1)) = 0 R = R + 1 Loop MyCode = Mid(MyCel, 1, R) End Function Function MyItem(MyCel As Range) As String Dim R As Integer Do Until IsNumeric(Mid(MyCel, R + 1, 1)) = 0 R = R + 1 Loop MyItem = Mid(MyCel, R + 1, Len(MyCel)) End Function قم بنسخ الكود ولصقه في محرر الاكواد بعدها من ادراج دالة اختر معرفة من قبل المستخدم ستجد هتان الدالاتان MyItem و MyCode للصنف اختر MyItem اختر خلية الاسم لتكون هي بارو متر الدالة === للكود اختر MyCode اختر خلية الاسم لتكون هي بارو متر الدالة =========================== طريقة أخرى انسخ الكود اعلاه الى محرر الاكواد ثم لنفترض ان الاسم المشترك موجود في الخلية A1 انسخ هذه المعادلة وضعها في خلية استخراج الصنف =MyItem(A1) وهذه في خلية استخراج الكود =MyCode(A1)

اليس للمفروض نقل هذا الموضوع الى قسم الوورد

اخي ابو خليل عندما قلت جربت على برنامج عندي وظهر لي الرسالة التي في مشاركتي السابقة ارجو الافادة بهذا الخصوص

شاهد المرفق حاول كتابة رقم اعلى من 25 في الخلية A1 واكبر من 30 في الخلية A2 واكبر من 20 في الخلية A3 , Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [A1]) Is Nothing Then If Target > 25 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub End If If Not Intersect(Target, [A2]) Is Nothing Then If Target > 30 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub End If If Not Intersect(Target, [A3]) Is Nothing Then If Target > 20 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub End If End Sub القيمة العليا.rar

هل من توضيح لهذه المعلومة مع العلم اني اتعامل مع برنامج لطلبات الموظفين فية عمود ID وهو رقم تسلسلي فريد مستعمل كمفتاح اساسي في حقل الرقم الوظيفي غيرته الى نص (كي اقوم بادخال حرف مع الرقم الوظيفي) كتجربة لتجاوز التكرار ولكن عند طباعة التقرير الخاص بالطلب تظهر هذه الرسالة

لو تسمح استاذ ابو خليا اريد نوضيح لمثل هذه الارقام المميزة وهل رقم الهوية (8 اعداد) يمكن التغاضي عنه واستبدال التعامل في كافة العمليات بالرقم الوظيفي مع استعمال رقم الهوية كمفتاح اساسي لان الاغلب لا يحفظ عن ظهر قلب ارقم هويتهم وهو بصراحة غير مكرر وماهي الطريقة لجعل حقل معين حقل اجباري

هل في هذه الحالة لن تواجهني مشاكل مستقبلية

بصراحة في الوقت الراهن لا استطيع عمل هذه التعديلات فارجو المعذرة

تم التجربة ونجحت طريقة الاستاذ تومي محمد هل لهذه الارقام استخدامات اخرى

السلام عليكم اخواني الكرام اتمنى من خبراء الاكسس الكرام واساتذته ابداء الراي في هذا الموضوع في مجال عملي يتم العمل بنظام الرقم الوظيفي والدرجات الوظيفية لكن للاسف فنظام الارقام الوظيفية يعتريها التكرار في بعض الحالات مثال لدينا الموظف أحمد محمد ورقمه الوظيفي 100 ودرجته هي الدرجة الأولى/أ وقد يحدث ان يتم ارسال موظف جديد لفرعنا يحمل نفس الرقم ولكن الدرجة تختلف طلبي في الجدول الاساس ما السبيل للتعامل مع مثل هذا الوضع وخاصة انه سيتم بناء القاعدة لتكون كملف الكتروني عن الموظف بما فيها ترقياته ودوراته وطلباته واجازاته اي سيتم التعامل مع الجداول والتقارير والنماذج والاستعلامات ============= ارجو منكم ابداء اراكم بهذا الخصوص وشكراً

بصراحة الشروط الخاصة بالتلوين غامضة بعض الشيئ

جرب هذا الرابط http://www.officena.net/ib/index.php?showtopic=43153&#entry249100

السلام عليكم ورحمة الله وبركاته ما اروع ابداعاتك ابا خليل لا املك الا ان ادعو لك بظهر الغيب بارك الله لك في عمرك ورزقك شكراً لك

هو ذا فقد قمت بإنشاء جدول و نموذج فرعي لهذا الجدول تم ربطه بالنموذج الرئيسي بواسطة الرقم الوظيفي . هل ممكن ان يتم الاحتفاظ بجميع مراحل ترقية الموظف وكذلك استخدام استعلام التحديث لتحديث من حصل على ترقية جديدة اي انه سيتم تحديث درجته القديمة بالدرجة الجديدة في الجدول الاساسي كما يتم ادراج هذه الترقية ضمن جدول (نموذج فرعي) الترقيات الخاصة بالموظف اسف على استعمال كلمة كشف فانا اقصد بها جدول

بارك الله فيك استاذ ابو خليل تم التجربة وهو المطلوب مجرد استفسار هل وجود خيار (نعم / لا ) بالاضافة الى حقل تاريخ الترقية ضمن الكشف الرئيسي افضل ام ان يتم افراده في كشف بمفردها

اعتقد انه اذا وجدت اكواد في الملف وكان الماكرو غير مفعل تظهر رسالة تفيد بذلك والله اعلم

ما شاء الله عمل مميز وردودد رائعة بارك الله فيك ابا ناصر على هذه الابداع

نعم بفضل الله وفقت في إيصال المعلومة للاسف قد لا يكون هذا المعيار متوفر في اغلب الترقيات التي تتم والسبب ان معيار السنوات ليس مستعملاً فقد يحصل 20 شخص على الترقية لانهم امضوا 4 سنوات في رتبتهم الحالية وبالمقابل قد يحصل 9 اشخاص على الترقية نظير عمل مميز قاموا به وكذلك قد تتاخر ترقية بعض الاشخاص نظراً لسوء سلوك او تجاوز ارتكبوه فانا ارى وانتم بعد الله اعلم واخبر مني فهذا مجال خبرتكم ان يتم إنشاء جدول خاص بارقام واسماء هولاء الموظفين الذين ترقوا وبواسطة استعلام التحديث يتم تحديث حقل الدرجة في الكشف الاساسي على شرط وجود الاسم في الجدول الذي تم انشاءه لهذا الغرض وشكراً

السلام عليكم بدأت الصورة تتضح شكراً لمساهمتك استاذ ابو خليل سؤال هل يمكن ان اضع جميع من حصل على ترقية الى الدرجة الأولى /أ في جدول جديد (يكون به الرقم والاسم ) ثم عمل استعلام تحديثي لهولاء الى هذه الرتبة اي بمعنى ان اي شخص حصل على هذه الترقية بغض النظر عن موقعه في الجدول الرئيسي يتم تحديث درجته الى الدرجة المقصودة بناء على وجود اسمه في الجدول الجديد لانه اذا سيتم التحديث بطريقة واحد واحد فيمكن التغيير مباشرة من الفورم الى الدرجة الجديدة (لكنها غير مجدية للبيانات الكثيرة) كما ان تحديت درجة فئة معينة مرة واحدة غير عملية كون انه ليس ممكن ان يتم ترقية من في هذه الفئة جميعاً دفعة واحدة حسب نظام العمل لدي فممكن من حوالي 200 شخص يحمل درجة معينة ان يتم ترقية 120 شخص فقط ارجو ان تكون الصورة وضحت وان يكون الحل لديكم وشكراً

انا افضل اكسل 2007 واكسس 2003

بداية ارجو منك زيارة هذا الرابط http://www.officena.net/ib/index.php?showtopic=41520 ثانياً حسب علمي لا يمكن وضع عمليات حسابية في الجداول وانما يمكن عملها في الاستعلامات والفورمات والتقارير

السلام عليكم في الخلية K2 في الورقة monadah ضع الشرط واستبدل الكود بهذا Sub Trheel3() Dim cl As Range If [K2] = "" Then Exit Sub For Each cl In Range("B2:B" & [B1000].End(xlUp).Row) If cl.Value = Sheets("monadah").[K2] Then cl.Resize(1, 4).Copy Sheets("monadah").Range("B" & Sheets("monadah").[B1000].End(xlUp).Row + 1) End If Next MsgBox "Mohammed Ibrahim ", vbOKOnly, "Good" End Sub