طارق محمود

السلام عليكم أخي الحبيب تفضل المرفق به حل بالجداول المحورية test_Tareq.rar

السلام عليكم أخي العزيز تفضل الحل في المرفق بمعادلات (للأسف طويلة نسبيا) المعادلات في ملف تقرير وتأخذ البيانات من ملف الإرتباطات وطبعا لازم الملفين يكونوا مفتوحين في نفس الوقت تقرير_TAREQ.rar

أخي الحبيب MAHMOUDFOXMAM (محمود علي) أخي الحبيب ابو الحارث (ياسر الحافظ) جزاكما الله خيرا شاكرا لكما مروركما الكريم

أخي العزيز انت لم تقرأ ردي جيدا يوجد بالرد الدالة BIN2DEC يمكنك كتابة مثلا المعادلة =BIN2DEC(10001 ) وأنظر الناتج

السلام عليكم كل عام وأنتم بخير الدالة هي SUMPRODUCT بضرب مصفوفة السطر المراد في المصفوفة الثابتة بالصف الأول أنظر المرفق - الورقة الأولي ملحوظة أخي العزيز لقد لاحظت أن هذه هي نفس تركيبة الأعداد الثنائية Binary Numbers إن كان ذلك فبدون إرهاق إستخدم الدالة BIN2DEC بعد استبدال الفراغات بالأصفار ولاداعي لإستخدام الصف العلوي (مضاعفات الرقم 2) أنظر المرفق - الورقة الثانية Book1_Tareq.rar

السلام عليكم يبدو أن كلا من حل أخي الخالدي وكذلك أخي الحسامي قد أجابا طلبك إن لم يكن فأرجو الإيضاح

السلام عليكم أخي الكريم أولا مبروك عليك تغيير الإسم هذا أفضل ثانيا أخونا الفاضل العزيز الكريم / محمد صالح mas123 لايقصد طبعا أي إزعاج لك بل طلب منك فقط مراجعة المطلوب لتوفير الوقت علي كل من يريد المساعدة ، أخي الحبيب يبدو أنك غير مداوم علي المنتدي مع أنك عضو منذ 2007 فلم تر كثيرا من أعمال المايسترو / محمد صالح mas123 حتي وإن ضايقك جزء من تعليقه فأنا أحب إنزال الرجل قدره وأتعلم منه كثيرا وأحب التعامل معه كما يجب التعامل مع العلماء أرجو ألا تتضايق من تعليقي أنا أيضا وأرجو ألا تدع للشيطان بيننا سبيلا أما بالنسبة لسؤالك فأنا والحمد لله فهمت تماما ماتعنيه ولكني لم أطلع بعد علي مشاركة أخواي الخالدي والحسامي فإن كان الموضوع تم حله فبها ونعم وإلا سأحله لك بإذن الله في أقرب وقت أعذرني علي الإطالة وكل عام وأنتم جميعا بألف خير

السلام عليكم أيضا بالإضافة لحلول الأساتذة / يحي حسين وعبدالله بن المجرب يمكن بالتنسيق الشرطي تظلل المجال كله ثم تغير لون الفونط للأبيض مثلا في أي خلية يكون بها خطأ مثلا إذا ظللت من A1 إلي Z300 وكانت الخلية النشطة في التظليل هي A1 فتستخدم المعادلة التالية في التنسيق الشرطي =ISERROR(A1)

السلام عليكم أخي الكريم هذا الجزء من الكود يكافيء دالة RAND() بالإكسل والتي تستحدث رقم عشوائي بين الصفر والواحد بالضبط مثلها Rnd(1) لذلك ضربنا ناتجها (حد أقصي 1) بالرقم 230 ثم تأخذ الصحيح منه فقط Int ليكون الناتج بين صفر ، 230 وبإضافة 1 للنتيجة يكون الناتج بين 1 ، 231 وهي الصفوف التي بها الإختيار أما Randomize في أول الكود لتسمح بالعشوائية كلما مر الكود بالأمر Rnd(1)

السلام عليكم أخي الحبيب الأسهل أن تجد 29 رقم مثلا من الـ 30 بمعني أن تترك فراغا لإنهاء العملية بسرعة في المرفق 29 رقم فقط: يقوم الكود بتخليق أرقام عشوائية من 2 إلي 232 ومن ثم يأخذ قيم الخلية التي بهذا الرقم العشوائي (بالعمود B) ثم يضعها في المكان المناسب لها في العمود K ويعد الأرقام التي تم تكوينها بالعمود K إذا وصل عددها إلي 29 رقم ينهي الكود وإلا يبدأ بتكوين رقم عشوائي جديد ويعيد الكرة المشكلة أنه يختار رقم في نفس المجال بمعني أنه عشوائيا قد يختار B2 ثم B3 ثم B4 وكلها ستصب في نفس الخلية K2 أي سيكتبها في K2 ثم في K2 ثم في K2 وبمعني آخر أنه قد يختار عشوائيا 10000 رقم ولكنها تقع كلها في 15 خلية مثلا من العمود K إن لم تترك له فراغ ولو خانة واحدة سيأخذ وقتا طويلا إن كان عندك وقت تستطيع تغيير الرقم 29 في الكود ليكون 30 يعني If WorksheetFunction.Count(Range("K2:K32")) = 30 Then Exit Sub بدلا من If WorksheetFunction.Count(Range("K2:K32")) = 29 Then Exit Sub أنظر المرفق test_TAREQ1.rar

مضبوط مافهمته

أخي الكريم ضع أبوستروف قبل الرقم لكي يتم التعامل معه علي أنه نص أي 23 مثلا تكتبها '23 بشرط أن يكون هذا الرقم موجود بالعمود C في الورقة مصر وكل عام وانتم بخير

السلام عليكم أخي العزيز تفضل المرفق دبل كليك علي أي خلية بالعمود B وانظر النتيجة test_TAREQ.rar

السلام عليكم أخي الكريم تفضل الشرح بالصورة المرفقة

معذرة إخواني ، لم اري مشاركتكم

السلام عليكم بعد إذن اخي أبو أحمد العبقري ضع في الخلية C37 المعادلة التالية =VLOOKUP(C36,ورقة2!$A$2:$AH$26,33,0) وطبعا لن توؤثر علي الكود الجميل

السلام عليكم كل عام وانتم بخير أخي العزيز تقول فتحت الملف ولم أفهم شيئ إرفق حل يدوي في نفس الملف مثلا إذا الوقت كذا ، يكون لناتج الذي تريده كذا لأن ...

بسيطة خالص من قائمة Insert ثم Chart كليك علي أي من الأشكال الخاصة بالشارت

السلام عليكم أخي الكريم إرجع للشرح بالمشاركة السابقة وفي رأيي أن تأخذ بالشرط (2) أي تغيير وضع علامة "_" لكل أسماء المجالات الموجودة بالورقة3 التي وضعتها بها مثلا "ايماس 67" يكون "ايماس_67" ثم تستخدم المعادلة التي بالخلية E7 الخطوات لتغيير الإسم خيارين الخيار الأول مثلا "ايماس 67" الوضع الحالي أنت قد أعطيت إسم "ايماس67" بدون مسافات للنطاق المراد ومن الممكن أن تترك الإسم القديم "ايماس67" وتسمي نفس النطاق بالإسم الجديد "ايماس_67" من أي مكان في الملف إضغط Ctrl G للذهاب إلي مكان في الملف ستظهر لك قائمة صغيرة وبأسفلها سطر للعنوان إنسخ الكلمة "ايماس67" بدون مسافات ولاعلامات ترقيم ثم إنتر Enter ستجد المؤشر إنتقل للورقة3 ومضلل علي المجال "ايماس67" أي المجالB3:D20 والخلية النشطة به هي B3 والمفروض أن يكون عنوانها هو مايظهر بالأعلي (مكان ظهور العناوين بالإكسل) فستجد بدلا من عنوانها ستجد إسم المجال - ايماس67 قف عليه وببساطة ضع العلامة "_" بين شقيه وكرر هذا لكل الأسماء التي ليس بها "_" الخيار الثاني إضغط Ctrl F3 ستظهر لك قائمة وبأعلاها مربع تصفية إختر منه آخر خيار ، الجداول ذات أسماء Table Names ثم قف علي كل إسم ليس به "_" وضعها في مكانها وبالنهاية لاتنسي أن تستخدم المعادلة التي بالخلية E7

السلام عليكم أخي العزيز / أبوعاصم أعتقد انني من كان لي شرف عمل هذا الملف وتعتمد فكرته علي تصدير صورة من الشارت (الرسم البياني) بصيغة أوإمتداد gif حاولت شرح الكود بالصورة المرفقة أرجو أن اكون وفقت

السلام عليكم أخي الكريم مرفق الملف وبه ماطلبت (لم أفهم جيدا موضوع الكود المركب) ستجد المطلوب بطريقتين الأحمر يعتمد علي كود العملية وكود الماكينة والأزرق يعتمد فقط علي كود الماكينة إختر مايناسبك لي ملاحظة يمكنك أن تضع المعادلة التالية بالخلية C6 بالورقة "تقرير" =VLOOKUP(C5,INDIRECT(REPLACE(C4,SEARCH(" ",C4),1,"")),2,0) بدلا من تلك الطويلة =IF(C3=1,VLOOKUP(C5,ايماس67[#Data],2,0),IF(C3=2,VLOOKUP(C5,ايماس68[#Data],2,0),IF(C3=3,VLOOKUP(C5,ميكرون28[#Data],2,0),IF(C3=4,VLOOKUP(C5,ميكرون_طلمبات[#Data],2,0),IF(C3=5,VLOOKUP(C5,OTB[#Data],2,0),IF(C3=6,VLOOKUP(C5,اكلاشيه_قديم[#Data],2,0),IF(C3=7,VLOOKUP(C5,اكلاشيه_جديد[#Data],2,0),IF(C3=8,VLOOKUP(C5,بروتش_الى[#Data],2,0),IF(C3=9,VLOOKUP(C5,بروتش_يدوى[#Data],2,0),IF(C3=10,VLOOKUP(C5,مجرى_جديدة1[#Data],2,0),IF(C3=11,VLOOKUP(C5,مجرى_جديدة2[#Data],2,0),IF(C3=12,VLOOKUP(C5,مجرى_قديمة[#Data],2,0),IF(C3=13,VLOOKUP(C5,تسنين_قديم[#Data],2,0),0))))))))))))) بشرط (1) تغيير إلغاء علامة "_" من كل أسماء المجالات التي وضعتها بها مثلا "ميكرون_طلمبات" يكون "ميكرونطلمبات" تركتها لك في الخلية E6 للعلم فقط وستجدها مضبوطة طالما أن أسماء المجالات تساوي نفس أسماء الماكينات بعد حذف المسافات منها مثال كود الماكينة 1 ، 2 ، 3 أو بشرط (2) تغيير وضع علامة "_" لكل أسماء المجالات التي وضعتها بها مثلا "ايماس 67" يكون "ايماس_67" ووقتها تستخدم المعادلة التي بالخلية E7 وطبعا لأن اسماء المجالات ليست ثابتة العلاقة مع أسماء الماكينات ، فستجد أحد الخليتين يعطي ناتج مضبوط والأخري تعطي خطأ حسب الحالة استخراج اخر تاريخ باكثر من شرطTAREQ.rar

أهلا ومرحبا أخي الكريم أولا لازم طبعا تحاول ثم تقصر السؤال علي نقطة محددة أو عدة نقاط لكي تجد ردود كثيرة إن شاء الله وإن لم تستطع فانسخ وصلة (رابط) البرنامج الذي تريده فالمنتدي مليء بمثل هذا البرنامج

السلام عليكم أخي الكريم بعد إذن أخواي الغاليين المقربين إلي نفسي / عادل حنفي وعماد الحسامي تفضل الفيديو المرفق الصغير يوضح ماتطلب ربط الرسم بالمعادلات.rar

السلام عليكم أهلا ومرحبا بك أخي الكريم بين إخوانك أأسف بالنيابة عن إخواني المشرفين علي عدم الإنتباه لطلبك ممكن جدا تجميع الملفات (أو الشيتات المتناثرة) في ملف واحد خاصة وأنها أكيد بنفس التنسيق ويمكن ايضا عمل شيت واحد تجميعي لها جميعا وإن كان عددها كبير (لعدة سنوات) لكن فقط أفضل أن ترسل نموذج من أوامر الشراء هذه لتساعد من يريد مساعدتك لاتنسي ضغطها قبل تحميلها (winrar - winzip)

السلام عليكم تفضل أخي المطلوب بالمرفق (أوفيس 2003) وبه بعض التحايل علي دوال الإكسل استخراج الطلبة الذين لهم دور ثانى ولكن بشروط2.rar