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

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

السلام عليكم ورحمة الله وبركاته هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود وفقكم الله جميعا 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

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

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

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

اليك الحل باعمدة مساعدة غيرت المعادلات . جرب وان شاء الله يعمل بشكل جيد لكم تحياتي البطاقة المدرسية++.xlsm

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

وعليكم السلام اليكم الحل بعمودين مساعدين مساعدة++.xlsx

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

نعم يكون ذلك باختيار لصق الارتباط

شكرا للاستاذ الفاضلlionheart بامكانك الضغط على الخلايا المطلوبة ثم من تنسيق خلايا ثم محاذاة وتختر من اليمين الى اليسار

لاحظ التعديل ++متوسط الاول+.xlsx