أبوعيد

وعليكم السلام لم تذكر أخي ما هي النتيجة المتوقعة ؟ وفي أي خلية تريد إظهار النتيجة ؟ هذه محاولة مني تفضل تحليل المشتريات للموردين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 انتهي عمل الكود

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

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

السلام عليكم بعد إذنكم إخواني سيتم نقلك إلى آخر خلية في العمود A تفضل جرب المرفق active1.rar

يبدو أن الكلمات في الملف مكتوبة بالفرنسي ولم أفهم إلا كلمة date جرب المرفق 1234.rar

وعليكم السلام ربما يفيدك هذا الرابط http://www.officena.net/ib/topic/58789-ماهو-افضل-برنامج-لإضافة-ملف-فلاش-الى-الاكسل/?do=findComment&comment=375462

تم التعديل تفضل جرب المرفق الجديد البرنامج3.rar

جرب المرفق المصنف2.rar

تفضل جرب المرفق بعد الانتهاء من التقرير اضغط زر اس اف البرنامج2.rar

تفضل جرب المرفق التربية - توسيع البطاقة1.rar

لديك أكثر من أربع أعمدة في الملف لا بد من تحديد عمود حتى يتم تعيين الخمس قيم الأعلى فيه أين تريد أن تظهر النتيجة , هل في نفس الجدول في الأعلى أم في مكان آخر ؟

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