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

الاخ الفاضل ZZ2 بعد ان تقوم بتحديد جميع الخلاياء (trl + A) من قائمة فورمات اختر format cell ثم protection ثم ازل علامة الصح وبعد ذلك قم بتحديد خلايا المعادلات وقم بنفس الخطوات السابقو ولكن ضع علامة الصح على الخيارين الموجودين بعد ان تقوم بهذه الخطوات قم بنسخ الكود الموجود وضعة في محرر الفيجول الخاصة بالورقة التي به المعادلات عند وضع المؤشر على الخلية التي بها المعدلة سوف تظهر رسالة المعادلات لن تظهر Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.HasFormula Then MsgBox "المعادلات لن تظهر" 'ActiveSheet.Protect Else 'ActiveSheet.Unprotect End If For Each MySheet In ActiveWorkbook.Sheets ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowDeletingColumns:=True, AllowDeletingRows:=True Next MySheet End Sub

الاخ ZZ2 بالاضافة الى حل الاستاذ يحيى حسين هذه طريقة عالسريع يمكنك بعد تحديد ماتريد نسخة اضغط بستمرار على زر Ctrl مع الضغط مرتين على حرف C وقم بلصق البيانات من الحافظة

اخي الفاضل خير الايمان لا ازعاج ولا حاجة تفضل المرفق وهو ابداع للاستاذ الفاضل الى وحشنا جداً ياسر خليل ""ملاحظة"" بما ان عدد المحافظات المصرية 29 والموجود في الجدول 20 فبامكانك اضافة باقي المحافظات في الجدول الخاص بذلك ولكن ضع الرمز (') قبل الرقم وهذا الرمز تجده بعد تغيير اللغة الى انجليزي في زر حرف ""ط"" بدون Shift يعني ضع هذه الشرطة تم الرقم ان شاء الله وضحت الفكرة ابو احمد 1112.rar

الاخ خير الايمان تفضل المرفق من اعداد الاخ الفاضل جمال دغيدي حفظه الله 111.rar

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

الاخ الفاضل مصطفى استخدامك للدالة countif يدل على لمسة ابداع وتوظيف جيد للدالة اخي الفاضل mohd.ic الدالة vlook2all دالة تم ابتكارها من قبل الاساتذة في هذا المنتدى الكبير ولابد من نسخ الميكرو الخاص بها والموجود في محرر الفيجول بيسك الى ملفك قبل تطبيق الدالة.(للعلم والتذكير فقط) ابو احمد

بعد اذن الاخ الفاضل مصطفى كمال لاحظ اخي انه في المرفق تم اضافة عدد من الصفوف وحدث التغيير في مدى عمل الدالة فقط في المعادلة الموجودة في الخانات التي يتم جلب المعلومات اليهافقط تم تعديل مدى عمل الدالة اما في عمود الترتيب فليس عليك سوى سحب المعادلة الى الاسفل فقط وان من وجهة نظري بان هذه المعادلة المقدمة من الاخ مصطفى جميلة جدا وتفي بالغرض وان كان لدى الاخوة ما يجودون به فزيادة خير وفائدة ابواحمد Book3.rar

ولا يهمك عزيز وغالي تفضل المرفق Book2.rar

الاستاذ الفاضل منتصر اوجه لك شكري مرة اخرى حيث كانت النتائج مرضية جداً فشكراً جزيلاً لك

الاستاذ الفاضل منتصر الانسي الله يبارك فيك تم اجراء التعديلات التي عملتها على الملف وكانت النتيجة 100 /100 شكراً جزيلا

على حد فهمي للموضوع تفضل المرفق اخي الفاضل Book2.rar

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

شكراً الاستاذ الفاضل على تجاوبك وبث الامل من جديد الدرجات ستكون درجتان وظيفيتان هي الاولى والثانية وسيكون تشعب الاولى بهذه الطريقة 1. الدرجة الاولى "أ" 2. الدرجة الاولى "ب" 3. الدرجة الاولى "جـ" 4. الدرجة الاولى "د" 5. الدرجة الاولى "هـ" 6. الدرجة الاولى "و" 7. الدرجة الاولى "ز" والدرجة الثانية وستكون 1. الدرجة الثانية"حـ" 2. الدرجة الثانية"ط" 3. الدرجة الثانية"ي" 4. الدرجة الثانية"ك"

اخي الفاضل من الافضل ان تضع مرفق حتى يسهل فهم المطلوب

اخي كاسبر تفضل المرفق Book2.rar

الاستاذ الفاضل منتصر الانسي الظاهر انه لا يوجد حل فلا بد ان يكون اسم الدرجة بالحروف وليس بالارقام اسف على الاطاله ولكن ان كان هناك حل اخر يتضمن الاتي ان يبقى كود الصورة كما هو ولكن يضاف اليه شرط استخراج الصورة الاخرى والتي سيضاف الى المسمى الخاص بها رمز N اي بمعنى اصح ان الموضف من الدرجة الاولى سيكون مسمى صورته في ملف الصور S2222 بينما الموظف من الدرجة الثانية سيكون مسمى صورته SN2222 اي ان الكود اذا صادف اثنا البحث رقمين متشابهين يستخرجفي الحالة الاولى الصورة S2222 وفي الحالة الثانية الصورة SN2222 دون تغيير مسميات الحقول الخاصة بالفورم استاذي الفاضل منتصر الانسي ان اسف لكثرة تشعبي في هذا الموضوع واتمنى ان اكون وفقت في ايصال الفكرة فان امكن كان بها ولا فلا حول ولا قوة الا بالله.. ولك في الاول والاخير عظيم الشكر والامتنان اخوك في الله ابو احمد

الاستاذ الفاضل منتصر الانسي شكراً جزيلا على الرد والمطلوب الان في هذه الحالة هو التعديل في الكود المرفق بحيث اذا تشابه الارقام الوظيفية ان يتم البحث بطريقة الرقم الوظيفي والدرجة الوظيفية (للعلم لا يوجد تشابه للارقام في نفس الدرجة )لجلب الصورة استاذي الفاضل لنفترض بان لدي درجتان وظيفيتان هي الاولى والثانية (بغظ النظر عن تشعبات كل درجة) فان بيانات الموظف ستكون كالتالي 1. الدرجة الوظيفية 2. الرقم الوظيفي 3. الاسم 4. الجنسية 5.الرقم الشخصي . العمر 7. تاريخ الانضمام الى العمل 8 مدة الخدمة في الشركة 9. وهكذا يعني الان المطلوب التعديل في كود الصورة الحالي باضافة شرط اخر للبحث هو اذا تشابه الرقم الوظيفي لاكثر من اسم فيتم جلب الصورة بدلالة اخرى وهى الدرجةالثانية ويرمز لها بالرمز (N)

الاخ الفاضل toumi الف مبروك والى الامام

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

اخي ياسر لقد قام احد الاخوة مشكوراً بوضع حل لطلبك ان شاء الله يكون هذا هو المطلوب

الاساتذة الافاضل خبراء منتدى الاكسس تحية عطرة وبعد لدي برنامج شئون الموظفين بالاكسس ولكن واجهتني مشكلة في اظهار الصورة للموظفين المتشابهين في الارقام الوظيفية (مثال ) احمد علي رقمه الوظيفي 2222 ودرجته الوظيفية الاولى و الموظف جاسم عبدالله ورقمه الوظيفي 2222 ودرجته الوظيفية الثالثة ) في الوقت الحالي وعند البحث بالرقم الوظيفي تظهر بيانات الموضفان بالتتالي ولكن بنفس الصورة للعلم ان كود الصورة كا التالي Private Sub Form_Current() On Error GoTo ERRPIC Me.MYPIC.Picture = Trim("C:\PHOTOS\s") + Trim(Me.الرقم) + Trim(".jpg") Exit_FORM_CURRENT: Exit Sub ERRPIC: Me.MYPIC.Picture = "" End Sub فهل يمكن التعديل على هذا الكود بحيث يكون بامكانه اظهار الصورة للموظف الاخر رغم تشابه الارقام الوظيفية. اساتذتي الافاضل حاولت ان اضيف رمز بجانب الارقام المتشابهة لاحدى الدرجات الوظيفية وبعد تعديل الرقم في الجدول ليكون كنص كاحدى الحلول لجلب الصورة ولكن الفورمات المرتبطة بهذا الجدول لاتفتح وتظهر رسالة تفيد بانه تم ايقاف اجراء فتح هذا الفورم فما السبب وما الحل؟؟ اسف على الاطالة وان شاء الله اكون وفقت بايصال المعلومة واسف مرة اخرى على عدم ارفاق ملف بسبب كبر حجمة. ابو احمد

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

اخي الفاضل على حد فهمي للموضوع راجع المرفق ان شاء الله يفي بالغرض Book1.rar

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

تفضل اخي MEDBESS المرفق تم استخدام التنسيق الشرطي ان شاء الله يفي بالغرض MED5.rar