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

Ali Mohamed Ali

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

  • Posts

    11638

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

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

  • Days Won

    291

 نوع المحتوي 

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

  1. Ali Mohamed Ali
    تفضل هذا هو الكود والملف تمام الأن Sub QuitandSave() ThisWorkbook.Save Application.Quit End Sub برنامج_الشركة_2018-2019_الجديد.xlsm
  2. Ali Mohamed Ali
    تفضل هذا بالدالة المعرفة Reversestr Book1.xlsm
  3. Ali Mohamed Ali
    نعم وصل وتم عمل كل اللازم تفضل برنامج_الشركة_2018-2019_الجديد.xlsm
  4. Ali Mohamed Ali
    اهلا بك اخى الكريم بالمنتدى لك ما طلبت بمعادلات الصفيف البحث بين تاريخين.xlsm
  5. Ali Mohamed Ali
    أحسنت استاذى الكريم بارك الله فيك عمل رائع
  6. Ali Mohamed Ali
    هو فين موقع الرفع عشان يكون هناك استجابة ,عليك بعمل كوبى لموقع رفع الملف ولصقه هنا وذلك بعمل كليك يمين على الموقع ثم نسخ أو Copy وبعد ذلك لصقه هنا فى مشاركة جديدة بارك الله فيك
  7. Ali Mohamed Ali
    عليك وضع هذا الرابط ولكن تم العمل على ملف قديم لديك وتم انجاز كل المطلوب بارك الله فيك الشركات.xlsm
  8. Ali Mohamed Ali
    اهلا بك فى المنتدى عليك بتوضيح ما تريده على ملف بالتفصيل بارك الله فيك
  9. Ali Mohamed Ali
    لسه تحت الإنشاء ادعى لأستاذنا وخبيرنا عمرو ان ينهى وينجز البرنامج على خير بارك الله فيكم جميعا
  10. Ali Mohamed Ali
    وعليكم السلام يمكنك تجربة هذه البرامج Passware kit Forensic.V13.5.855 والأخر Reset VBA Password
  11. Ali Mohamed Ali
    بارك الله فيكم جميعا كلها حلول ممتازة ورائعة جزاكم الله كل خير ولك استاذى الكريم سليم هناط تغيير بسيط فى معادلة حضرتك فصاحب السؤال يريد ضرب درجة الخبير فى 175 % والكبير فى 200 % وليس العكس كما بمعادلة حضرتك فالمعادلة تكون كالتالى IF(OR(A2="",B2=""),"",A2*VLOOKUP(B2,{"بدون درجة",0;"الاولى",150;"الثانية",125;"الثالثة",100;"كبير",200;"خبير",175},2,0)/100)
  12. Ali Mohamed Ali
    أحسنت بارك الله فيك استاذى الكريم
  13. Ali Mohamed Ali
    فين الملف نفسه ؟!! بارك الله فيك
  14. Ali Mohamed Ali
    اهلا بك اخى الكريم بالمنتدى عليك برفع الملف وشرح ما تريده بالتفصيل حتى تلقى المساعدة بارك الله فيك
  15. Ali Mohamed Ali
    أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح ما تريده بالتفصيل بارك الله فيك
  16. Ali Mohamed Ali
    بارك الله فيك وجزاك الله كل خير
  17. Ali Mohamed Ali
    وهذا كود اخر ولكن بدون كلمة سر يمنع اضافة ورقة جديدة ايضا ويضاف فى حدث ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False ActiveSheet.Delete MsgBox "Sorry, Adding new Sheet is not allowed" End Sub
  18. Ali Mohamed Ali
    وعليكم السلام يمكنك اضافة هذا الكود فى حدث ThisWorkbook وكلمة السر : 123 Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim z z = Application.InputBox("لإضافة ورقة عمل جديده ادخل باسورد الصلاحيه", "منتدى أوفيسنا") If IsNull(z) Or z = "" Or z = False Or z <> "123" Then Application.DisplayAlerts = False MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation, "منتدى أوفيسنا" Sh.Delete Application.DisplayAlerts = True End If End Sub
  19. Ali Mohamed Ali
    لا ينفع بالمعادلة كل هذا النطاق كما سميته انت انا فقط اريد نطاق العمود D بارك الله فيك
  20. Ali Mohamed Ali
    المعادلة تمام جرب بنفسك RECU_05.xlsm
  21. Ali Mohamed Ali
    وعليكم السلام برنامج ممتاز بارك الله فيك وزادك الله من علمه استاذى الكريم
  22. Ali Mohamed Ali
    ما هو اسم المستخدم وكلمة المرور بارك الله فيك
  23. Ali Mohamed Ali
    وعليكم السلام بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات
  24. Ali Mohamed Ali
    وعليكم السلام تفضل تم الحل بمعادلات الصفيف بارك الله فيك RECU_05.xlsm
  25. Ali Mohamed Ali
    وعليكم السلام احسنت بارك الله فيك
×
×
  • اضف...

Important Information

  I accept