اذهب الي المحتوي
أوفيسنا

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

03 عضو مميز
  • Posts

    497
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو مصطفى محمود مصطفى

  1. السلام عليكم ورحمة الله وبركاته هذا كود اعمل عليه لاخفاء يومي الجمعة والسبت الان اصبح تعديل على ان يكون الاخفاء فقط يوم الجمعة هل يمكن التعديل على الكود وفقكم الله جميعا 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
  2. السلام عليكم ورحمة الله وبركاته ارجو تعديل كود الاستاذ ابن مصر جزاه الله خيرا ليكون اكثر مرونة وهو كتابة تاريخ اليوم في خلية والكود يقوم بحذف البيانات في مدى محدد اذا كانت قبل تاريخ هذا اليوم المكتوب في الخلية لكم تحياتي Sub ClearSheet() Dim Ddate As Date Ddate = "28/02/2015" If Date > Ddate Then Sheet1.Cells.ClearContents End If End Sub ClearAfterDate.xlsm
  3. الاستاذ الفاضل ابو احمد وفقكم الله وحفظكم من كل سوء
  4. السلام عليكم ورحمة الله وبركاته الاستاذ العزيز ابو احمد المحترم وفقكم الله وزادكم من فضله لكم وافر احترامي وتقديري
  5. وفقكم الله وحفظكم من كل سوء استاذنا العزيز ابو احمد
  6. اشكرك استاذنا الفاضل نعم كما تفضلتم لا يوجد في المثال سوى ارقام لكن انا عندي بالملف الاصلي استخراج السعي السنوي ياتي من مجموع درجات ثم تقسم عليهم فيخرج السعي السنوي ويظهر الناتج به مراتب عشرية لكن انا استخدم معادلة للتقريب الى اقرب عدد صحيح فلا تظهر المراتب العشرية في السعي لكن عند الترحيل بالكود الرائع الذي خصصته لرفع الدرجات يستخرج الارقام وهي غير مقربة وتبقى المراتب العشرية. انا اردت ان يكون الناتج مقرب لاقرب رقم صحيح يعني المنازل العشرية صفر. لكم وافر احترامي
  7. يارك الله بجهودكم استاذنا العزيز ابو احمد عند تطبيق الكود على الملف الاصلي الذي به معادلات وبه قسمة المجموع على عدد مرات الامتحانات تظهر المراتب العشرية علما في المعادلات مقربة الى الاعلى لاقرب النصف لكن تظهر هذه المراتب عند تنفيذ الكود . هل يمكن حل لمشكلة المراتب العشرية وفقكم الله وحفظكم
  8. الاستاذ الكريم بن علية حاجي المحترم جعلها الله في ميزان حسناتكم معادلة روعة .وفقكم الله ورعاكم لكم ودي ووافر احترامي
  9. اخي الاستاذ الكريم بن علية حاجي وفقكم الله وحفظكم من كل سوء اعتقد الملف الذي به المعادلة لم يتم رفعه وانما تم رفع نفس ملفي ارجو التفضل بارسال الملف الذي به المعادلة شكرا لجهودكم ويسر الله امركم
  10. السلام عليكم ورحمة الله وبركاته هل بالامكان ان نستدعي تاريخ بلوغ غيابات الطالب 7 أيام وتاريخ بلوغه 14 يوم وتاريخ بلوغه 21 يوم من التاريخ الموجود في الجدول نقبلوا وافر احترامي وفقكم الله وحفظكم من كل سوء نسخة من انذار غياب.xlsm
  11. السلام عليكم ورحمة الله وبركاته كيف نحصي 30 يوما من تاريخ محدد في خلية ثابته ونكتب في خلية هذا التاريخ في الصف16 نكتب يدويا للمرة الاولى كلمة ( لا يستحق ) تحت الخلية التي تساوي التاريخ الذي في الاعلى يعني تحت الخلية التي تساوي ذلك التاريخ ثم نحتاج معادلة ثابتة تظهر كلمة لا يستحق اذا تجاوز30 يوما على تاريخ كتابة كلمة لا يستحق يدويا . شكرا لكم وبارك الله في جهودكم معادلة حساب 30 يوم من تاريخ محدد.xlsx
  12. وعليكم السلام ..بعد حذف الاسم استخدم هذا الكود للاستاذ سليم جزاه الله خيرا Sub salim() Range("A2:A" & Cells(Rows.Count, 1).End(2).Row).SpecialCells(4).EntireRow.Delete End Sub
  13. تحياتي لكم لا يمكن ذلك الا بعمود مساعد ويكون استخراج النوع بالكود حتى لايكون هناك معادلات ومن ثم تفرز على هذا العمود شكرا لكم
  14. الفرز يكون على الاعمدة التي ليس بها معادلات ; والا كيف تفرز معادلة وهي اصلا معادلة تابعة للصف نفسه لذلك المعادلات لايعمل معها الفرز لانها اصلا تابعة للصف التي يقابلها. الصحيح ان تعمل فرز للاعمدة التي ليس بها معادلات تحياتي لكم
  15. اليك الحل باعمدة مساعدة غيرت المعادلات . جرب وان شاء الله يعمل بشكل جيد لكم تحياتي البطاقة المدرسية++.xlsm
  16. احسنتم استاذنا الفاضل لكن انا جرت الكود على الطابعة وكان يطبع الشهادة مرتين لا اعرف السبب لكم تحياتي
  17. احسنتم استاذنا الفاضل الكود يطبع كل شهادة مرتين كيف نجعله يطبع كل شهادة مرة واحدة وفقكم الله وزادكم من فضله
  18. شكرا للاستاذ الفاضلlionheart بامكانك الضغط على الخلايا المطلوبة ثم من تنسيق خلايا ثم محاذاة وتختر من اليمين الى اليسار
×
×
  • اضف...

Important Information