اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Ali Mohamed Ali

المشرفين السابقين
  • Posts

    11,621
  • تاريخ الانضمام

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

  • Days Won

    287

مشاركات المكتوبه بواسطه Ali Mohamed Ali

  1. 2,1/   هذا جزء أساسى بالمعادلة لإستخراج أخر عملية ولا تصلح المعادلة بدون هذه الجزئية

    وهذا الكود لطلبك الأخر ورجاءاً لابد من غلق المشاركة فلا يمكن ان يكون هناك أكثر من طلب بالمشاركة الواحدة ..فإنت أردت طلبات أخرى لابد من عمل مشاركة جديدة بالطلبات الجديدة ولكم جزيل الشكر

    Sub RowDeleter()
    On Error Resume Next
    Application.ScreenUpdating = False
        Range("E1:E" & Range("E" & Rows.Count).End(3)(1).Row).AutoFilter 1, 0
            Range("E4:E" & Range("E" & Rows.Count).End(3)(1).Row).SpecialCells(12).EntireRow.Delete
        ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True
    End Sub

     

    Aziz3.xlsb

    • Like 3
  2. وعليكم السلام-ياريت تقوم بتغيير عنوان المشاركة ليصبح ( معادلة IF متعددة الشروط)  وهذه المعادلة تفى بالغرض وشكراً

    =IF(AND($C4<>"غ",$B4="ذكر"),"ناجح",IF(AND($C4<>"غ",$B4="أنثي"),"ناجحة",IF(AND($C4="غ",$B4="ذكر"),"ناجح بحكم القانون",IF(AND($C4="غ",$B4="أنثي"),"ناجحة بحكم القانون",""))))

     

    معادلة IF.xlsx

    • Like 6
  3. تفضل لك ما طلبت ان يكون التقرير بصفحة منفصلة .. لكن لما كل هذا التأخير عند الرد ؟!!! افرض كنت مشغول !!!!  وأعتقد ان المعادلة سهلة ولا تحتاج شرح

    =LOOKUP(2,1/(ورقة1!$A$3:$A$440=$B4),ورقة1!$D$3:$D$440)

    فالجزء الأول من المعادلة ورقة1!$A$3:$A$440=$B4   يقصد به العمود A الموجود بصفحة ورقة1 والذى يخص أسماء أولياء الأمور ثم =الخلية B4 ,والتى بها اسم ولى الأمر الموجود بصفحة التقرير المراد البحث به ثم بعد ذلك النطاق ورقة1!$D$3:$D$440     وهذا هو النطاق الموجود به نتائج البحث وهو عمود رقم السند الموجود بصفحة   ورقة1 ..ومعادلة تاريخ السند مثل رقم السند بالضبط مع اختلاف عمود النتيجة بدلاً من العمود D سيكون العمود E ولكم جزيل الشكر أتمنى ان يكون الأمر سهل لك

     

    Aziz2.xlsx

    • Like 2
  4. وعليكم السلام .. لابد ان يكون هناك ملف اكسيل بأى مشاركة لتدعيمها وتوضيح المطلوب بكل دقة وذلك تجنباً لإهدار الوقت !!

    ولكن عليك بوضع هذا الكود بحدث ThisworkBook  حتى يتم تنفيذ طلبك 

    Private Sub Workbook_Open()
    Worksheets("Main").Activate
        Range("D5").Select
    End Sub

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

     

    Example.xlsm

    • Like 5
  5. وعليكم السلام -تفضل لأن ذلك بسبب انك بالنسبة لشهور السنة الموجودة بالقائمة المنسدلة انت عاملها عام 2021 ..فقد تم تغييرها الى 2022  ..وأما بالنسبة لما لا يظهر معك من  عقوبة ومهمة  وذلك لأنك عامل نطاق القائمة المنسدلة حتى الصف الخامس فقط أما هذان الإختياران فموجودان حتى الصف السابع فقد تم التعديل وشكراً  .. والشرح كما بالصور , حتى يتم غلق المشاركة .. أما بالنسبة لموضوع الترحيل فلابد من فتح مشاركة وموضوع جديد فهذا لا يتم الا بكود ولابد من رفع الملف بإمتداد يقبل إضافة الأكواد وهو Xlsm

    كشف حضور 1مميز.xlsx

    1.png

    2.png

    3.png

    • Like 4
  6. عود حميداً أستاذنا القدير ضاحى .. ودائما تفاجئنا بروائع ممتازة عمل قمة فى الدقة والمهارة ماشاء الله , اللهم اجعل هذا العمل فى ميزان حسناتك وبارك الله فيك أستاذ ضاحى وشكراً جزيلاً على هذه الهدية الممتازة وحشتنا كتير ..اللهم لا تحرمنا من طلاتك علينا وتواجدك فى بيتك الثانى دائماً منتدى أوفيسنا ..اللهم بارك لنا فى جميع أساتذتنا وارحم ياربنا كل من فارقنا واجعل قبره روضة من رياض الجنة وجنبه النيران يا أرحم الراحمين

    • Like 6
  7. مبروك الأستاذ حسونة إنضمامك لأسرة فريق الموقع ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك  .. وأهلاً ومرحباً بك بين أخوتك من أسرة فريق المنتدى الكريم  ..ويسعدنا انضمامك لفريق العمل

    • Like 12
  8. مبروك الأستاذ Mohamed Hicham إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك  ..عن حق وجدارة بارك الله فيك وزادك الله من فضله

     

    • Like 11
    • Thanks 1
×
×
  • اضف...

Important Information