MOURADIYAT قام بنشر مارس 3, 2011 مشاركة قام بنشر مارس 3, 2011 بسم الله الرحمن الرحيم أحبتي في الله كيف الحال والأحوال والله إشتقت لكم وإشتفت للكتابة في هذا الفضاء الرائع أحببت أن أطل عليكم اليوم ببرنامج متابعة الإجازات والعطل بالنسبة للموظفين الذين يعملون بأسلوب العمل المباشر لشهور والإستفادة من الإجازة بعد مدة معينة ولكن تنقصه بعض الأشياء هي مطروحة داخله لذلك أرجو الإفادة والمساعدة وشكرا حساب الإجازات والعطل.rar رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 4, 2011 الكاتب مشاركة قام بنشر مارس 4, 2011 أحبتي في الله أنا أستنى ردكم على أحر من الجمر فلا تبخلو علينا وشكرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 5, 2011 مشاركة قام بنشر مارس 5, 2011 السلام عليكم أخي مراد ارجو أن يكون المرفق كما تريد تفضل حساب الإجازات والعطل2.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مارس 5, 2011 مشاركة قام بنشر مارس 5, 2011 الاستاذ الغالي طارق عمل مبدع ومتقن :clapping: قمت بتجربة المرفق ولكن كان هناك رسالة خطاء لذا بعد اذن سيادتكم قمت بالتعديل في الكود (في المرفقات صورة رسالة الخطاء والملف بعد التعديل عليه) ابو احمد حساب الإجازات والعطل2.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 5, 2011 مشاركة قام بنشر مارس 5, 2011 السلام عليكم أخي ابو أحمد يشرفني مروركم ومشاركتك وإن كان الكود يعمل عندي بلامشاكل تقبل ودي واحترامي رابط هذا التعليق شارك More sharing options...
سكووون الليل قام بنشر مارس 6, 2011 مشاركة قام بنشر مارس 6, 2011 اخوتي الاعزاء برنامج في غاية الاهمية بالنسبة لي والكثيريين كل يوم اول ما افتح النت افتح بشغف هذا المنتدى العظيم وقبل النوم افتحه ايضا وكل ساعة اعمل تشييك لانه كل يوم اتعلم معلومة جديدة في افضل برنامج بالعالم احبتي حبيت ان اعقب انني عندما اضع تاريخ متقدم مثل 02/08/2011م يظهر لي خطأ تاريخ العودة رقم اللقب الإسم المسمى الوظيفي تاريخ الذهاب المدة المفترض الحقيقي الملاحظة مدة البقاء الخصم مدة البقاء 1 مراد القرفي 2011/07/15 42 2011/08/27 2011/08/27 #NUM! #NUM! #NUM! الرجاء منكم التعقيب تقبلوا تقديري العميق لكم رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 6, 2011 مشاركة قام بنشر مارس 6, 2011 السلام عليكم أخي العزيز يفترض أن هذه البيانات سرد لأحداث حصلت بالفعل أي أن تاريخها اقل من تاريخ اليوم ولهذا تعطي خطأ إذا كانت غير ذلك فكيف تفهم أن أخبرك مثلا أن فلان في أجازة تبدأ من 2011/07/15 وعموما إذا كان ضروري يمكن تعديل المعادلة لتلافي هذا ولكني لاأحبذ هذا حيث ستكبر المعادلة بلاداعي التعديل سيكون كالتالي في الخلية J9 بدلا من =IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" يوم","") سيكون =IF(E9>=TODAY(),"",IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" يوم","")) رابط هذا التعليق شارك More sharing options...
سكووون الليل قام بنشر مارس 6, 2011 مشاركة قام بنشر مارس 6, 2011 اخي الحبيب بصراحة قمة الروعة وقمة الادب انا معك ولكن لدي بشركتي يختلف الامر حيث انني اعمل جدولة سنوية للاجازات وحتى لا انسى اضع التواريخ من الان فمن تغير موعد اجازته تم التعديل عليها شكرا رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 7, 2011 الكاتب مشاركة قام بنشر مارس 7, 2011 بسم الله الرحمن الرحيم أسعد الله مساء الأحبة الكرام أسعد الله مساء قدوتي ومضرب مثلي الأعلى الأستاذ طارق بودي تقديم تشكراتي الخالصة على هذا الرد الرائع والمميز فوالله أحس بالخجل جراء تأخري في الرد عليكم ولكن الظروف القاهرة منعتني من هذا فشكرا للأحبة الكرام الذين ساهمو في هذا العمل وشكرا لك أخي ارق للمرة الألف رابط هذا التعليق شارك More sharing options...
lek_ro7i قام بنشر مارس 9, 2011 مشاركة قام بنشر مارس 9, 2011 السلام عليكم هل استطيع تعديل على البرنامج واستخدامه باللغة الانجليزية ومشكورين رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 9, 2011 مشاركة قام بنشر مارس 9, 2011 السلام عليكم الأخ lek_ro7i نعم اخي يمكنك التعديل كم تشاء كل الحكاية أنك تستبدل العناويين والأسماء إلي اللغة التي تريدها أما المعادلة =IF(E9>=TODAY(),"",IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" يوم","")) ستصبح =IF(E9>=TODAY(),"",IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" day","")) رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 25, 2011 الكاتب مشاركة قام بنشر مارس 25, 2011 بسم الله الرحمن الرحيم كيف الحال أحبتي الكرام أستاذي طارق كيف حالك وحال أهلك وأحبتك والله إستقنا للتواصل معكم وللكتابة اليكم ولكن أنت أدرى بالضروف الراهنة العسيرة أحببت أن أكتب لك اليوم بخصوص موصوع الإجازات الرائع هذا فبد أن أدخلته للخدمة وأثبت فعاليته الرائعة والعالية جدا إستنتجت بعض الأمور الناقصة فيه وبما أن هذا الجهاز لايحتوي على الأوفيس لكي أشرح لك من البرنامج مباشرة فإنني سأكتفي بسرد المحتوى هنا فقط: 01- البرنامج لا يدعم عملية الإنتقال للأشخاص ال\ين تجاوزو المدة المطلوبة فهو ينقل الأفراد الأوائل فقط ولنفرض أن القائمة بها حوالي 300 شخص فالأكيد أن المتواجدين في ذيل القائمة معنيون بالترحيل إن تجاوزو المدة المسموحة وقد قمت بالتغيير في الكودa8:l29 وعملت كل المطلوب إلا أن النتيجة لم تكن إيجابية 02- الإشكال الثاني هو عند وضع حماية للورقة وعند التنفيذ تأتي رسالة تخبر أنه تعذر نقل البيانات لأن المعني بالترحيل محمي أضن أنالتجربة كفيلة بكشف ما أريد قوله لك فأعذرني لأنني كنت أحاول أن أرفق الملف إلا أن الفلاش ميموري غير متواجد معي والجهاز لا يدعم الأوفيس وهو غير منصب فيه شكرا لتفهمك أخوك أبو حسام الدين رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 26, 2011 مشاركة قام بنشر مارس 26, 2011 السلام عليكم أخي الحبيب مراد (أبو حسام الدين) كلنا في هذه الظروف والله المستعان طمئنني علي الأهل في الجزائر الحبيبة إن شاء الله تكون الأمور للأحسن 01- البرنامج لا يدعم عملية الإنتقال للأشخاص ال\ين تجاوزو المدة المطلوبة فهو ينقل الأفراد الأوائل فقط ولنفرض أن القائمة بها حوالي 300 شخص فالأكيد أن المتواجدين في ذيل القائمة معنيون بالترحيل إن تجاوزو المدة المسموحة وقد قمت بالتغيير في الكودa8:l29 وعملت كل المطلوب إلا أن النتيجة لم تكن إيجابية يوجد ثلاث أماكن (محلات) للنطاق في الكود وهم بلون أحمر فيما يلي .... Range("A8:L529").Select Selection.AutoFilter ActiveSheet.Range("$A$8:$L$529").AutoFilter Field:=12, Criteria1:=">99", Operator:=xlAnd Range("A8:L529").Select ..... غيرها جميعا ومثلها في الكود الآخر أيضا 02- الإشكال الثاني هو عند وضع حماية للورقة وعند التنفيذ تأتي رسالة تخبر أنه تعذر نقل البيانات لأن المعني بالترحيل محمي بسيطة ان شاء الله بفرض ان الباسوورد 123 ضع في أول الكود أمر فك الحماية و في آخر الكود أمر إعادة الحماية مرة أخري كالتالي Sub AnyName() Sheets("Feuil1").Unprotect (123) .. الكود ... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub مرفق أيضا الملف وبه التعديلات به أكثر من 500 إسم وبفرض ان باسوورد حماية الشييت 123 تفضل المرفق حساب الإجازات والعطل3.rar رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 26, 2011 الكاتب مشاركة قام بنشر مارس 26, 2011 السلام عليكم ورحمة الله وبركاته أسعد الله مساء الأحبة الكرام أسعد الله مسائك أخي الحبيب المبدع طارق والله لم يخب ضني فيك وفي إبداعك ورقيك أبدا فكأن الخالق عز وجل سخرك للناس لتعليمهم ومد يد العون لهم شيء جميل أن تعيش وتحيا لترى ثمار جهودك وإبداعاتك مجسدة على الواقع شيء رائع أن ترى الناس فرحون ومسرورون ومبتهجون عندما تكون طرفا في معادلة حل معضلتهم كانت قد أرقتهم والله لهو شء رائع حقا أن نحيا لنسعد الناس شكرا لك أخي طارق وشكرا لكل من ساهم وحمل المواضوع وشكرا لكل من ينتسب لهذا المنتدى الرائع رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 27, 2011 الكاتب مشاركة قام بنشر مارس 27, 2011 أخي طارق أضن أن البرنامج فيه خطأ فأرجو أن تقوم ب|إلقاء نظرة عليه لاتفتح النسخة التي معك بل التي وضعتها للتحميل على الموقع رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 29, 2011 مشاركة قام بنشر مارس 29, 2011 السلام عليكم أخي مراد إن كان الخطأ الذي تقصده عدم إزالة البيانات القديمة من ورقتي 50 ، 100 قبل نقل البيانات الجديدة فعلاجه فيما يلي أما إن كان الخطأ غير ذلك فأرجو توضيحه علاج خطأ عدم إزالة البيانات القديمة من ورقتي 50 ، 100 قبل نقل البيانات الجديدة أضف السطور الثلاثة قبل سطر فك حماية الشيت Feuil1 في كلا الكودين ليصبلحا كالتالي Sub Filter50() ' Sheets("50day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) ....... ....... ....... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub Sub Filter100() ' Sheets("100day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) ....... ....... ....... ActiveSheet.Protect(123, DrawingObjects, Contents, Scenarios:=False) = True End Sub كنت أريد إرفاق الملف ولكن عندي مشكلة مع النت والتحميل حاول تطبق التعديلات وسأحاول رفعه علي موقع آخر رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 29, 2011 مشاركة قام بنشر مارس 29, 2011 (معدل) الحمد لله تمكنت من رفعه عالفورشيرد هذا هو الرابط http://www.4shared.c...M3da-4/__4.html تم تعديل مارس 29, 2011 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 29, 2011 الكاتب مشاركة قام بنشر مارس 29, 2011 أضن أن الإشكال لا زال قائما أخي طارق وقد حاولت إرفاق الملف برسالة الخطأ ولكنني لم أنجح رسالة الخطأ.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 29, 2011 مشاركة قام بنشر مارس 29, 2011 السلام عليكم اشرح ياأخي ماتقصد فلم أستطع فتح رسالة الخطأ المرفقة PHP رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 30, 2011 الكاتب مشاركة قام بنشر مارس 30, 2011 السلام عليكم ورحمة الله وبركاته أخي طارق حتى أنا والله لم أفهم الإشكال فبالرغم من نجربتي القليلة وخبرتي المحدودة في خذا المجال إلا أن كل محاولاتي لتشخيص السبب باءت بالفشل المهم الملف الذي بحوزتك إن كام شغالا فأرسله لي فربما الملف المرفق حاليا به خلل ما لأنني جربته على أكثر من 04 أجهزة ودائما أجد نفس الإشكال وكما أرجو من الأحبة الذين حملو البرنامج أن يوافونا بتقرير عن الحالة وشكرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 31, 2011 مشاركة قام بنشر مارس 31, 2011 اخي أنا لاأفهم لقد حملت الملف من الرابط الذي ذكرته لك بالمشاركة # 17 عالفورشيرد وجربته علي جهازين آخرين بالإكسل 2003 ، 2010 ولم اجد مشاكل سأحاول إرساله لك عالإميل أرجو شرح الخطأ أو أخذ صورة منه (بإحدي صيغ الصور المعروفة - jpg - bmp - >>>) رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر مارس 31, 2011 الكاتب مشاركة قام بنشر مارس 31, 2011 شكرا لإهتمامك أخي طارق والله أفرح كثيرا عندما أجدك لجنبي أنا أنتظر ايميلك شكرا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 2, 2011 مشاركة قام بنشر أبريل 2, 2011 (معدل) السلام عليكم أخي مراد ارسل لي اميلك أو راسلني علي tarekmahmoud_2@hotmail.com أو حمل الملف مرة أخري من الفورشيرد عموما مرفق فيديو صغير لتشغيل الملف وليس به مشاكل murad001.rar تم تعديل أبريل 2, 2011 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
MOURADIYAT قام بنشر أبريل 2, 2011 الكاتب مشاركة قام بنشر أبريل 2, 2011 كيف الحال أخي طارق لقد قمت بمراسلتك قبل قليل على بريدك الإلكتروني وقد قمت كذلك بتتبع كل الطرق التي أمليتها عليا ولكن دائما نفس الإشكال قائم أمر حذف الجميع يعمل ولكن الفرز الأول والثاني لا يعمل وبعطيني هذا: Sub Filter50() ' Sheets("50day").Select Range("A2", ActiveCell.SpecialCells(xlLastCell)).ClearContents Sheets("Feuil1").Select Sheets("Feuil1").Unprotect (123) Range("A8:L529").Select Selection.AutoFilter ActiveSheet.Range("$A$8:$L$529").AutoFilter Field:=12, Criteria1:=">49", Operator:=xlAnd, Criteria2:="<100" Range("A8:L529").Select Selection.Copy Sheets("50day").Select [A1].Select << عندما أقوم بالنقر على فرز الأفراد ال\ين تجاوزو 50 يوما تظهر نافذة الأوامر وتكون هذه ملونة ActiveSheet.Paste Application.CutCopyMode = False Range("C3").Select Sheets("Feuil1").Select Selection.AutoFilter Range("E9").Select MsgBox ("Êã äÞá ÈíÇäÇÊ ãÊÌÇæÒí ÇáÜ 50 íæã Åáí æÑÞÊåã") رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر أبريل 3, 2011 مشاركة قام بنشر أبريل 3, 2011 السلام عليكم رددت علي إميلك صدقا لاأفهم ماالذي في الجهاز عندك غالبا شيئا ينقص التضبيط مثل اللغة أو خيارات الماكرو لا أعلم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.