اذهب الي المحتوي
أوفيسنا

هام مطلوب سرد تسلسل تواريخ سوالين

ابوعلوة

بواسطه ابوعلوة
في منتدى الاكسيل Excel

 مشاركة

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

ابوعلوة

ابوعلوة

قام بنشر
قام بنشر

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

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

ولكم جزيل الشكر

تسلل تواريخ.rar

الشهابي

الشهابي

قام بنشر
قام بنشر

أخي العزيز/ أبو علوة

أولا : مرحباً وأهلا وسهلا بك بين أخوتك في هذا المنتدى

ثانياً : المطلوب بالنسبة لي غير واضح وربما لبعض الأعضاء الكرام والله أعلم

اقترح عليك في نفس الملف المرفق

أن تضع مثال لماتطلب بحيث تكتب في بعض الخانات ما تريد يدويا

بحيث يتم عمله فيما بعد من قبل أحد الأخوة بالمعادلات

وتشرح المطلوب بشكل مفصل حتى تكون النتائج حسب ما تريد إن شاء الله

والعفو

تقبل تحياتي

جمال عبد السميع

جمال عبد السميع

قام بنشر
قام بنشر

أخذت الكلمة من علي لساني أخي ( الشهابي ) فعلا المطلوب غير مفهوم إطلاقا ياريت كما قال أخي الشهابي وضع مثال مفصل للسؤالي المطلوبين ليتسني للأخوة عمل اللازم

ابوعلوة

ابوعلوة

قام بنشر
  • الكاتب
قام بنشر (معدل)

المطلوب الاول لدينا 31 يوم متاح لسرد توريخ تسلسلسة فمثلا ان نظام الشركة لاحتساب حركة الحضور هو تاريخ بداية الشهر 15/1/2012 وتاريخ نهاية الشهر 15/2/2012 اي عدد الايام 30 يوم اريد سرد هذة الفترة تسلسليلا من اول يوم الى اخريوم مع تاريخ البداية والنهاية باقي يوم لايدخل في الفترة هو 16/2/2012 يترك فارغ هو اليوم 31 هل وضح المعنى ؟؟؟؟

السوال الثاني نفترض ان بداية مباشرة عمل الموظف هو بداء 20/1/12012م وينتهي احتساب الحركة تاريخ 15/2/2012 م اريد سرد هذة الفترة تسلسيلا ولقد تم سرد فترة نظام الشركة استناد لها تسرد الفترة الفعلية لاحتساب الايام عمل الموظف فقط اي يوم 20/1/2012 يقابل مباشرة نظيرة اي 20/1/2012 التى في نظام الشركة وهكذا الى تاريخ 15/2/2012م والتوريخ من 15/1/2012 الى 19/1/2012 تترك فارغ لانها لاتنتمي الى فترة عمل الموظف

المطلوب الاول الذي قام به الاستاذ ابوحنين لايوجد سرد لتاريخ النهاية اوجده لتاريخ 9/1/2012 لايوجد تاريخ 10/1/2012م اريد سرد تاريخ النهاية ايضا هل وضحت الصورة لسؤالي ؟؟؟

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

سوف ارسل لكم تسجيل فيديولما اريدة اذا لم يوضح قصدي ولكم جزيل الشكر والاحتر ام

تم تعديل بواسطه ابوعلوة
إبراهيم ابوليله

إبراهيم ابوليله

قام بنشر
قام بنشر

الاخ ابو حنين كود رائع

وبارك الله فيك

ولكن ماذا لو اردنا اظهار يوم 10/1 ايضا

حيث ان سرد التواريخ ينتهى عند 9/1

الاخ ابو حنين انا اقصد لماذا لم يتم اظهار اليوم الاخير وهو يوم 10/1

ويكتفى الكود باظهار التواريخ ناقصه يوم

يعنى مثلا لو كتبنا من 1/1 الى 15/1

يوم 15 لا يظهر ويتوقف الاظهار عند يوم 14

فلماذا ذلك

وبذلك فانا اريد اظهار اليوم الاخير ايضا

  • Like 1
أبو حنــــين

أبو حنــــين

قام بنشر
قام بنشر

اخي ابراهيم ضع مكان الكود السابق هذا الكود


Private Sub Worksheet_Selectionchange(ByVal Target As Range)

Application.ScreenUpdating = False

Range("D10:E40").ClearContents

a = DateDiff("d", Range("B7"), Range("C7"))

For s = 0 To a

Cells(s + 10, 5) = Range("B7") + s

Cells(s + 10, 5).Offset(0, -1) = Format(Cells(s + 10, 5), "ddd")

If Cells(s + 10, 5) = "" Then Cells(s + 10, 5).Offset(0, -1) = ""

Next

Application.ScreenUpdating = True

End Sub

أبو حنــــين

أبو حنــــين

قام بنشر
قام بنشر

هذا شرح مختصر


'***************************************************************************************

' هذا السطر لتفريغ محتوي المدى المحدد

Range("D10:E40").ClearContents

'***************************************************************************************

'***************************************************************************************

'هذا السطر يبين فارق التاريخ بالايام بين الخلية بي7 و الخلية سي7

a = DateDiff("d", Range("B7"), Range("C7"))

'***************************************************************************************

'***************************************************************************************

' هذا السطر هو افتراض متغير يبدأ من الصفر الى عدد الايام في السطر السابق

For s = 0 To a

'***************************************************************************************

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

' مثلا لوكان التاريخ 1/1/2012 و اضفنا له 1 يصبح التاريخ 2/1/2012 و هكذا حسب المتغير  سي

Cells(s + 10, 5) = Range("B7") + s

'***************************************************************************************

'***************************************************************************************

' هذا السطر يقوم بادراج اليوم الموافق للتاريخ الموجود في العمود الذي يسبق عمود التاريخ

Cells(s + 10, 5).Offset(0, -1) = Format(Cells(s + 10, 5), "ddd")

'***************************************************************************************

' هذا السطر يشترط مسح عمود الايام اذا كان غمود التاريخ فارغا

If Cells(s + 10, 5) = "" Then Cells(s + 10, 5).Offset(0, -1) = ""

'***************************************************************************************

ابوعلوة

ابوعلوة

قام بنشر
  • الكاتب
قام بنشر (معدل)

ممتاز جدا ياستاذ ابوحنين والله جبت المطلوب وجزاك الله انت والاستاذ

الشهابي والاستاذ ابراهيم ابوليلة ولكل الاعضاء والله لااقدر اصف كم انا ممتن لكم لذا قررت اسكت والسلام

تم تعديل بواسطه ابوعلوة
ابوعلوة

ابوعلوة

قام بنشر
  • الكاتب
قام بنشر (معدل)

ممتاز جدا ياستاذ ابوحنين والله جبت المطلوب وجزاك الله انت والاستاذ

الشهابي والاستاذ ابراهيم ابوليلة ولكل الاعضاء والله لااقدر اصف كم انا ممتن لكم لذا قررت اسكت والسلام

الاستاذ/ ابوحنين لدي عدة ملاحظات اود ان تفيدني وكل الاعضاء وهي :

1- قمت ببنقل الكود والالجدوال الى مصنف جديد هو في المرفق نرجو التاكد من سلامة الكود وبياناته هو في المرفق ؟

2- انا ضعيف في الفيجول بيسك اكسل اريد شرح من الصفر دلني اذا سمحت ؟

3- اريد في المرفق اضافة معادلات سرد التواريخ بالهجري لكي يسهل خصم الاجازات الهجرية هي باللون الازرق ؟

4- في المرفق هو لموظف واحد وكنت اريد النسخ جدوال لعدد 700 موظف لاكن خفيت لايوثر على الكود خاصة انه يوجد نهاية الجدول توريخ صغيرة هل انسخ كم اي رقم الصف الذي ابداء منه واريد تعديل الكود لهذا العدد من الموظفين والجدوال كاالاتي

- ورقة تحليل الاعدادات يكون فيها 12 جدول فقط هي انواع الانظمة الشركة المختلفة لاحتساب الحركة الحضور مع التعديلات الجديدة من الملاحظات 1و3

- ورقة المتغيرات الموظفين 700 جدول لجميع الموظفين اذا امكن مالم يكون واحد فقط مع التعديلات الجديدة من الملاحظات 1و3

نرجو الاجابة للاهمية على كل بند على حد

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

برنامج ابوعلوة1.rar

تم تعديل بواسطه ابوعلوة
  • 7 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع
×
×
  • اضف...

Important Information

  I accept