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

Ali Mohamed Ali

المشرفين السابقين
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    11654

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

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

  • Days Won

    309

 نوع المحتوي 

كل منشورات العضو Ali Mohamed Ali

  1. Ali Mohamed Ali
    أحسنت استاذ مجدى بارك الله فيك ورحم الله والديك
  2. Ali Mohamed Ali
    السلام عليكم يمكنك استخدام هذه المعادلة لحساب السنوات =DATEDIF(B18,C18,"y") أما الشهور فهذه المعادلة =DATEDIF(B18,C18,"ym") وأخيرا لحساب فرق الأيام يمكنك استخدام هذه المعادلة =DATEDIF(B18,C18,"md")
  3. Ali Mohamed Ali
    بارك الله فيك وزادك الله من فضله استاذ سليم كود ممتاز
  4. Ali Mohamed Ali
    أحسنت استاذ مجدى عمل رائع بارك الله فيك
  5. Ali Mohamed Ali
    تفضل ghaleb1.xlsx
  6. Ali Mohamed Ali
    بارك الله فيك استاذ سليم وهذا يتم بمعادلة المصفوفة -فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات =IFERROR(INDEX($D:$D,SMALL(IF($A:$A=$G$5,IF($B:$B>=$H$5,IF($B:$B<=$H$6,ROW(B$6:B$7000)-ROW(B$6)+1))),ROWS($K$6:K6))),"") Book11.xlsx
  7. Ali Mohamed Ali
    كود ممتاز استاذ سليم بارك الله فيك وجعله الله فى ميزان حسناتك
  8. Ali Mohamed Ali
    تفضل لك ما طلبت بهذه المعادلة =IF(A2=A1,C1+1,1) تجربة.xlsx
  9. Ali Mohamed Ali
    أحسنت استاذ مجدى بارك الله فيك وجعله الله فى ميزان حسناتك
  10. Ali Mohamed Ali
    وعليكم السلام-بعد اذن الأستاذ وجيه وهذا يكون بالتنسيقات الشرطية كما ترى بالصورة بارك الله فيك
  11. Ali Mohamed Ali
    وعليكم السلام-تفضل هذا هو الرابط الذى تم التعامل من قبل مع هذا الملف يمكنك تحميل الملف منه مرة اخرى وهو يعمل https://www.officena.net/ib/topic/92008-ماعرفت-كيف-احمي-ملفي-من-النسخ-وكيف-ينتحر/?tab=comments#comment-577543
  12. Ali Mohamed Ali
    بارك الله فيك استاذى الكريم وزادك الله من فضله ورحم الله والديك
  13. Ali Mohamed Ali
    بارك الله فيك استاذ مجدى وزادك الله من فضله
  14. Ali Mohamed Ali
    وعليكم السلام Total.xlsm
  15. Ali Mohamed Ali
    أحسنت استاذ سليم كود ممتاز بارك الله فيك وجزاك الله كل خير
  16. Ali Mohamed Ali
    وذلك بهذا الكود Sub InsertPageBreaksByKeyphrase() Dim rangeSelection As Range Dim cellCurrent As Range Set rangeSelection = Application.Selection ActiveSheet.ResetAllPageBreaks For Each cellCurrent In rangeSelection If cellCurrent.Value = "رقم البطاقة التموينية" Then ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _ xlPageBreakManual End If Next cellCurrent End Sub
  17. Ali Mohamed Ali
    وعليكم السلام-وذلك كما بالصورة
  18. Ali Mohamed Ali
    وعليكم السلام-جرب هذا 1.xlsm
  19. Ali Mohamed Ali
    تفضل جرب هذا الفيديو https://www.youtube.com/watch?v=0NBrHj5Ca4E
  20. Ali Mohamed Ali
    تفضل لك ما طلبت Date1.xlsx
  21. Ali Mohamed Ali
    أحسنت استاذ مجدى عمل رائع بارك الله فيك ورحم الله والديك
  22. Ali Mohamed Ali
    كان عليك من البداية استخدام خاصية البحث بالمنتدى قبل رفع هذه المشاركة-تفضل https://www.officena.net/ib/topic/95161-كود-لتغيير-الايام-حسب-الشهر/
  23. Ali Mohamed Ali
    تفضل مسابح(AutoR1ecovered).xlsx
  24. Ali Mohamed Ali
    تفضل Data1.xlsm
  25. Ali Mohamed Ali
    كان عليك من البداية استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/26407-إرسال-ملف-الاكسل-بالايميل-من-الاكسل-sending-mail-from-excel/?tab=comments#comment-125857
×
×
  • اضف...

Important Information

  I accept