برنامج متابعة الإجازات والعطل

MOURADIYAT · مارس 3, 2011

بسم الله الرحمن الرحيم

أحبتي في الله كيف الحال والأحوال

والله إشتقت لكم وإشتفت للكتابة في هذا الفضاء الرائع

أحببت أن أطل عليكم اليوم ببرنامج متابعة الإجازات والعطل بالنسبة للموظفين الذين يعملون بأسلوب العمل المباشر لشهور والإستفادة من الإجازة بعد مدة معينة

ولكن تنقصه بعض الأشياء هي مطروحة داخله

لذلك أرجو الإفادة والمساعدة

وشكرا

حساب الإجازات والعطل.rar

MOURADIYAT · مارس 4, 2011

أحبتي في الله أنا أستنى ردكم على أحر من الجمر

فلا تبخلو علينا

وشكرا

**طارق محمود** · مارس 5, 2011

السلام عليكم

أخي مراد

ارجو أن يكون المرفق كما تريد

تفضل

حساب الإجازات والعطل2.rar

**عبدالله المجرب** · مارس 5, 2011

الاستاذ الغالي طارق عمل مبدع ومتقن :clapping:

قمت بتجربة المرفق ولكن كان هناك رسالة خطاء

لذا بعد اذن سيادتكم قمت بالتعديل في الكود (في المرفقات صورة رسالة الخطاء والملف بعد التعديل عليه)

ابو احمد

حساب الإجازات والعطل2.rar

**طارق محمود** · مارس 5, 2011

السلام عليكم

أخي ابو أحمد

يشرفني مروركم ومشاركتك

وإن كان الكود يعمل عندي بلامشاكل

تقبل ودي واحترامي

سكووون الليل · مارس 6, 2011

اخوتي الاعزاء

برنامج في غاية الاهمية بالنسبة لي والكثيريين

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

احبتي حبيت ان اعقب انني عندما اضع تاريخ متقدم مثل 02/08/2011م يظهر لي خطأ

تاريخ العودة

رقم اللقب الإسم المسمى الوظيفي تاريخ الذهاب المدة المفترض الحقيقي الملاحظة مدة البقاء الخصم مدة البقاء

1 مراد القرفي 2011/07/15 42 2011/08/27 2011/08/27 #NUM! #NUM! #NUM!

الرجاء منكم التعقيب

تقبلوا تقديري العميق لكم

**طارق محمود** · مارس 6, 2011

السلام عليكم

أخي العزيز

يفترض أن هذه البيانات سرد لأحداث حصلت بالفعل أي أن تاريخها اقل من تاريخ اليوم

ولهذا تعطي خطأ إذا كانت غير ذلك

فكيف تفهم أن أخبرك مثلا أن فلان في أجازة تبدأ من 2011/07/15

وعموما إذا كان ضروري يمكن تعديل المعادلة لتلافي هذا ولكني لاأحبذ هذا حيث ستكبر المعادلة بلاداعي

التعديل سيكون كالتالي في الخلية J9

بدلا من

=IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" يوم","")

سيكون

=IF(E9>=TODAY(),"",IF(G9<>"",DATEDIF(G9,TODAY(),"d")&" يوم",""))

سكووون الليل · مارس 6, 2011

اخي الحبيب

بصراحة قمة الروعة وقمة الادب

انا معك ولكن لدي بشركتي يختلف الامر حيث انني اعمل جدولة سنوية للاجازات وحتى لا انسى اضع التواريخ من الان فمن تغير موعد اجازته تم التعديل عليها

شكرا

MOURADIYAT · مارس 7, 2011

بسم الله الرحمن الرحيم

أسعد الله مساء الأحبة الكرام

أسعد الله مساء قدوتي ومضرب مثلي الأعلى الأستاذ طارق

بودي تقديم تشكراتي الخالصة على هذا الرد الرائع والمميز

فوالله أحس بالخجل جراء تأخري في الرد عليكم

ولكن الظروف القاهرة منعتني من هذا

فشكرا للأحبة الكرام الذين ساهمو في هذا العمل

وشكرا لك أخي ارق للمرة الألف

lek_ro7i · مارس 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",""))

MOURADIYAT · مارس 25, 2011

بسم الله الرحمن الرحيم

كيف الحال أحبتي الكرام

أستاذي طارق كيف حالك وحال أهلك وأحبتك

والله إستقنا للتواصل معكم وللكتابة اليكم

ولكن أنت أدرى بالضروف الراهنة العسيرة

أحببت أن أكتب لك اليوم بخصوص موصوع الإجازات الرائع هذا

فبد أن أدخلته للخدمة وأثبت فعاليته الرائعة والعالية جدا إستنتجت بعض الأمور الناقصة فيه

وبما أن هذا الجهاز لايحتوي على الأوفيس لكي أشرح لك من البرنامج مباشرة فإنني سأكتفي بسرد المحتوى هنا فقط:

01- البرنامج لا يدعم عملية الإنتقال للأشخاص ال\ين تجاوزو المدة المطلوبة فهو ينقل الأفراد الأوائل فقط ولنفرض أن القائمة بها حوالي 300 شخص فالأكيد أن المتواجدين في ذيل القائمة معنيون بالترحيل إن تجاوزو المدة المسموحة وقد قمت بالتغيير في الكودa8:l29

وعملت كل المطلوب إلا أن النتيجة لم تكن إيجابية

02- الإشكال الثاني هو عند وضع حماية للورقة وعند التنفيذ تأتي رسالة تخبر أنه تعذر نقل البيانات لأن المعني بالترحيل محمي

أضن أنالتجربة كفيلة بكشف ما أريد قوله لك

فأعذرني لأنني كنت أحاول أن أرفق الملف إلا أن الفلاش ميموري غير متواجد معي والجهاز لا يدعم الأوفيس وهو غير منصب فيه

شكرا لتفهمك

أخوك أبو حسام الدين

**طارق محمود** · مارس 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

MOURADIYAT · مارس 26, 2011

السلام عليكم ورحمة الله وبركاته

أسعد الله مساء الأحبة الكرام

أسعد الله مسائك أخي الحبيب المبدع طارق

والله لم يخب ضني فيك وفي إبداعك ورقيك أبدا

فكأن الخالق عز وجل سخرك للناس لتعليمهم ومد يد العون لهم

شيء جميل أن تعيش وتحيا لترى ثمار جهودك وإبداعاتك مجسدة على الواقع

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

والله لهو شء رائع حقا أن نحيا لنسعد الناس

شكرا لك أخي طارق

وشكرا لكل من ساهم وحمل المواضوع وشكرا لكل من ينتسب لهذا المنتدى الرائع

MOURADIYAT · مارس 27, 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

كنت أريد إرفاق الملف ولكن

عندي مشكلة مع النت والتحميل

حاول تطبق التعديلات

وسأحاول رفعه علي موقع آخر

**طارق محمود** · مارس 29, 2011

الحمد لله

تمكنت من رفعه عالفورشيرد

هذا هو الرابط

http://www.4shared.c...M3da-4/__4.html

تم تعديل مارس 29, 2011 بواسطه TareQ M

MOURADIYAT · مارس 29, 2011

أضن أن الإشكال لا زال قائما أخي طارق

وقد حاولت إرفاق الملف برسالة الخطأ ولكنني لم أنجح

رسالة الخطأ.rar

**طارق محمود** · مارس 29, 2011

السلام عليكم

اشرح ياأخي ماتقصد

فلم أستطع فتح رسالة الخطأ المرفقة PHP

MOURADIYAT · مارس 30, 2011

السلام عليكم ورحمة الله وبركاته

أخي طارق حتى أنا والله لم أفهم الإشكال فبالرغم من نجربتي القليلة وخبرتي المحدودة في خذا المجال إلا أن كل محاولاتي لتشخيص السبب باءت بالفشل

المهم الملف الذي بحوزتك إن كام شغالا فأرسله لي فربما الملف المرفق حاليا به خلل ما

لأنني جربته على أكثر من 04 أجهزة ودائما أجد نفس الإشكال

وكما أرجو من الأحبة الذين حملو البرنامج أن يوافونا بتقرير عن الحالة

وشكرا

**طارق محمود** · مارس 31, 2011

اخي أنا لاأفهم

لقد حملت الملف من الرابط الذي ذكرته لك بالمشاركة # 17 عالفورشيرد

وجربته علي جهازين آخرين

بالإكسل 2003 ، 2010

ولم اجد مشاكل

سأحاول إرساله لك عالإميل

أرجو شرح الخطأ أو أخذ صورة منه (بإحدي صيغ الصور المعروفة - jpg - bmp - >>>)

MOURADIYAT · مارس 31, 2011

شكرا لإهتمامك أخي طارق

والله أفرح كثيرا عندما أجدك لجنبي

أنا أنتظر ايميلك

شكرا

**طارق محمود** · أبريل 2, 2011

السلام عليكم

أخي مراد

ارسل لي اميلك

أو راسلني علي

tarekmahmoud_2@hotmail.com

أو حمل الملف مرة أخري من الفورشيرد

عموما مرفق فيديو صغير لتشغيل الملف وليس به مشاكل

murad001.rar

تم تعديل أبريل 2, 2011 بواسطه TareQ M

MOURADIYAT · أبريل 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 íæã Åáí æÑÞÊåã")

**طارق محمود** · أبريل 3, 2011

السلام عليكم

رددت علي إميلك

صدقا لاأفهم

ماالذي في الجهاز عندك

غالبا شيئا ينقص التضبيط

مثل اللغة أو خيارات الماكرو

لا أعلم

تسجيل الدخول

برنامج متابعة الإجازات والعطل

الردود الموصى بها

MOURADIYAT

MOURADIYAT

طارق محمود

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

طارق محمود

سكووون الليل

طارق محمود

سكووون الليل

MOURADIYAT

lek_ro7i

طارق محمود

MOURADIYAT

طارق محمود

MOURADIYAT

MOURADIYAT

طارق محمود

طارق محمود

MOURADIYAT

طارق محمود

MOURADIYAT

طارق محمود

MOURADIYAT

طارق محمود

MOURADIYAT

طارق محمود

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information