مصطفى محمود مصطفى

احسنتم استاذ ابو البراء وفقكم الله وزادكم من فضله

السلام عليكم ورحمة الله وبركاته هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود وفقكم الله جميعا Sub hide_for_abbas() 'اخفاء الجمعة والسبت With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With If ActiveSheet.Name <> "تسجيل غيابات" Then GoTo exit_sub Dim Last_Col%, i% Last_Col = ActiveSheet.Cells(4, Columns.Count).End(1).Column Range("b3").Resize(1, Last_Col - 1).Columns.Hidden = False For i = 5 To Last_Col - 1 If Weekday(Cells(4, i)) > 5 Then Cells(3, i).EntireColumn.Hidden = True Next exit_sub: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub

السلام عليكم ورحمة الله وبركاته ارجو تعديل كود الاستاذ ابن مصر جزاه الله خيرا ليكون اكثر مرونة وهو كتابة تاريخ اليوم في خلية والكود يقوم بحذف البيانات في مدى محدد اذا كانت قبل تاريخ هذا اليوم المكتوب في الخلية لكم تحياتي Sub ClearSheet() Dim Ddate As Date Ddate = "28/02/2015" If Date > Ddate Then Sheet1.Cells.ClearContents End If End Sub ClearAfterDate.xlsm

الاستاذ الفاضل ابو احمد وفقكم الله وحفظكم من كل سوء

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

وفقكم الله وحفظكم من كل سوء استاذنا العزيز ابو احمد

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

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

وفقكم الله وحفظكم من كل سوء

الاستاذ الكريم بن علية حاجي المحترم جعلها الله في ميزان حسناتكم معادلة روعة .وفقكم الله ورعاكم لكم ودي ووافر احترامي

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

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

السلام عليكم ورحمة الله وبركاته هل بالامكان ان نستدعي تاريخ بلوغ غيابات الطالب 7 أيام وتاريخ بلوغه 14 يوم وتاريخ بلوغه 21 يوم من التاريخ الموجود في الجدول نقبلوا وافر احترامي وفقكم الله وحفظكم من كل سوء نسخة من انذار غياب.xlsm

السلام عليكم ورحمة الله وبركاته كيف نحصي 30 يوما من تاريخ محدد في خلية ثابته ونكتب في خلية هذا التاريخ في الصف16 نكتب يدويا للمرة الاولى كلمة ( لا يستحق ) تحت الخلية التي تساوي التاريخ الذي في الاعلى يعني تحت الخلية التي تساوي ذلك التاريخ ثم نحتاج معادلة ثابتة تظهر كلمة لا يستحق اذا تجاوز30 يوما على تاريخ كتابة كلمة لا يستحق يدويا . شكرا لكم وبارك الله في جهودكم معادلة حساب 30 يوم من تاريخ محدد.xlsx

وعليكم السلام ..بعد حذف الاسم استخدم هذا الكود للاستاذ سليم جزاه الله خيرا Sub salim() Range("A2:A" & Cells(Rows.Count, 1).End(2).Row).SpecialCells(4).EntireRow.Delete End Sub