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

Ali Mohamed Ali

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

  • Posts

    11654

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

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

  • Days Won

    309

 نوع المحتوي 

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

  1. Ali Mohamed Ali
    ليس هناك مشكلة في هذا -أهم حاجة ان الملف يعمل بكل كفاءة
  2. Ali Mohamed Ali
    فقط عليك الضغط على Alt +F11 وفتح مديول جديد ووضع هذا الكود به مع تحديد الرينج المطلوب كما بالكود وربطه بالزر Sub Print1() Range("a2:b74").PrintOut End Sub
  3. Ali Mohamed Ali
    مش فاهم حاجة ايه موضوع الخلية j46 وضح من فضلك على الملف الذى تريده بالضبط مع الإستعانة بالصور فالمعادلة التي ارساتها اليك تصلح لكل الأوراق
  4. Ali Mohamed Ali
    وعليكم السلام-تفضل الأثاث.xlsm
  5. Ali Mohamed Ali
    أحسنت أستاذ سليم معادلة ممتازة بارك الله فيك وجعله الله في ميزان حسناتك
  6. 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
  7. Ali Mohamed Ali
    وعليكم السلام -تفضل 29-7-TOTEXT.xlsm
  8. 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
  9. Ali Mohamed Ali
    مبروك أستاذ فارس محمد إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله
  10. Ali Mohamed Ali
    مبارك هذا البرنامج استاذنا الكريم -عمل رائع جعله الله في ميزان حسناتك وزادك الله من فضله
  11. Ali Mohamed Ali
    جزاك الله كل خير أستاذ مجدى -عمل رائع , جعله الله في ميزان حسناتك
  12. Ali Mohamed Ali
    وعليكم السلام-أهلا بك في منتدانا الكريم ,تفضل لك ما طلبت رسالة تنبيه.xlsx
  13. Ali Mohamed Ali
    بارك الله فيك وفى كل من قدم المساعدة لكى يخرج هذا العمل بهذا الشكل وجزاكم الله جميعا كل خير
  14. 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
  15. Ali Mohamed Ali
    أسنت أستاذ محمد بارك الله فيك وجزاك الله كل خير
  16. Ali Mohamed Ali
    هو كل يوم بيعمل نسخة جديدة بتاريخ اليوم-وبالتأكيد لا يمكن تغيير هذا التاريخ الذى تم عمل النسخة به فمثلا اذا تم عمل نسخة النهاردة سوف يتم عمل النسخة بتاريخ 29/07/2019 ولا يمكن تغيير هذا التاريخ في اليوم التالى ففي اليوم التالى او غدا سوف يتم عمل نسخة جديدة عند فتح الملف بتاريخ 30/07/2019 .....وهكذا
  17. Ali Mohamed Ali
    وعليكم السلام-تفضل 111.xlsm
  18. Ali Mohamed Ali
    جرب هذا -كما يمكنك حذف الملف نزولا لرغبتك اذا أردت هذا وهناك رابط اخر في المنتدى يمكنك رؤيته https://www.officena.net/ib/topic/45680-هذا-كود-لإظهار-نافذة-تفعيل-الماكرو-مع-تشغيل-الملف/ مراجعة القرأن الكريم.xlsm
  19. Ali Mohamed Ali
    ولك بمثل ما دعوت لى وزيادة والحمد لله الذى بنعمته تتم الصالحات
  20. Ali Mohamed Ali
    تم اضافة الحماية على الملف فى المشاركة السابقة لعدم العبث بالخلايا والمعادلات بارك الله فيك
  21. Ali Mohamed Ali
    أستاذ منير بالفعل كل حاجة موجودة بالملف الذى يسبق مشاركة حضرتك من فضلك انظر اليه
  22. Ali Mohamed Ali
    وعليكم السلام-تفضل https://www.officena.net/ib/topic/46756-ترحيل-بيانات-من-ملف-اكسل-الى-اكسس/ https://www.youtube.com/watch?v=RelLvfilOnQ
  23. Ali Mohamed Ali
    وعليكم السلام -تفضل لك ما طلبت كما تم عمل شاشة دخول بكلمة سر يمكنك فقط اختيار الإسم من الكمبوبوكس وهو : Abdelkarem وكلمة السر : 1111 شحن.xls
  24. Ali Mohamed Ali
    لو ممكن رفع ملفك لنرى ما هي المشكلة ؟
  25. Ali Mohamed Ali
    بعد اذن الأستاذ سليم -تفضل كود واحد يرحل جميع البيانات الى جميع الادارات وفق اسم الادارة ونوع المدرسة2.xlsm
×
×
  • اضف...

Important Information

  I accept