abouelhassan قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 اخى استاذ طارق ممكن طلبين الكود يعمل اوتو وامكانية اضافة الشيت التقرير بداخل شيت فى ملف الارتباطات حيث ان الكود افضل من المعادلات وكنت الجأ لوضع التقرير بملف منفصل لانه كان ثقيل جدا بينما بالكود اصبح ماشاء الله اشكرك استاذنا واحترامى الشديد جدا
abouelhassan قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 اخى استاذ طارق ممكن طلبين الكود يعمل اوتو وامكانية اضافة الشيت التقرير بداخل شيت فى ملف الارتباطات حيث ان الكود افضل من المعادلات وكنت الجأ لوضع التقرير بملف منفصل لانه كان ثقيل جدا بينما بالكود اصبح ماشاء الله اشكرك استاذنا واحترامى الشديد جدا احترامى
abouelhassan قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 وكمان طلب بالله عليك ااخى اريد كود يضاف للملف الارتباطات فى الحدث workbook sheet ليعمل على كل الشيتات ينفذ الجمع اذا كتبت كلمة الاجمالى يجمع الاربع اعمدة بالله عليك خى لان لدى 40 شيت اقوم بتنفيذ الجمع شهريا وترهقنى هذه العملية يعنى اكتب كلمة الاجمالى يقوم بجمع العمود بس فقط من بعد الصف الاجمالى الذى يسبقه كما بالمرفق السابق معادلات الجمع التى تذهب للتقرير احترام من القلب
طارق محمود قام بنشر نوفمبر 26, 2011 قام بنشر نوفمبر 26, 2011 السلام عليكم اعتقد انك لن تحتاج عملية الأوتوماتيك بعد مشاهدة المرفق عدد الشيتات كما هو 51 بالإضافة إلي شيت التجميع في الأول واسمه ALL وكذلك كود علي الورقة (1) والتي رقمها في الأكواد Sheet11 إن أردت إنسخه لباقي الورقات ============================================ شرح سريع للكود ========================================= هذا الكود يعمل عن طريق الدبل كليك علي العمود الأول (التاريخ) ويقوم بعمل فحص للتاريخ عندما يجد الشهر قد تغير يفحص الخلية المجاورة ، هل بها كلمة الاجمالي إذا لم يجد ، يقوم بإدراج سطر للأسفل وإضافة كلمة الاجمالي وغضافة أيضا تاريخ آخر يوم بالشهر ثم أخيرا يقوم بالمرور مرة اخري علي جميع السطور التي بها كلمة الاجمالي ويسجل عدد الأسطر بينها وبين مايسبقها من كلمة الاجمالي ثم يضع المعادلات لجمع ب1 ، ب2 ، ب3 ، ب4 وهكذا ... ========================================= هذا الكود موجود مرة أخري في الورقة الأولي ALL علي زر (تنفيذ الجمع مع كتابة كلمة الاجمالى اوتوماتيكيا في جميع الشيتات) لعمل نفس الإجراءات ولكن علي الشيتات جميعها فيما عدا الورقة الأولي ALL وقد أضفت أيضا ضعت صفوف جديدة باللون الأزرق في كل الشيتات بدون إجماليات ، بعد الصف 31 لمراجعة أن الكود يعمل علي جميع الشهور وجميع الشيتات تفضل ، إن شاء الله يكون به ماتريد الارتباطات.rar
الـعيدروس قام بنشر نوفمبر 26, 2011 قام بنشر نوفمبر 26, 2011 السلام عليكم الاستاذ الكبير طارق محمود اكوادك عند قرأتها تدخل القارء مغامرة شيقة زادك الله من علمة وفضله
abouelhassan قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 يعجز لسانى عن شكرك ولا يكف قلبى ولسانى عن الدعاء لك استاذ طارق وللاستاذ عبد الله المجرب ابو احمد والاستاذ بن علية عن الدعاء الله يحفظكم ويبارك لكم جميعا امين اخى ظهرت مشكلة بالكود عندما اردت اختباره اولا بالملف المرفق يكتب تاريخ بجانب الاجمالى 1/1/2011 ثم بالشهر الذى يليه 2/1/2011 والذى يليه 3 /1 /2011 وهكذا تسلسلى فاردت اختباره على ملفى فظهرت هذه المشكللة الثانية بالمرفق سامحنى اخى لطلباتى واعزرنى وساعدنى الله يعزك احترام من القلب Untitled.rar
abouelhassan قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 تم التغلب على هذه المشكلة بحذف السطر من الكود بس الكود عندما اضغط عليه فى كل مرة يضيف الاجمالى تحت الاجمال فهل بالامكان اذا وجد الكود كلمة الاجمالى يتخطاها وينتقل لل1ى يليها اخى بارك الله فيك
abouelhassan قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 (معدل) الكود والله تحفة تحفة بس خربتنى جدا وانا لدى حجم الشيت كبير جدا فهل بالامكان استاذنا الله يعزك انا اكتب الاجمالى واضغط على الكود فينفذ الجمع فقط وهذ لكل الشيتات 40 شيت بس الجمع انا اكتب الاجمالى هو يقوم بالجمع معلش سامحنى تفاديا للاخطاء والتقرير اضفت الكود لملفى الارتباطات وهو (التقرير) اصبح شيت ضمن الارتباطات ايضا اخى تأتينى رسالة تم الترحيل ولا تأتى بيانات احترام من القلب تم تعديل نوفمبر 26, 2011 بواسطه abouelhssan
abouelhassan قام بنشر نوفمبر 26, 2011 الكاتب قام بنشر نوفمبر 26, 2011 بعد كل الاختبارات اخى واستاذى طارق اريد ان يتم الجمع بشرط ان اقوم بكتابة كلمة الاجمالى (انا اكتبها) والتى لم بتم التنفيذ عليها من قبل وليس كل الاجمالى فى الشيتات حيث يقوم الكود كل مرة بجمع كل الصفوف التى بها الاجمالى من اول شهر حتى اخر شهر يتم التنفيذ على الصف الذى يحتوى على كلمة الاجمالى ولايوجد بيانات بجوارها وليس كل الاجمالى فى الشيت بمعنى ان الكود يأخذ كل صف به كلمة الاجمالى ويعيد التنفيذ وهو مضيعة للوقت اخى سامحنى اخى فى طلباتى بالله عليك ملحوظة عند التنفيذ فى اول شهر اول صف لا يظهر فى الجمع الظاهر اخى انك عامل الجمع يتم - 1 ناقص صف وهو المطلوب عدا اول شهر يجب ان يتم جمع هذا الصف بالله عليك اخى سامحنى والله احتاج هذا الكود جدااااااااااااااااا وايضا اخى التقرير والله
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 بعد كل الاختبارات اخى واستاذى طارق اريد ان يتم الجمع بشرط ان اقوم بكتابة كلمة الاجمالى (انا اكتبها) والتى لم بتم التنفيذ عليها من قبل وليس كل الاجمالى فى الشيتات حيث يقوم الكود كل مرة بجمع كل الصفوف التى بها الاجمالى من اول شهر حتى اخر شهر يتم التنفيذ على الصف الذى يحتوى على كلمة الاجمالى ولايوجد بيانات بجوارها وليس كل الاجمالى فى الشيت بمعنى ان الكود يأخذ كل صف به كلمة الاجمالى ويعيد التنفيذ وهو مضيعة للوقت اخى سامحنى اخى فى طلباتى بالله عليك ملحوظة عند التنفيذ فى اول شهر اول صف لا يظهر فى الجمع الظاهر اخى انك عامل الجمع يتم - 1 ناقص صف وهو المطلوب عدا اول شهر يجب ان يتم جمع هذا الصف بالله عليك اخى سامحنى والله احتاج هذا الكود جدااااااااااااااااا وايضا اخى التقرير والله احترام وتقدير من اخيك
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 بعد كل الاختبارات اخى واستاذى طارق اريد ان يتم الجمع بشرط ان اقوم بكتابة كلمة الاجمالى (انا اكتبها) والتى لم بتم التنفيذ عليها من قبل وليس كل الاجمالى فى الشيتات حيث يقوم الكود كل مرة بجمع كل الصفوف التى بها الاجمالى من اول شهر حتى اخر شهر يتم التنفيذ على الصف الذى يحتوى على كلمة الاجمالى ولايوجد بيانات بجوارها وليس كل الاجمالى فى الشيت بمعنى ان الكود يأخذ كل صف به كلمة الاجمالى ويعيد التنفيذ وهو مضيعة للوقت اخى سامحنى اخى فى طلباتى بالله عليك ملحوظة عند التنفيذ فى اول شهر اول صف لا يظهر فى الجمع الظاهر اخى انك عامل الجمع يتم - 1 ناقص صف وهو المطلوب عدا اول شهر يجب ان يتم جمع هذا الصف بالله عليك اخى سامحنى والله احتاج هذا الكود جدااااااااااااااااا وايضا اخى التقرير والله احترام وتقدير من اخيك للرفع رفع الله قدركم احترامى
طارق محمود قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم عفوا أخي النت كان غير مضبوط سأجيب نقطة بنقطة ملحوظة عند التنفيذ فى اول شهر اول صف لا يظهر فى الجمع الظاهر اخى انك عامل الجمع يتم - 1 ناقص صف وهو المطلوب عدا اول شهر يجب ان يتم جمع هذا الصف في الكود Sub Sum_Auto() غير السطر Tot(0) = 5 ليكون Tot(0) = 4 في الجزء 'تسجيل اماكن بها الإجمالي LstR = .[a1000].End(xlUp).Row Tot(0) = 4
طارق محمود قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم اريد ان يتم الجمع بشرط ان اقوم بكتابة كلمة الاجمالى (انا اكتبها) والتى لم بتم التنفيذ عليها من قبل وليس كل الاجمالى فى الشيتات حيث يقوم الكود كل مرة بجمع كل الصفوف التى بها الاجمالى من اول شهر حتى اخر شهر يتم التنفيذ على الصف الذى يحتوى على كلمة الاجمالى ولايوجد بيانات بجوارها وليس كل الاجمالى فى الشيت بمعنى ان الكود يأخذ كل صف به كلمة الاجمالى ويعيد التنفيذ وهو مضيعة للوقت ضع الكود التالي في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) TC = Target.Column TR = Target.Row If TC <> 2 Or TR < 6 Then Exit Sub If Target.Value = "الاجمالى" Then LstT_R = 4 For i = 5 To TR - 1 If Cells(i, 2) = "الاجمالى" Then LstT_R = i Next i For b = 5 To 8 ' ' ب1 ، ب2 ، ب3 ، ب4 rr = TR - LstT_R - 1 Cells(TR, b).FormulaR1C1 = "=SUM(R[-" & rr & "]C:R[-1]C)" Next b End If End Sub
طارق محمود قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 لاتنسي وضع الكود في حدث الورقة لجميع الورقات
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 احترام من القلب جارى العملوس والله ما عارف اشكر حضرتك يعجز لسانى عن الشكر والدعاء لحضرتك وسأخبر حضرتك ولاتنسانى اخى بالتقرير احترامى الشديد
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 اخى هاهو ملف الارتباطات به صفحة واحدة والتقرير ومش عارف انفذ الجمع به ولا التقرير ساعدنى اخى الله يعزك مع الاعتبار ان هناك 40 شيت مثله تمام مع اختلاف الاسماء احترام شديد من القلب اخيك الارتباطات1.rar
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 اخى هاهو ملف الارتباطات به صفحة واحدة والتقرير ومش عارف انفذ الجمع به ولا التقرير ساعدنى اخى الله يعزك مع الاعتبار ان هناك 40 شيت مثله تمام مع اختلاف الاسماء احترام شديد من القلب اخيك للرفع رفع الله قدركم احترامى
طارق محمود قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم أخي أباالحسن أكرمك الله تم عمل كود الترحيل علي أساس الملف الذي أرسلته أولا وفيه كان شيت التقرير رقم1 لذلك تجد في أول الكود أنه يتجاهل الشيت 1 ويبدأ في التعامل مع الجميع الشيتات بداية من رقم 2 For sh = 2 To Worksheets.Count Sub AbulHassan() 'مسح البيانات القديمة Range("B2:M4000").ClearContents On Error Resume Next For sh = 2 To Worksheets.Count For a = 5 To Sheets(sh).[b1000].End(xlUp).Row لتوفير الجهد والوقت أخي الكريم إرسل الملف كاملا ولو فيه أسرار عمل إرسل علي الإميل البرنامج في مثل هذه الحالات ، تفصيل حسب الحاجة ، لابد أن يلم معد البرنامج بكل التفاصيل
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 والله اخى واستاذنا باشمهندس طارق انت على راسى بس والله الملف كبير والله مش عارف ارفعه لبطئ النت لدى والله انا احلف بالله العظيم بس هو ده الملف والتغير ان هناك 39 شيت اضافى الى هذه الشيت ولوتريد ارسل لك اسماء الشيتات وبنفس الشيت اخى يتم الاكمال شهر 8 وشهر 9 وشهر 10 وشهر 11 بنفس الترتيب بس ساعدنى اخى ارجوك لعمل الجمع لاننى تخيل 40 شيت اقوم بعمل جمع يدوى لهم كل شهر لاحصل على الاجمالى والله احترامى وانتظرك اخى لان الشهر قرب ان ينتهى واريد ان يتم التنفيذ احترااااااااام من كل القلب
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 ممكن اخى حضرتك تضيف لى الكود والجمع فى الملف مع اعتبار ان صفحة 1 والتقرير بينهما 39 شيت اخر ممكن اخى احترامى
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 تم عمل التقرير تمام المشكلة كانت كما اوضحتها سيادتك صح وضعت الشي للتقرير بأول صفحة ويعمل 100% الحمد لله بفضل الله وفضلك اخى بقى الجمع فقط ارجوا من مساعدتى بالله العظيم احترامى الشديددددددد جداااا لشخصك الفوق الكريم
الـعيدروس قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم كيف طريقة الجمع في كل الشيتات هل هو مدى معين تريد جمعه في كل الشيتات ام لكل شيت مدى معين تريد تعمل عليه جمع
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 اصلح الله حالك اخى يتم الجمع بعد انتهاء الشهر وهو مدى غير محدد اقوم بجمع الاعمدة حتى كلمة الاجمالى التى تسبقها حضرتك ممكن تنظر الى المرفق الذى تفضل استاذنا طارق بعمله هو رائع وفوق الرائع بمراحل بس انا اريد ان يتم الجمع على ان اقوم انا بكتابة كلمة الاجمالى لا يقوم البرنامج بكتابتها احترامى شديد من اخيك
abouelhassan قام بنشر نوفمبر 27, 2011 الكاتب قام بنشر نوفمبر 27, 2011 تم اخى واستاذى طارق تمت عملية الجمع ايضا المشكلة كلها كانت انى واضع التقرير اخر شيت وهو حضرتك وضعه اول شيت والله تم العمل ونجح بفضل الله وفضلك دعاء من القلب لشخصك الكريم جدااااا الله يبارك لك فى حياتك وبيتك ومالك وعلمك ورزقك الجنة
abouelhassan قام بنشر نوفمبر 28, 2011 الكاتب قام بنشر نوفمبر 28, 2011 شكر واجب وغير كافى لك اخى فى الله العبقرى استاذ الاكواد التى لا مثيل لها الا لدى باشمهندس طارق بارك الله فيك ولك وال بيتك اجمعين امين امين امين عشت زخراالله يحفظك تم العمل تمام التمام الله يكرمك والله ويبارك فيك امين احترامى شديد جدا كما وجب الشكر كل الشكر ولايكفيه وخالص دعائى له بكل الخير والله استاذ وخلوق وشديد الاحترام والابداع لؤلؤة المنتدى الاستاذ الفاضل عبدالله المجرب(ابواحمد) حفظك الله اخى فى الله بارك الله فيك ولك امين احترام من القلب ودعاء من خالص قلبى بكل خير الدنيا ونعيم الاخرة وكل ووافرالشكر للاستاذ بن علية حفظك الله اخى وبارك الله فيك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.