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

احسنتم استاذ ابو البراء

وفقكم الله وزادكم من فضله

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

هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود

وفقكم الله جميعا

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

الاستاذ الفاضل ابو احمد

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

في 5‏/2‏/2023 at 00:35, AbuuAhmed said:

تعديل على التعديل السابق 🙂 

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

التعديل في هذا السطر:
 

من
If IsNumeric(.Value) Then

إلى
If .Value <> "" And IsNumeric(.Value) Then

 

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

الاستاذ العزيز ابو احمد المحترم

وفقكم الله وزادكم من فضله

لكم وافر احترامي وتقديري

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

20 ساعات مضت, AbuuAhmed said:

لا يوجد في المثال أي عمليات قسمة للدرجات!
أنا فقط التقط الدرجة من صفحة المسودة.
 

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

لكم وافر احترامي 

في 21‏/1‏/2023 at 19:16, AbuuAhmed said:

تم إصلاح الخلل وقمت ببعض التجارب ولكن يحتاج إلى مزيد من التجارب من طرفكم أيضا

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

وفقكم الله وحفظكم

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

الاستاذ الكريم بن علية حاجي المحترم

جعلها الله في ميزان حسناتكم

معادلة روعة .وفقكم الله ورعاكم

لكم ودي ووافر احترامي

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

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

ارجو التفضل بارسال الملف الذي به المعادلة

شكرا لجهودكم ويسر الله امركم

السلام عليكم استاذنا الفاضل

الملف المرفق في اجابتكم لا توجد به معادلة

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

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

هل بالامكان ان نستدعي تاريخ بلوغ غيابات الطالب 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