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

Ali Mohamed Ali

المشرفين السابقين
  • Posts

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

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

  • Days Won

    308

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

  1. يمكنك التغيير كما تشاء فى المعادلة الى اى تاريخ تريد وبالنسبة لعلامة السالب يمكنك حلها ببساطة بضرب الناتج فى *-1
  2. تفضل نفس كود استاذنا الكبير سليم له منا كل المحبة والإحترام frais de miss ion 019.xlsm
  3. وعليكم السلام اهلا بك فى المنتدى-تفضل Tab_Ali.xlsx
  4. بارك الله فيك والحمد لله الذى بنعمته تتم الصالحات
  5. تفضل طبعا هيشتغل الضغط على الإنتر بدلا من الزر2.xlsm
  6. يعمل معى كما ترى بالصورة 5الاستيك.rar
  7. من فضلك حدد بالضبط ما يحدث معك بالصور على الملف فالملف يعمل معى تمام
  8. لأنك لم تقم بضبط تنسيق الخلية التى بها جملة السن فى 01/10/2019 كما بالصورة كان عليك من البداية رفع الملف الأصلى للعمل عليه تفضل اجهزه2.xlsm
  9. أحسنت استاذ سليم بارك الله فيك كود ممتاز
  10. تفضل لك ما طلبت -كما انه تم ضبط كود الإدخال والترحيل الى الشيت الضغط على الإنتر بدلا من الزر.xlsm
  11. هذا لكيفية جلب المجموع للخلايا الظاهرة فقط دون المخفية
  12. طبعا بعد اذن استاذنا الكبير سليم تفضل اخى الكريم لك ما طلبت استخراج تاريخ الميلاد من الرقم القومى على ثلاثة خلايا.xlsx
  13. أهلا بك اخى الكريم فى المنتدى عليك بإستخدام خاصية البحث فى المنتدى فهناك موضوعات كثيرة تخص المرتبات
  14. وعليكم السلام تفضل لك ما طلبت Book2.xlsx
  15. تفضل لك ما طلبت وضعت كود لطباعة كل الإستمارات استمارة متابعة حفظ.xlsm
  16. بعد اذن استاذنا الكبير سليم هذه معادلة أخرى لإثراء الموضوع أوفيسنا.xlsx
  17. اذا كنت تقصد هكذا بقائمة منسدلة فتفضل وان لم يكن هذا هو المطلوب فعليك بتوضيح المطلوب بالتفصيل على الملف استمارة متابعة حفظ.xls
  18. تفضل Sub LinkChecks() 'بداية الكود i = 5 'ترمز i هنا الى رقم الصف ويساوى هنا الصف الخامس For Each cb In ActiveSheet.CheckBoxes 'كما ترمز Cb الى شيك بوكس بمعنى فى كل الشيك بوكس الموجود فى الورقة النشطة التى تعمل عليها cb.LinkedCell = Cells(i, "h").Address 'الخلية التى يعمل عليها الشيك بوكس تبدأ فى العمود h -وكما وضحنا سابقا رقم الصف وهو 5 ,وذلك يعنى ان تبدأ من الخلية H5 i = i + 1 'وهذا السطر يعنة الصف الخامس ثم الذى يليه Next cb 'ثم الشيك بوكس التالى End Sub 'نهاية الكود
  19. تفضل Sub LinkChecks() 'بداية الكود i = 5 'ترمز i هنا الى رقم الصف ويساوى هنا الصف الخامس For Each cb In ActiveSheet.CheckBoxes 'كما ترمز Cb الى شيك بوكس بمعنى فى كل الشيك بوكس الموجود فى الورقة النشطة التى تعمل عليها cb.LinkedCell = Cells(i, "h").Address 'الخلية التى يعمل عليها الشيك بوكس تبدأ فى العمود h -وكما وضحنا سابقا رقم الصف وهو 5 ,وذلك يعنى ان تبدأ من الخلية H5 i = i + 1 'وهذا السطر يعنة الصف الخامس ثم الذى يليه Next cb 'ثم الشيك بوكس التالى End Sub 'نهاية الكود
  20. بارك الله فيك استاذنا الكريم وجزاك الله كل خير
  21. تفضل هذا الملف وجدته عندى لعله يفيدك ترحيل الى دفتر اليومية القيود.xlsm
  22. بارك الله فيك وجزاك الله كل خير على كلمات حضرتك الرقيقة والحمد لله الذى بنعمته تتم الصالحات
  23. وعليكم السلام لك ما طلبت بالعربى والإنجليزى تفقيط عربى وانجليزى.xlsm
  24. اهلا بك اخى الكريم فى المنتدى عليك برفع الملف حتى تتم المساعدة ان شاء الله على اكمل وجه
×
×
  • اضف...

Important Information