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

طارق محمود

أوفيسنا
  • Posts

    4,533
  • تاريخ الانضمام

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

  • Days Won

    42

كل منشورات العضو طارق محمود

  1. أخي العزيز مهم أن تلغي الشيتات التي يكونها الماكرو في حال أردت إعادة التوزيع في نفس اليوم مهم أن تعرف أيضا أن P_1 سيكون محمل قليلا أكثر من زملاؤه في حالة أن الطلبات يصعب توزيعها بالتساوي
  2. السلام عليكم أخي العزيز لقد إفترضت بيانات وهمية ولكنها تفي بالغرض لأنك لم تضع بيانات كافية ولأن ملفك كان عليه حماية وهذا هو السبب في تأخير الرد إضغط الزر الأزرق لتشغيل الماكرو يبدا بقراءة البيانات كلها ويحفظها ويعدها ثم يسألك عن عدد الأشخاص الذين ستوزع عليهم العمل إن كان عددهم قليل أو البيانات نفسها قليلة ، سيعطيك رسالة خطأ ولن يكمل مثلا إذا كانت البيانات 30 وعدد الأشخاص 1 فقط أو إذا كانت البيانات 30 وعدد الأشخاص 16 (أكثر من نصف عدد البيانات) ثم يبدأ بتكوين شيتات جديدة (شيت لكل شخص) إسم الشيت سيكون P_1_10_6 ، P_2_10_6 ، P_3_10_6 حيث 10_6 تاريخ اليوم والأشخاص P_1 ، P_2 وهكذا ثم يبدأ بتوزيع الأوامر علي الأشخاص ، بحيث يأخذ الشخص طلبين سويا أكبر وأصغر مبلغ وطبعا يتم إستبعاد تلك الطلبات من التوزيع التالي وهكذا وفي الأخير يعطيك رسالة أنه تم توزيع كذا طلب علي كذا شخص help2.rar
  3. السلام عليكم اخي الفاضل ممكن طبعا فالماكرو في هذه الحالة بسيط للغاية ويمكن الإستغناء عنه كالتالي 1. إظهر العمود Q عن طريق تعريضه وتغيير لون الفونط 2. إستخدم وظيفة : Goal Seek من قائمة Tools (إكسل 2003) كالتالي: ** قف علي الخلية Q4 ** ثم أطلب وظيفة : Goal Seek من قائمة Tools ** جهز أن تكون قيمة الخلية Q4 =0 ** عن طريق تغيير الخلية P1 الصفراء والتي تحتوي علي كمية (عدد) الوحدات وسيتغير الرسم أوتوماتيكيا الجزء الثاني من سؤالك ممكن ربنا ييسر به قريبا
  4. أخي العزيز المرفق به زر أحمر غير البيانات ثم إضغط الزر سيظهر علي الرسم مبلغ التعادل وفي الخلية P1 سيظهر كمية (عدد) الوحدات جرب وأخبرني إن كان هذا هو المطلوب ملحوظة: العمود Q به بيانات مساعدة للماكرو فلا تلغيه ولا تخفيه تفضل المرفق نقطة التعادل2.rar
  5. السلام عليكم أخي العزيز عندك حق هذا العيب للمشاركات الحديثة قبل تغيير السيرفر بعد التشاور مع أخونا م/ محمد طاهر - مدير الموقع سيتم علاج هذا العيب في خلال 3 أيام عموما: علاج سريع لهذه الحالة تم تعديل المشاركة السابقة حذفت المرفقات القديمة وأبدلتها بالجديد يمكنك التحميل الآن من نفس المشاركة السابقة
  6. أخي العزيز سؤالك الأول لم يعد واضحا أرفق ملف به ماتطلب سؤالك الثاني الخاص بنقطة التقاطع بالمعادلات تفضل الملف المرفق نقطة التعادل2.rar
  7. السلام عليكم أخي العزيز جرب التالي إفتح ملف الإكسل الذي يحتوي علي الأعمال إنسخ منه الجزء الذي تريد Copy إذهب إلي ملف الوورد إختر لصق خاص - Past Special ومنه إختار أول خيار : Microsoft ...EXCL ستجد ان الجزء الذي نسخته موجود بكامل صفات الإكسل بمعني آخر يمكنك هذا الحل من التعامل مع الجدول بإمكانات الإكسل في الحسابات والوورد في التنسيق ملاحظة: إبدأ بتجربة جزء صغير وليس الورقة كلها دبل كليك علي الجدول داخل الوورد ، ينقل التحكم للإكسل بدواله ومعادلاته وتنسيقاته (من داخل الوورد) جرب وأخبرني
  8. السلام عليكم أخي الكريم أولا: لابد أن تعرف أولا أنك أخ عزيز وغالي جدا علينا جميعا ثانيا : سأرد فقط عن نفسي لأني لاأعرف ظروف باقي الأخوة غالبا ماأكون مشغول فأبحث عمن لديه مشكلة صغيرة ، لاتأخذ وقت في حلها وتصادف معي أن إثنين من مشاركاتك كانت تتطلب مني أنا وقت طويل فتركتها لعلمي أن هناك من هو أقدر مني في المنتدي لحل ذلك في وقت أقل لذا أنصحك بالصبر ، وأؤكد لك أن
  9. السلام عليكم تفضل أخي المرفقات شرح فيديو لعمل الشارت (الرسم البياني) مع الملف الإكسل النتائج ليست كما أوضحتها ولكن الطريقة صحيحة لعلني أخطئت في التطبيق عذرا لقلة الوقت أرجو المراجعة يبدو هناك مشكله في التحميل سأضعها علي رابط خارجي هنــــا http://www.4shared.c...If/Line_Eq.html
  10. السلام عليكم تفضل المرفق وهذا هو الكود Sub manycolors() Set x = Range("c4:bf17") For Each cc In x rcc = cc.Row ccc = cc.Column y = Cells(3, ccc).Value If Cells(rcc, 1).Value <= y And Cells(rcc, 2).Value >= y Then GoSub 30 Next Exit Sub 30 Cells(rcc, ccc).Interior.ColorIndex = rcc - 1 Return End Sub 02.rar
  11. السلام عليكم أخي الحبيب بالإضافة للحلول الممتعة من الأساتذة الكبار أرجو أن تراجع المرفق Example02.rar
  12. السلام عليكم هناك حل سهل باستخدام الجداول المحورية أنظر الفيديو المرفق piv_table.rar
  13. جزاك الله كل خير أخونا الغالي والمميز بمواضيعه وعلمه زادك الله علما وخُلقا
  14. السلام عليكم الشرح صحيح بشرط أن يكون أول عمود في الجدول الذي يحتوي القيمة المطلوبة مرتب تصاعديا ويمكن إضافة العامل الرابع للمعادلة بقيمة صفر لضمان مطابقة القيمة أي =VLOOKUP (LOOKUP_value, table_array, col_index_num,0) بدلا من =VLOOKUP (LOOKUP_value, table_array, col_index_num)
  15. السلام عليكم الحل كما بالمرفق في مشاركتي السابقة ، ليس بالكود فقط بالتسيق الشرطي Conditional format كل المطلوب فقط أن نسخ نفس التنسيق (الفورمات) لباقي الشيت بالنظر للمرفق ، تستطيع عمل نسخ للتنسيق (الفورمات) Copy_Format.rar
  16. السلام عليكم أخي الحبيب / محمد صالح هلا تكرمت بالنظر لموضوع آخر في نفس السياق علي لرابط http://www.officena.net/ib/index.php?showtopic=32634&st=0&p=168331&#entry168331 ولك جزيل الشكر
  17. السلام عليكم أخي الحبيب سأطلب من أخونا العزيز محمد صالح التدخل فهو أعلم بهذا وسيحلها إن شاء الله
  18. السلام عليكم بإضافة في السطر 3 حرف H أو h في اليوم الأجازة أو العطلة أنظر المرفق omsiahAra.rar
  19. السلام عليكم بالإضافة لحل أخي يحي أنظر المرفق Replace_Zero.rar
  20. السلام عليكم أخي العزيز تفضل المرفق وبه الشرح VLOOKUP.rar
  21. السلام عليكم لاداعي أخي العزيز للحياء في هذه الحال كلنا نفعل مثل هذا ، طبيعي المهم (1) لو أردت رفع ملف إكسل للموقع لابد أن تضغطه أولا عن طريق winrar or winzip ثم ترسل الملف المضغوط (2) راجع ردي السابق جيدا وتتبع أعمال خونا محمد صالح الملقب بــ mas123 ستجد مايسرك بهذا الخصوص
  22. السلام عليكم أخي العزيز لايوجد ملف مرفق ولكن يوجد موضوع شديد الشبه في المنتدي علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=31030&st=0&p=156657&hl=%C5%D1%D3%C7%E1&fromsearch=1&#entry156657 وأيضا يمكنك متابعة مواضيع الأخ محمد صالح mas123 فهو عبقري في هذا المجال
  23. السلام عليكم بفرض أن القائمة الأصلية في العمود E والتي تأخذ منها بيانات القائمة المنسدلة منها في العمود A وفرض أن القائمة الأصلية في العمود F والتي تأخذ منها البيانات المقابلة في العمود B إستخدم المعادلة التالية في الخلية B2 ثم إنسخها لباقي العمود كما تحب =VLOOKUP(A2,E:F,2,0)
  24. السلام عليكم إخواني الأعزاء أعضاء ومحبي قسم الأكسس أستأذنكم في هذا الموضوع والموجه للأخ العزيز Taaiy أخي العزيز شد إنتباهي مشاركة لك في الإكسل في موضوع "شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء" للأخ عماد الحسامي وهي وأنا أيضا مثل عماد ولكن أنظر المرفق لعله ييسر لك شيئا أخوكم / طارق محمود tax.rar
  25. السلام عليكم في هذه الحالة عندك 3 حلول الأول رفع الملف علي أي موقع شير مثلا فورشيرد www.4shared.com يتطلب هذا فتح حساب بس بالإميل لدي الموقع ورفع الملف ,,, 5دقائق الثاني تجزئة الملف بالضغط بواسطة Winrar ، شاهدي المرفق ظغط ملف حوالي 19ميجا إلي أجزاء 2.2ميجا (المسموح به في المنتدي) الثالث تقليل حجم الملف أصلا مثلا إن كان عدد الطلبة في شيت كذا 100 ، إلغي 90 وهكذا في جميع الشيتات وإحفظي النسخة الجديدة قليلة الحجم كنموذج ثم إضغطيها وارسليها أخوكم / طارق محمود winrar_Parts.rar
×
×
  • اضف...

Important Information