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

Ali Mohamed Ali

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

  • Posts

    11644

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

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

  • Days Won

    297

 نوع المحتوي 

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

  1. Ali Mohamed Ali
    ممتاز استاذ محمد بارك الله فيك -عمل ممتاز وبالفعل سيفيد العديد من الأعضاء .. أكرمك الله والى النجاح والتقدم دائما لمنتدانا
  2. Ali Mohamed Ali
    رائع استاذ مجدى بارك الله فيك وتقبل الله منك سائر الأعمال
  3. Ali Mohamed Ali
    من فضلك طريقة الدخول الأن الى المنتدى بإميلك وليس بإسم المستخدم ... فإذا أردت الدخول فيجب عليك كتابة الإميل ... وشكراً
  4. Ali Mohamed Ali
    مبروك الأستاذ حسونة إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله
  5. Ali Mohamed Ali
    اللهم امين -بارك الله فيك استاذ مجدى وجزاك الله خير الثواب
  6. Ali Mohamed Ali
    أكرمك الله استاذ ماجد ... بارك الله فيك
  7. Ali Mohamed Ali
    أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك وتقبل الله منك سائر الأعمال وكل عام وانتم بخير
  8. Ali Mohamed Ali
    بارك الله فيك استاذ موسى وزادك الله من فضله ... وكل عام وانتم بخير
  9. Ali Mohamed Ali
    تفضل يمكنك استخدام هذه الدالة المعرفة =RandomNumbers(1,60,0) Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer) Application.Volatile Randomize If IsMissing(Decimals) Or Decimals = 0 Then RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1) Else RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals) End If End Function عدم التكرار.xlsm
  10. Ali Mohamed Ali
    أحسنت أستاذ ابراهيم عمل ممتاز جعله الله فى ميزان حسناتك
  11. Ali Mohamed Ali
    بعد اذن استاذنا الكريم محمد-يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =AND(COUNT($A2:$D2)<>0,A2=MAX($A2:$D2)) 111.xlsx
  12. Ali Mohamed Ali
    وعليكم السلام -يجب عليك التمهل .فانت لا تعرف مدى انشغال الأساتذة - تفضل تم التعديل فاتورة1.xlsm
  13. Ali Mohamed Ali
    أحسنت استاذ مجدى بارك الله فيك وجعله الله فى ميزان حسناتكم ... وكل عام وأنتم بخير
  14. Ali Mohamed Ali
    تفضل كما بالصورة كى تعمل ... أو جرب هذا الكود Sub FFvba() Cells(1, 2) = "123-45-6789" Dim rng As Range Set rng = Range("B1:B4") rng.FlashFill End Sub
  15. Ali Mohamed Ali
    تفضل بعد اذن استاذنا محمد فؤاد Officena1.xlsx
  16. Ali Mohamed Ali
    تفضل تــم عمل المطلوب -فهذا الكود لزر الخروج من ملف الإكسيل بعد الحفظ Private Sub خروج_Click() ThisWorkbook.Saved = True Application.Quit End Sub كما تم عمل زر بكل صفحة للعودة للصفحة الرئيسية Main كل ما عليك هو الضغط على أيقونة Go To Sheets سيظهر لك مربع حوارى عليك بكتابة اسم الصفحة المراد الوصول لها من خلال الضغط على OK اكواد.xlsm
  17. Ali Mohamed Ali
    بارك الله فيك وجزاك الله خير الثواب
  18. Ali Mohamed Ali
    المعادلة تعمل تمام ... ولكن جربها هكذا =CEILING(ROUND(IF(BL10>10000,(AI10-10000)*0.003+(10000-50)*0.008,IF(AND(BL10>5000,BL10<=10000),(AI10-50)*0.008,IF(AND(BL10>1000,BL10<=5000),(AI10-50)*0.0075,IF(AND(BL10>500,BL10<=1000),(AI10-50)*0.007,IF(AND(BL10>250,BL10<=500),(AI10-50)*0.0065,IF(AND(BL10>50,BL10<=250),(AI10-50)*0.006,0)))))),2),0.05)
  19. Ali Mohamed Ali
    أحسنت استاذ ماجد بارك الله فيك
  20. Ali Mohamed Ali
    وعليكم السلام-يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =IFERROR(INDEX(LIST!$A$12:$A$230,SMALL(IF(MONTH(LIST!$G$12:$G$230)=MONTH($C$2),ROW(A$12:A$230)-ROW(A$12)+1),ROWS($A$6:A6))),"") 1قائمة.xlsx
  21. Ali Mohamed Ali
    تمام ببساطة -يمكنك استخدام هذه المعادلة للتسلسل للتخلص من هذه المشكلة .. وبالتالى كده تم اكتمال طلباتك =AGGREGATE(2,5,$A$1:A1)+1 ياسمين 2.xlsx
  22. Ali Mohamed Ali
    تفضل لك ما طلبت بهذه المعادلة =SUMPRODUCT(($C$2:$C$17=$E6)*(SUBTOTAL(103,OFFSET($C2,ROW($C$2:$C$17)-MIN(ROW($C$2:$C$17)),0)))) معادلة عد الخلايا المرئية فقط بشروط.xlsx
  23. Ali Mohamed Ali
    بالتوفيق ان شاء الله ومبارك الترقية ..أعانك الله على مهامك ومسؤلياتك الجديدة
  24. Ali Mohamed Ali
    وعليكم السلام -يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2,$D$2:$D$200,D2,$E$2:$E$200,E2)>1,"مكرر","") Countifs.xlsx
  25. Ali Mohamed Ali
    بارك الله فيك أستاذ ماجد وزادك الله من فضله
×
×
  • اضف...

Important Information

  I accept