تعبئة المسلسل وكود الموظف والتاريخ تلقائيا بعدد ايام الشهر

[روان احمد]

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

الاساتذه الافاضل

برجاء المساعد

 محتاج فى المرفق اول ما ادخل كود الموظف يتم ادراج تاريخ الشهر كامل مثال بما ان شهر 7 عدد ايام 31 يوم

1-7-2021

2-7-2021

3-7-2021

31-7-2021

الخ

ويتم ادراج المسلسل حسب ايام الشهر مثال

1

2

3

4

31

الموظفين.xlsx

[أ / محمد صالح]

يمكنك استعمال هذا الإجراء

التنفيذ بعد تحديد الخلية المكتوب فيها كود الموظف

Sub masFillDays()
month_days = Day(DateSerial(Year([d1]), Month([d1]) + 1, 1) - 1)
For n = 1 To month_days
ActiveCell.Offset(n - 1, -1).Value = n
ActiveCell.Offset(n - 1, 0).Value = ActiveCell.Value
ActiveCell.Offset(n - 1, 6).Value = DateSerial(Year([d1]), Month([d1]), n)
Next n
MsgBox "done"
End Sub

ولا تنس تغيير امتداد الملف لصيغة تدعم الماكرة مثل xlsb

بالتوفيق

[روان احمد]

اشكرك علي دعمك استاذ محمد بارك الله فيك

بس اسمحلى اقدر انفذ الخطوه دي ازاي التنفيذ بعد تحديد الخلية المكتوب فيها كود الموظف

انا نقلت الكود ولكنه لا يعمل

عند كتابة 

=n(الكود)

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

والمطلوب عند كتابه الكود يتم ادراج تواريخ الشهر كامل بناءا على التاريخ المدرج بالخليه

D1

مع ادارج المسلسل بشكل تلاقائى مع عدد ايام الشهر

هستسمحك اخي الكريم مرفق ملف الاكسيل لو تشوفه اكون شاكر لحضرتك

تم تعديل يوليو 17, 2021 بواسطه روان احمد

[أ / محمد صالح]

بعد لصق الكود في موديول جديد

يمكن مسح جميع المكتوب في الشيت أولا

في الخلية مثلا B3 نكتب 100 (كود الموظف) ثم نضغط ctrl+enter ليبقى في نفس الخلية بعد قبول الكتابة (بكدا حددنا الخلية المكتوب فيها كود الموظف نبدأ في تنفيذ الماكرو)

ثم نضغط على alt+f8 لعرض الماكرو ونختار masFillDays ونضغط run (أو يمكنك ربط الكود بزر أو شكل ويتم تنفيذ الماكرو بعد الضغط على الزر مباشرة)

سيتم عمل مسلسل من 1 إلى 31 وتكرار كتابة كود الموظف 31 مرة

تم تعديل الكود السابق ليتم كتابة تاريخ اليوم من 1  في الشهر المكتوب في الخلية d1 إلى نهاية الشهر في عمود التاريخ

أليس هذا هو المطلوب ؟؟

[روان احمد]

اشكرك على مجهودك الرائع

التسلسل الرقمى ضبظ جدا معايا ولكن التاريخ لم يتم ادراجه

 

[أ / محمد صالح]

1 ساعه مضت, أ / محمد صالح said:

تم تعديل الكود السابق ليتم كتابة تاريخ اليوم من 1  في الشهر المكتوب في الخلية d1 إلى نهاية الشهر في عمود التاريخ

يبدو أن حضرتك ما انتبهت لهذا السطر

 

[روان احمد]

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

[أ / محمد صالح]

الكود تم تعديله في المشاركة الأصلية هذه

[روان احمد]

اخى الكريم اشكرك على مجهودك الرائع تم عمل الكود بنجاح باهر

اشكرك وربنا يجعله فى ميزان حسناتك