اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سعد الفقير

03 عضو مميز
  • Posts

    148
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

8 Neutral

عن العضو سعد الفقير

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    هاوي برمجة

اخر الزوار

742 زياره للملف الشخصي
  1. برنامج اكثر من رائع. ولكن هناك مشكلة عند فتح البرنامج يفتح اول مرة تمام التمام ولكن في المرة الثانية تظهر رسالة كالاتي: "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros." بالرغم من ان اعدادات الامان مفعلة. ويمكن الوصول للمحرر الاكواد. ماهي المشكلة وحلها جزيتم خيرا. حتى انني غيرت اعدادات المايكرو من هنا ولم تنجح التجربة >File>Options>Trust Center>Trust Center setting...>Macro Settings and Enabled All Macros
  2. بسم الله ماشاء الله اوفيت وكفيت ابو عيد اتيت بفكرة الفورم التي لم تخطر في بالي سلم فكرك. نعم هذا هو المطلوب جزيت خيرا. ولكن عندي سؤال هل ابقي المعادلات الموجودة في بعض الخلايا كما هي ام لا داعي لوجودها؟ وهل يمكن اضافة زر في حالة رغبتي في الاطلاع على الاسماء مرة اخرى؟
  3. جزيت خيرا مميزكعادتك. ماذا لو كنت ارغب ان ينفذ هذا الكود لكل العمود K. حاولت بهذا الكود ولكن لم ينجح. Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$K$2:K50" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub
  4. أخي العزيز عبدالعزيز شكرا لك ولكن مازالت المشكلة قائمة وعند بحثي في الانترنت وجدت بان هناك صعوبة جدا في ادارج كود VBA في حال وجود معادلات في احد الاعمدة للاعتماد عليها كنتائج حسب معلوماتي المتواضعة. فمعنى ذللك يجب ان تعمل جميع الاعمدة بكود مستقل لكي تفي بالغرض المطلوب. علما بان الهدف دائما من البرامج هي تقليل التدخل البشري وجعل الاكواد هي من تعمل لراحتك فلذللك سوف اقوم بشرح المطلوب بخطوات فربما اجد من يعمل كود شامل لهذا الملف. المتطلبات : 1- في العمود N يتم ادخال التاريخ الهجري لبداء الاجازة. 2- في العمود P يتم ادخال مدة الاجازة. 3- في العمود O يتم اتوماتيكيا حسب نهاية الاجازة وادراج تاريخ النهاية اتوماتيكيا حسب مدة الاجازة في العمود P . 4- في العمود Q يتم احتساب المتبقي من الاجازة حسب تاريخ اليوم الهجري ومدة الاجازة. 5- عند بلوغ المتبقي للاجازة مدة 3 ايام يتم أضهار رسالة باسم الموظف من العمود G تفيد بان " يجب ادراج - أسم الموظف- في الورديات" ويتم تلوين الخلية باللون الاخضر. 6- عند انتهاء الاجازة يتم أدراج كلمة "أنتهت" في العمود Q ويتم تلوين الخلية بالاحمر ويتم ادراج كلمة "لم يباشر" في العمود S ويتم اضهار رسالة تفيد بان "يجب على - أسم الموظف- مراجعة شئون الموظفين" 7- عند وضع الرقم 1 في العمود T يتم تحويل كلمة "لم يباشر" الى كلمة "باشر" ويتم ايقاف اضهار الرسالة الخاصة بهذا الموظف. اتمنى باني وفقت بالشرح. ولكم جزيل الشكر
  5. اخي العيدروس لا ارغب في الكتابة في اي عمود. لان هناك معادلة في العمود S عند انتهاء الاجازة اتومتيكيا تظهر عبارة لم يباشر في العمود. فما اريد هو عند ظهور هذة العبارة اتوماتيكيا في العمود S تاتي الرسالة. اتمنى بان ترى المعادلة الموجودة في الخلية S2. الرسالة تاتي بعد فتح ملف الاكسل
  6. اخي العزيز العيدروس اشكر لك مساعدتي ولكن انا لا ارغب بان اكتب كلمة "لم يباشر " في العمود S فعبارة لم يباشر تظهر اتوماتيكيا في العمود وذللك لوجود معادلة بداخلة. والكود الذي ارسلته لا يعمل الا عند كتابة عبارة لم يباشر يدويا. فمطلوبي عند تحول العمود S اتوماتيكيا لعبارة لم يباشر حسب المعادلة الموجودة فية والمرفقة بالملف. يتم اظهار الرسالة
  7. العيدروس. شكرا لك ولاكن لم يفي الكود بالغرض . لان العمود S يوجد فية معادلة وهي مبنية على نهاية تاريخ الاجازة أو بالاحرى على المعادلة الموجودة في الخلية Q
  8. اهلا باخي ابو عيد . نعم كما قلت في حالة وجود عدد اربعة موظفين وكتبة عبارة لم يباشر فارغب في ظهور رسالة لكل اسم متتالية. فهدفي هو اظهار رسالة عند فتح الملف تفيد باسماء الموظفين الذين لم يباشروا
  9. أخي في الله الغالي أبو عيــــــــد الف الف الف الف الف مبروك الترقية ونتمنى لك مزيد من النجاح والتوفيق.
  10. السلام عليكم: حاولت في الكود ولكن لم انجح....... ارغب عندما تكون محتويات العمود Sعبارة (لم يباشر) تاتي رسالة باسم الموظف من العمود G تفيد بان "يجب على - اسم الموظف- الأتصال على شئون الموظفين". وعند بلوغ المتبقي للاجازة 3 أيام تاتي رسالة باسم الموظف من العمود G تفيد "أدراج - أسم الموظف-في الورديات". ولكم الشكر الجزيل . يوجد كود في حدث الصفحة.علما بان العمود S يحتوي معادلات. Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Range Set A = Range("S:S") Application.EnableEvents = False If Intersect(Target, A) Is Nothing Then Exit Sub If Target.Value = "لم يباشر" Then Application.EnableEvents = True MsgBox "يجب الاتصال على شؤون الموظفين" End If End Sub ssss.rar
  11. لم يسبق بان سجلت باسم سعد الرفيع لانه لا يبت باي صله لي اما الاسم الموجود الان هو الاسم الحقيقي. وفقك الله اخي ياسرولنا لقاء ان شاء الله.
×
×
  • اضف...

Important Information