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

Ali Mohamed Ali

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

  • Posts

    11649

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

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

  • Days Won

    304

 نوع المحتوي 

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

  1. Ali Mohamed Ali
    وعليكم السلام-لابد ان يحدث معك هذا الخطأ لأنك تقوم بكتابة المعادلة بطريقة غير صحيحة فلابد ان تكون المعادلة هكذا في كل الصفحات فمثلا اذا كان المبلغ المكتوب بالأرقام الذى تريد تفقيطه في الخلية R2 =kh_TextNum($R2,ورقة1!$E$3,ورقة1!$E$4,ورقة1!$E$5,ورقة1!$E$6,$E$7,$E$8,$E$9) صندوق.xlsm
  2. Ali Mohamed Ali
    وعليكم السلام -تفضل 29-7-TOTEXT.xlsm
  3. Ali Mohamed Ali
    تفضل يمكنك تفهم هذا من هذه الصورة , ثم بعد خطوات الصورة يمكنك عمل Cut للكود ثم التعديل عليه كما تريد وهذا هو الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("A1:h1,H3:H4,E2:G1004,C1000:C1004"), Target) Is Nothing Then Target.Offset(0, 1).Select End If End Sub
  4. Ali Mohamed Ali
    مبروك أستاذ فارس محمد إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله
  5. Ali Mohamed Ali
    مبارك هذا البرنامج استاذنا الكريم -عمل رائع جعله الله في ميزان حسناتك وزادك الله من فضله
  6. Ali Mohamed Ali
    جزاك الله كل خير أستاذ مجدى -عمل رائع , جعله الله في ميزان حسناتك
  7. Ali Mohamed Ali
    وعليكم السلام-أهلا بك في منتدانا الكريم ,تفضل لك ما طلبت رسالة تنبيه.xlsx
  8. Ali Mohamed Ali
    بارك الله فيك وفى كل من قدم المساعدة لكى يخرج هذا العمل بهذا الشكل وجزاكم الله جميعا كل خير
  9. Ali Mohamed Ali
    وعليكم السلام تم تنفيذ طلبك بمعادلة IF مع دالة معرفة LETTEROUT Function LETTEROUT(RNG As Range) Dim I As Integer For I = 1 To Len(RNG) Select Case Asc(Mid(RNG.Value, I, 1)) Case 0 To 64, 123 To 197 LETTEROUT = LETTEROUT & Mid(RNG.Value, I, 1) End Select Next I End Function وهذه هي المعادلة المطلوبة =IF(RIGHT(B2,2)="AM",LETTEROUT(B2),IF(RIGHT(B2,2)="PM",LETTEROUT(B2)+12,"")) A.xlsm
  10. Ali Mohamed Ali
    أسنت أستاذ محمد بارك الله فيك وجزاك الله كل خير
  11. Ali Mohamed Ali
    هو كل يوم بيعمل نسخة جديدة بتاريخ اليوم-وبالتأكيد لا يمكن تغيير هذا التاريخ الذى تم عمل النسخة به فمثلا اذا تم عمل نسخة النهاردة سوف يتم عمل النسخة بتاريخ 29/07/2019 ولا يمكن تغيير هذا التاريخ في اليوم التالى ففي اليوم التالى او غدا سوف يتم عمل نسخة جديدة عند فتح الملف بتاريخ 30/07/2019 .....وهكذا
  12. Ali Mohamed Ali
    وعليكم السلام-تفضل 111.xlsm
  13. Ali Mohamed Ali
    جرب هذا -كما يمكنك حذف الملف نزولا لرغبتك اذا أردت هذا وهناك رابط اخر في المنتدى يمكنك رؤيته https://www.officena.net/ib/topic/45680-هذا-كود-لإظهار-نافذة-تفعيل-الماكرو-مع-تشغيل-الملف/ مراجعة القرأن الكريم.xlsm
  14. Ali Mohamed Ali
    ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات
  15. Ali Mohamed Ali
    تم اضافة الحماية على الملف فى المشاركة السابقة لعدم العبث بالخلايا والمعادلات بارك الله فيك
  16. Ali Mohamed Ali
    أستاذ منير بالفعل كل حاجة موجودة بالملف الذى يسبق مشاركة حضرتك من فضلك انظر اليه
  17. Ali Mohamed Ali
    وعليكم السلام-تفضل https://www.officena.net/ib/topic/46756-ترحيل-بيانات-من-ملف-اكسل-الى-اكسس/ https://www.youtube.com/watch?v=RelLvfilOnQ
  18. Ali Mohamed Ali
    وعليكم السلام -تفضل لك ما طلبت كما تم عمل شاشة دخول بكلمة سر يمكنك فقط اختيار الإسم من الكمبوبوكس وهو : Abdelkarem وكلمة السر : 1111 شحن.xls
  19. Ali Mohamed Ali
    لو ممكن رفع ملفك لنرى ما هي المشكلة ؟
  20. Ali Mohamed Ali
    بعد اذن الأستاذ سليم -تفضل كود واحد يرحل جميع البيانات الى جميع الادارات وفق اسم الادارة ونوع المدرسة2.xlsm
  21. Ali Mohamed Ali
    جزاك الله كل خير أستاذ مجدى وغفر الله لك وتقبل الله سائر أعمالك
  22. Ali Mohamed Ali
    وعليكم السلام بعد اذن استاذنا الكبير بالتأكيد سليم حاصبيا وذلك لأن هذه المعادلة معادلة مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط تفضل Explain_2.xlsx
  23. Ali Mohamed Ali
    وعليكم السلام-تفضل حساب أسابيع العمل.xlsm
  24. Ali Mohamed Ali
    تفضل لك ما طلبت مخالفات الارز.xlsm
  25. Ali Mohamed Ali
    بارك الله فيك وجزاك الله كل خير
×
×
  • اضف...

Important Information

  I accept