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

[ابوعلوة]

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

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

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

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

[الشهابي]

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

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

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

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

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

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

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

والعفو

تقبل تحياتي

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

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

[الشهابي]

القلوب عند بعضها أستاذ محمد

[أبو حنــــين]

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

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

هل هذا ماتريدة أخي ( أبوعلوة )

وفي المرفق الثاني طريقة أخري لحساب عدد الأيام للشهر أبسط وأسهل إنشاء الله

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

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

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

الاخ محمود

عمل رائع

بارك الله فيك

واستغلال امثل للمعادلات

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

شكرا أخي ( إبراهيم ) ومرور طيب وتشجيع أطيب بارك الله فيك ولكن كل هذا إجتهاد دون تأكيدا صحيح لما يريدة الأخ ( أبو علوة )

[هاني عدلي]

أخي / محمود

عمل رئع و بسيط

جزاك الله كل خير و زادك علماً

تقبل مروري

:fff:

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

أحي (هاني ) شكرا لكلماتك الرائعة وتشجيعك الطيب بارك الله فيك وجزاك الله بمثل دعائك وأكثر

[ابوعلوة]

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

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

[أبو حنــــين]

هذا الطلب الاول

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

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

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

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

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

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

[أبو حنــــين]

الخلية B7 تمثل بداية حساب الشهراكتب فيها تاريخ و ليكم بداية الشهر

الخلية C7 تمثل نهاية الشهر التي نريدها غيرها كما تشاء و اخبرني

[ابوعلوة]

المطلوب الاول لدينا 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م اريد سرد تاريخ النهاية ايضا هل وضحت الصورة لسؤالي ؟؟؟

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

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

تم تعديل أغسطس 28, 2012 بواسطه ابوعلوة

[الشهابي]

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

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

هذه محاولة للحل إن شاء الله تفي بالغرض

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

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

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

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

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

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

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

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

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

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

فلماذا ذلك

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

[أبو حنــــين]

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

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) = ""

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

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

الاخ ابو حنين بارك الله فيك

ومشكورا على الشرح

[ابوعلوة]

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

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

تم تعديل أغسطس 29, 2012 بواسطه ابوعلوة

[ابوعلوة]

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل أغسطس 29, 2012 بواسطه ابوعلوة

[ابوعلوة]

نرجو الافادة على المرفق اعلاه ولو حتى معادلة تحويل من الميلادي الى تاريخ الهجري

[ابوعلوة]

ياشباب عندي سوال اخر عن الدوال

الاخوة الاكرام

نرجو الافادة في دوال في اكسل مطلوب شرحها وامثله عليها للاهمية القصوى

هي

1- cot

2- frac

3- E

4- POW

5- INFO

6- CELL

7- TYPE

لمشاهدة على الربط :http://www.officena.net/ib/index.php?showtopic=46475