أبوعيد

أحسنت يا أبا الحسن والحسين أخي سعد الفقير : الكلام ما قاله أبو الحسن والحسين لا بد من وجود المعادلات حتى تعطي النتيجة المطلوبة وأما في حالة رغبتك في مشاهدة الأسماء مرة أخرى فحل الأخ الكريم أعلاه يفي بالغرض رضي الله عن صحابة رسول الله أجمعين أمين

جرب المرفق ssss1.rar

الأخوة الأعزاء مصطفى محمود مـ/ ياسر فتحي سليم حاصبيا شكرا لكم على كلماتكم الرقيقة وأتمني لكم مزيدا من التقدم والنجاح دخلت المنتدى وأنا لا أعلم من الإكسل إلا اسمه والإن بفضل الله ثم بجهودكم وجهود الأخوة الأعضاء أصبحنا نقترب من القمة تحياتي

أخي العزيز طلبك فيه إشكال وهو إذا كان عندنا مثلا أربعة موظفين كلهم تم كتابة عبارة (لم يباشر) أمام كل منهم فكيف العمل ؟ ماذا هو العمل الذي تريد الكود أن يقوم به ؟ أو ما هي آلية العمل ؟ تحياتي

أسعدكما الله أخواي العزيزان طلعت محمد حسن محمد حسن المحمد أسال الله أن يوفقكما لكل خير شكرا على مروركما وتكرمكما بالتهنئة

ألا ليت الشرور بلا نقاط *** وأن الحرب كانت دون راء أسعد الله أوقاتكم جميعا بالسرور والمحبة شكرا لكم إخواني على هذه المشاعر الجياشة منكم شكرا لك أخي ياسر خليل شكرا لك أخي عادل حنفي شكرا لك أخي الصقر شكرا لك أخي أبوعيدالرحمن البغدادي شكرا لك أخي ياسر العربي شكرا لك أخي عبدالعزيز البسكري شكرا لك أخي زيزو العجوز شكرا لك أخي العيدروس شكرا لك أخي أيمن بهجت شكرا لك أخي خالد الرشيدي شكرا لك أخي سعد الفقير فنحن نقترب من القمة التي قد سبقني إليها إخواني ولكن مع الهمة نصل للقمة فنجد فيها إخوانا ذوو همة همّهم الوحيد مساعدة غيرهم للوصول للقمة فلا يمكن الوصول للقمة إلا بعد بذل الهمة لا تحسبن المجد تمرا أنت آكله *** لن تبلغ المجد حتى تلعق الصبرا

أمين شكرا على كلماتك الطيبة يا أخ عمرو طبعا أنا فهمت شغلك تمام باقي نقطة مهمة جدا في برنامجك وهي أن كمية البضاعة المطلوبة غير موجودة فإذا كان مثلا تاريخ الطلب هو قبل شهر من الآن ولم يتم توريد أي بضاعة حتى الآن لو سألتك الشركة يا عمرو : كم الكمية المطلوبة ؟ لن تستطيع الجواب من خلال البرنامج لأنه لا يوجد خانة تبين ذلك عموما تم حل هذه المشكلة في المرفق الآتي لاحظ الأعمدة الأربعة الجديدة D و F و AD و ِِ AE تفضل تحليل المشتريات للموردين3.rar

السلام عليكم المرفق عبارة عن مجلد يحوي ملف وورد وملف الإكسل افتح ملف الوورد شرحت لك فيه فكرتي تفصيل الحافز.rar

مبارك عليكما الترقية وأتمنى أن تكون هذه الترقية حافزا لكما لتقديم المزيد مزيدا من التقدم مريدا من العطاء مزيدا من الهمة حتى تصلا إلى القمة التي لن يصلها إلا صاحب الهمة تحياتي

وعليكم السلام لم تذكر أخي ما هي النتيجة المتوقعة ؟ وفي أي خلية تريد إظهار النتيجة ؟ هذه محاولة مني تفضل تحليل المشتريات للموردين1.rar

السلام عليكم أخي عبدالرحمن بدوي اسمح لي أن اطرح سؤال وأجيب عليه السؤال لنفرض أن الجامبو به ثلاث مشاكل ( وليس مشكلة واحدة) المشكلة الأولى على بعد 16 سم من اليمين المشكلة الثانية على بعد 50 سم من اليمين المشكلة الثالثة على بعد 70 سم من اليمين (لاحظ هنا أن بداية الحساب تكون من اليمين ) فما هي أرقام الرولات التي سيكون بها خلل ؟ الجواب بما أنك اخترت الطريقة الأولى سنضع عدد الرولات وطول الحافتين وطول الرول الواحد ثم في الخلية c7 نكتب أول مشكلة وهي 16 ونلاحظ الجواب في الخلية C8 أو C9 لنفترض أن الجواب هو 3 تغير الرقم في الخلية C7 إلى المشكلة الثانية وهي 50 ولنفترض أن الجواب هو 7:8 نغير الرقم في الخلية C7 إلى المشكلة الثالثة 70 ولنفترض أن الجواب هو 11 ( لاحظ أننا غيرنا الرقم في الخلية C7 فقط ولم نغير أي رقم في الخلايا الأخرى لأن الحساب يجري على نفس الجامبو ) إذن سيكون الخلل هو في الرول رقم 3 وبين الرولين 7 و 8 وفي الرول رقم 11 تحياتي

السلام عليكم لا حاجة للرسم البياني هذه العملية لها طريقتان في الحساب كما هو موضح في المرفق فإيهما كان صحيحا فاعتمد عليه ولكن يجب أن تجرب المرفق وإن ظهر أي خلل يمكن أصلاحه تنبيه1/ الخلايا الصفراء في المرفق بها معادلات تنبيه2/ إذا كانت النتيجة بهذا الشكل 3 فهذا يعني أن الخلل في الرول رقم 3 إذا كانت النتيجة بهذا الشكل 2:3 فهذا يعني أن الخلل واقع بين الرولين 3 و 2 أي في مكان القطع تحياتي تحياتي repositioning1.rar

السلام عليكم هذا حل بالإكواد اضغط الزر وانتظر قليلا ثم لاحظ النتيجة في العمودين الأصفرين تحياتي متوسط الإقفال لكل شهر.rar

أخي أبوغازي هل جربت المرفق اعلاه ؟ قمت بوضع أرقام في الفورم وتم كتابتها في الخلايا F18 F19 فما المشكلة إذن

السلام عليكم السؤال الثاني لا زال غير واضح الفورم يحتوي على كثير من textbox ولكل واحدة منها رقم حدد القيم التي تريد إظهارها في الشيت , اكتب مثلا أريد أن يظهر محتوى textbox 1 و textbox 2 في الخلية F18 (لأن هذه الخلية فيها قيمتين) وأن يظهر محتوى textbox 4 و textbox 5 و textbox 8 في الخلية F19 (لأن بها ثلاث قيم) أما حل السؤال الثالث print view تجده في المرفق سوال للاستاذة الفضلاء2.rar

تفضل حل المشكلة الثانية في شيت فوائم الفصول غير الخلية F6 ولاحظ النتيجة طلب من اهل الخبرة ف الاكسل3.rar

السلام عليكم السؤال الأول مفهوم وتم حله السؤال الثاني لم يفهم ماذا تقصد بمربع1 . مربع2 هل الخلية المكتوب فيها رقم 1 أو 2 لاحظ المرفق غير الأرقام في الجدول ولاحظ تغيرها في أسفل الجدول سوال للاستاذة الفضلاء1.rar

تفضل جرب المرفق وقريبا إن شاء الله حل المشكلة الثانية طلب من اهل الخبرة ف الاكسل2.rar

السلام عليكم طلبك مش صعب ولكنه يحتاج لوقت تفضل هنا حل المشكلة الأولى اختر الصف الذي تريده ثم اضغط تصفية طلب من اهل الخبرة ف الاكسل1.rar

السلام عليكم أما الأحرف U LR1 W t وغيرها فهي حروف أختارها أنا كما أريد ولكن لابد من إعدائها قيمة وهي تسمى (المتغيرات) وللمزيد من الشرح ادخل على الرابط الآتي http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/?do=findComment&comment=361289 أما تخصوص RESIZE ادخل على الرابط الآتي http://www.officena.net/ib/topic/56933-الخاصية-resize-في-لغة-البرمجة/?do=findComment&comment=361221 تحياتي

اهلا أبوعبدالرحمن تحياتي ليك ولأهل بغداد العروبة بغداد الأصالة بغذاد الشموخ تحياتي تحياتي ألف تحياتي

وعليكم السلام في الشيت الأخير بأمكانك إظهار العمود E أو إخفاؤه تفضل جرب المرفق بطاقة التخصص1.rar

السلام عليكم أخي أبوغازي تفضل الشرح الكود يتكون من جزئين الجزء الأول يتم تنفيذه آليا عند فتح المصنف ووظيفته هي كتابة التاريخ في ثلاثة خلايا وهي C3 , D3 , F3 الموجود في شيت التقرير اليومي وهو كالآتي : Sub Auto_open() يعنى اجعل هذا الكود ينفذ آليا عند فتح المصنف Sheets(2).[d3] = Date اذهب للشيت رقم 2 ( التقرير اليومي ) وضع التاريخ في الخلية D3 Sheets(2).[f3] = "الموافق " & Format(Date, "yyyy/m/d") اذهب للشيت رقم 2 وضع في الخلية F3 كلمة (موافق) وبجانبها التاريخ ولكن بالصيغة المبينة Sheets(2).[c3] = Format(Date, "ddd") اذهب للشيت رقم 2 وضع التاريخ في الخلية C3 ولكن بالكتابة وليس بالرقم ( يعني سبت , أحد وهكذا ) End Sub انهاء الكود الجزء الثاني : يتم فيه ترحيل البيانات من التقرير اليومي إلى شيت اس اف وهو كالآتي : Sub sf() هذا الإجراء قمت أنا بتسميته بـ sf وبإمكانك أن تسميه بما شئت Dim t As Integer, w As Integer, t1 As Integer, t2 As Integer, lr1 As Integer, u As Integer الإعلان عن المتغيرات في هذا الكود lr1 = Application.WorksheetFunction.Count(Sheets(3).Range("B6:B35")) تطلب من الإكسل أن يحسب لك عدد الخلايا التي تحتوى على أرقام في النطاق B6:B35 الموجود في الشيت رقم 3 (اس اف) For u = 6 To lr1 + 6 عمل حلقة تكرارية تبدا من اول سطر في النطاق B6:B35 إلى آخر سطر فيه If Sheets(3).Range("B" & u).Text = Sheets(2).Range("D3").Text Then ابحث في النصوص الموجودة في الشيت رقم 3 في النطاق B6:B35 فعندما يوجد نص مطابق للنص الموجود في الشيت رقم 2 والخلية D3 اعرض هذه الرسالة : لا يمكن الترحيل MsgBox لا يمكن الترحيل"" وهذا يعنى أنه إذا وجد البرنامج التاريخ قد تم إدراجه سابقا فعند الضغط على زر (اس اف) سيقارن الكود هل التاريخ موجود مسبقا أم لا إذا كان موجود يعنى أنه قد تم الترحيل مسبقا فستظهر رسالة : لا يمكن الترحيل وبمعنى آخر أن الترحيل يتم مرة واحدة فقط Exit Sub ثم انهي العمل (هذا إذا كان التاريخ موجودا من السابق) End If Next أما إذا لم يكن التاريخ موجودا فسيكمل الكود عمله كما في الأسفل Sheets(3).Range("B" & 6 + lr1) = Sheets(2).Range("D3").Value اذهب إلى أول خلية فارغة في النطاق B6:B35 الموجود في الشيت رقم 3 (الخاص بأول شركة) وضع فيه التاريخ الموجود في الشيت رقم 2 في الخلية D3 Sheets(3).Range("B" & 43 + lr1) = Sheets(2).Range("D3").Value كرر نفس العمل السابق في النطاق الموجود في الشركة الثانية Sheets(3).Range("B" & 80 + lr1) = Sheets(2).Range("D3").Value كرر نفس العمل السابق في النطاق الموجود في الشركة الثالثة ومعنى هذا أن الكود قام بكتابة التاريخ في كل جدول من الجداول الثلاثة الموجودة في شيت اس اف نأتي الآن إلى نقل القيم من شيت التقرير اليومي (رقم2) إلى شيت اس اف (رقم 3) أولا : الشركة الأولى For t = 6 To 35 عمل حلقة تكرارية تبدأ من السطر رقم 6 إلى السطر رقم 35 وهو الخاص بالشركة الأولى في شيت اس اف If Sheets(3).Range("B" & t) = Sheets(2).Range("D3").Value Then إذا وجدت تاريخ في العمود B الخاص بالشركة الأولى يساوي التاريخ الموجود في الشيت 2 الخلية D3 قم بما يأتي Sheets(3).Range("C" & t) = Sheets(2).[B6].Value انقل القيمة الموجودة في الخلية B6 والشيت 2 إلى العمود C في الخلية المناسبة لها (وهذا يعني انه سينقل الرقم 1) Sheets(3).Range("E" & t).Resize(1, 2) = Sheets(2).[D10].Resize(1, 2).Value انقل القيمتين في الخليتين D10 و E10 إلى المكان الخاص بهما في العمودين E , F (وهذا يعني انه سينقل الرقمين 2 و 3) Sheets(3).Range("G" & t) = Sheets(2).[B11].Value انقل القيمة الموجودة في الخلية B11 والشيت 2 إلى العمود G في الخلية المناسبة لها (وهذا يعني انه سينقل الرقم 4) Sheets(3).Range("H" & t) = Sheets(2).[B13].Value انقل القيمة الموجودة في الخلية B13 والشيت 2 إلى العمود H في الخلية المناسبة لها (وهذا يعني انه سينقل الرقم 5) End If Next ثانيا : الشركة الثانية : بنفس العمل السابق For t1 = 43 To 72 عمل حلقة تكرارية تبدأ من السطر رقم 43 إلى السطر رقم 72 وهو الخاص بالشركة الثانية في شيت اس اف If Sheets(3).Range("B" & t1) = Sheets(2).Range("D3").Value Then Sheets(3).Range("C" & t1) = Sheets(2).[B23].Value Sheets(3).Range("E" & t1).Resize(1, 2) = Sheets(2).[D27].Resize(1, 2).Value Sheets(3).Range("G" & t1) = Sheets(2).[B28].Value Sheets(3).Range("H" & t1) = Sheets(2).[B30].Value End If Next ثالثا : الشركة الثالثة : بنفس العمل السابق For t2 = 80 To 109 عمل حلقة تكرارية تبدأ من السطر رقم 80 إلى السطر رقم 109 وهو الخاص بالشركة الثالثة في شيت اس اف If Sheets(3).Range("B" & t2) = Sheets(2).Range("D3").Value Then Sheets(3).Range("C" & t2) = Sheets(2).[B40].Value Sheets(3).Range("E" & t2).Resize(1, 2) = Sheets(2).[D44].Resize(1, 2).Value Sheets(3).Range("G" & t2) = Sheets(2).[B45].Value Sheets(3).Range("H" & t2) = Sheets(2).[B47].Value End If Next MsgBox "تم الترحيل بنجاح" بعد الانتهاء من الترحيل اعرض هذه الرسالة : تم الترحيل بنجاح End Sub انتهي عمل الكود

أخي العزيز ياسر أقترح على الإدارة أن تفصل موضوعك هذا عن الردود حتى يسهل متابعة دروسك أي يكون موضوعك هذا مقفل حتى يتسنى لك طرح الدروس متتابعة وتفتح صفحة آخرى للردود والاستفسارات تحياتي

أحسنت أحسنت أحسنت بارك الله فيك , دائما في القمة لأنك صاحب همة زادك الله من فضله