روان احمد قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 السلام عليكم ورحمة الله الاساتذه الافاضل برجاء المساعد محتاج فى المرفق اول ما ادخل كود الموظف يتم ادراج تاريخ الشهر كامل مثال بما ان شهر 7 عدد ايام 31 يوم 1-7-2021 2-7-2021 3-7-2021 31-7-2021 الخ ويتم ادراج المسلسل حسب ايام الشهر مثال 1 2 3 4 31 الموظفين.xlsx
تمت الإجابة أ / محمد صالح قام بنشر يوليو 17, 2021 تمت الإجابة قام بنشر يوليو 17, 2021 يمكنك استعمال هذا الإجراء التنفيذ بعد تحديد الخلية المكتوب فيها كود الموظف 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 بالتوفيق
روان احمد قام بنشر يوليو 17, 2021 الكاتب قام بنشر يوليو 17, 2021 (معدل) اشكرك علي دعمك استاذ محمد بارك الله فيك بس اسمحلى اقدر انفذ الخطوه دي ازاي التنفيذ بعد تحديد الخلية المكتوب فيها كود الموظف انا نقلت الكود ولكنه لا يعمل عند كتابة =n(الكود) يكون الناتج رقم الكودنفسه والمطلوب عند كتابه الكود يتم ادراج تواريخ الشهر كامل بناءا على التاريخ المدرج بالخليه D1 مع ادارج المسلسل بشكل تلاقائى مع عدد ايام الشهر هستسمحك اخي الكريم مرفق ملف الاكسيل لو تشوفه اكون شاكر لحضرتك تم تعديل يوليو 17, 2021 بواسطه روان احمد
أ / محمد صالح قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 بعد لصق الكود في موديول جديد يمكن مسح جميع المكتوب في الشيت أولا في الخلية مثلا B3 نكتب 100 (كود الموظف) ثم نضغط ctrl+enter ليبقى في نفس الخلية بعد قبول الكتابة (بكدا حددنا الخلية المكتوب فيها كود الموظف نبدأ في تنفيذ الماكرو) ثم نضغط على alt+f8 لعرض الماكرو ونختار masFillDays ونضغط run (أو يمكنك ربط الكود بزر أو شكل ويتم تنفيذ الماكرو بعد الضغط على الزر مباشرة) سيتم عمل مسلسل من 1 إلى 31 وتكرار كتابة كود الموظف 31 مرة تم تعديل الكود السابق ليتم كتابة تاريخ اليوم من 1 في الشهر المكتوب في الخلية d1 إلى نهاية الشهر في عمود التاريخ أليس هذا هو المطلوب ؟؟
روان احمد قام بنشر يوليو 17, 2021 الكاتب قام بنشر يوليو 17, 2021 اشكرك على مجهودك الرائع التسلسل الرقمى ضبظ جدا معايا ولكن التاريخ لم يتم ادراجه 1
أ / محمد صالح قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 1 ساعه مضت, أ / محمد صالح said: تم تعديل الكود السابق ليتم كتابة تاريخ اليوم من 1 في الشهر المكتوب في الخلية d1 إلى نهاية الشهر في عمود التاريخ يبدو أن حضرتك ما انتبهت لهذا السطر
روان احمد قام بنشر يوليو 17, 2021 الكاتب قام بنشر يوليو 17, 2021 اشكرك ولكن تعديل الكود مش عندي ممكن حضرتك تفيدنى وترسل الكود بعد التعديل
أ / محمد صالح قام بنشر يوليو 17, 2021 قام بنشر يوليو 17, 2021 الكود تم تعديله في المشاركة الأصلية هذه
روان احمد قام بنشر يوليو 18, 2021 الكاتب قام بنشر يوليو 18, 2021 اخى الكريم اشكرك على مجهودك الرائع تم عمل الكود بنجاح باهر اشكرك وربنا يجعله فى ميزان حسناتك 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.