جمع وترحيل

[محمد احمد العصري]

السلام عليكم ورحمة الله 

ارجو من الفضلاء في هذا المنتدى الرائع المساعده في ايجاد حل في المشكلة التي تواجهني... فأنا احتاج الى طريقة لجمع عدد من الخلايا ونقل ناتجها الى صفحة اخرى..مثلا دالة تجمع من الخليه a1وحتى الخلية a5 وتضع الناتج في خلية محدده في صفحة اخرى ثم تجمع من الخلية a6وحتى الخليةa10 وتضع الناتج في خليه محدده وهكذا.  ارجو تكرمكم بالمساعده فلم اجد حل لعذه المشكلة رغم اني اتجول في المنتدى بحثا عن حلول سابقه او اعمال فيها حاجتي لكن لم اجد علم بأني متطفل على الاكسل ولا اجد استخدام الوالا فضلا عن الاكواد ولكن احاول استخدم مشاريعكم التي تنشرونها في هذا المنتدى العظيم .. جزاكم الله خيرا وبارك فيكم 

 

[ياسر خليل أبو البراء]

وعليكم السلام ورحمة الله

Sub SUM_Each_Five_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")

    For ct = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 5
        nr = nr + 1
        sh.Range("A" & nr).Value = Application.WorksheetFunction.Sum(ws.Range("A" & ct).Resize(5))
    Next ct

    MsgBox "Done...", 64
End Sub

 

[محمد احمد العصري]

1 ساعه مضت, ياسر خليل أبو البراء said:

وعليكم السلام ورحمة الله

Sub SUM_Each_Five_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")

    For ct = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 5
        nr = nr + 1
        sh.Range("A" & nr).Value = Application.WorksheetFunction.Sum(ws.Range("A" & ct).Resize(5))
    Next ct

    MsgBox "Done...", 64
End Sub

 

جزاك الله خيرا استاذ ياسر وبارك فيك وزادك من فضله ونعيمه واكرمك الله كرما لا حد له... سوف احاول استخدام هذا الكود رغم جهلي. وان تعذر على ارجو كرمك بوضعه في شيت. وتنفيذه.. ان سمح وقتكم.. وان تعذر....فلا نسينا لفضلكم وكرمكم.. 

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم وجزيت خيراً بمثل ما دعوت لي

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

بالنسبة للكود الذي أرفقته ... يفترض وجود ورقتي عمل Sheet1 و Sheet2 ... وفي ورقة العمل Sheet1 في العمود الأول ضع أرقام بشكل عشوائي في النطاق A1:A23 مثلاً
ثم ضع الكود في موديول عادي ونفذ الكود وستجد النتائج بورقة العمل الثانية Sheet2

[سليم حاصبيا]

بعد إذن اخي الحبيب ياسر ابو البراء

جرب هذا الملف حيث يمكنك تحديد عدد الصفوف المطلوبة في كل مجموعة

 

Sum By Choosen_rows.rar

[محمد احمد العصري]

10 ساعات مضت, ياسر خليل أبو البراء said:

بارك الله فيك أخي الكريم وجزيت خيراً بمثل ما دعوت لي

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

بالنسبة للكود الذي أرفقته ... يفترض وجود ورقتي عمل Sheet1 و Sheet2 ... وفي ورقة العمل Sheet1 في العمود الأول ضع أرقام بشكل عشوائي في النطاق A1:A23 مثلاً
ثم ضع الكود في موديول عادي ونفذ الكود وستجد النتائج بورقة العمل الثانية Sheet2

جزاك الله خيرا وبارك فيك ... على تعاونك الكريم .. اعلم اني قليل الحيلة في الاكسل لذلك ارجو الصبر علي ... وسوف ارفق لكم انموذج للمطلوب. المشكلة انه لا توجد كهرباء لدينا الا في العمل فقط لذلك اليوم سوف احاول تطبيق الكود .. مالم سوف اعود لازعاجكم . والله يرعاكم

 

7 ساعات مضت, سليم حاصبيا said:

بعد إذن اخي الحبيب ياسر ابو البراء

جرب هذا الملف حيث يمكنك تحديد عدد الصفوف المطلوبة في كل مجموعة

 

Sum By Choosen_rows.rar

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

[ياسر خليل أبو البراء]

كان الله في عونك أخي العزيز .. وأقولك : ازعج كما تشاء فنحن سنكون في انتظار إزعاجك على الدوااااااااااااام .. فإزعاجك يسعدنا 

 

[سليم حاصبيا]

22 دقائق مضت, ياسر خليل أبو البراء said:

كان الله في عونك أخي العزيز .. وأقولك : ازعج كما تشاء فنحن سنكون في انتظار إزعاجك على الدوااااااااااااام .. فإزعاجك يسعدنا 

 

اخي ياسر

زيادة في الازعاج و زيادة في اثراء الموضوع

نفس الملف لكن بالمعادلات انظر الى الورقة By_formula من فضلك

عسى ان ينال الاعجاب

Sum By Choosen_rows By_fromula.rar

[محمد احمد العصري]

2 ساعات مضت, سليم حاصبيا said:

اخي ياسر

زيادة في الازعاج و زيادة في اثراء الموضوع

نفس الملف لكن بالمعادلات انظر الى الورقة By_formula من فضلك

عسى ان ينال الاعجاب

Sum By Choosen_rows By_fromula.rar

 

2 ساعات مضت, ياسر خليل أبو البراء said:

كان الله في عونك أخي العزيز .. وأقولك : ازعج كما تشاء فنحن سنكون في انتظار إزعاجك على الدوااااااااااااام .. فإزعاجك يسعدنا 

 

اكرمك الله ورفع قدركم ....نظرا لعدم تمكني من شرح الفكرة ارفق لكم الملف الذي اعمل عليه وهو نفس الفكرة ولكن على على خلايا عديدة 

Book55.zip

1 دقيقه مضت, محمد احمد العصري said:

 

اكرمك الله ورفع قدركم ....نظرا لعدم تمكني من شرح الفكرة ارفق لكم الملف الذي اعمل علي 

مع جزيل الشكر للاستاذين الكريمين القديرين الاستاذ ياسر والاستاذ سليم ...فلا كلمات توفيكما حقكما 

تم تعديل أغسطس 15, 2017 بواسطه محمد احمد العصري

[ياسر خليل أبو البراء]

بات المطلوب غير واضح في المرفق الجديد .. ضع بعض النتائج المتوقعة وضع بيانات بما فيه الكفاية لتجربة الأكواد والتأكد من صحتها وحدد بالضبط الخلايا والنطاقات المطلوب العمل عليها

[محمد احمد العصري]

3 ساعات مضت, ياسر خليل أبو البراء said:

بات المطلوب غير واضح في المرفق الجديد .. ضع بعض النتائج المتوقعة وضع بيانات بما فيه الكفاية لتجربة الأكواد والتأكد من صحتها وحدد بالضبط الخلايا والنطاقات المطلوب العمل عليها

السلام عليكم ورحمة الله

لا جديد على ماسبق ذكره استاذ ياسر ..بارك الله فيك وفي الاستاذ سليم ..الجديد هو ان عملية الجمع تتم من الخلية a1 وحتى a50. وترحل النتيجة في شيت آخر. اسمته sheet2 ورسمته لكم في المرفق 

وينطبق هذا الامر الجمع والترحيل على بقية الخلايا d .c.b.e......وحتى الخلية al....

وقد لونت السطر رقم 50 فيsheet1. لمعرفة عدد الخلايا المراد جمعها وترحيلها 

الخلاصة ان عملية الجمع والترحيل تشمل السطر رقم 50 او مايساوية في ترقيم خلايا الاكسل كاملا ويتم ترحية لsheet2 ..

في العمل الثاني من الاستاد سليم ..الذي هو بالدوال هو المطلوب تماما كفكرة .. وينقصه 

ان يشمل كل الخلايا من a.... وحتى al...

ايضا النقل من الورقة1 الى الورقة 2

بعد الجمع والترحيل للورقة2 تحفظ الارقام المنقوله في الورقة 2 

ان ينطبق هذا الامر على جمع ال50 الاخرى. بحيث تصبح الورقة الثانية ورقة مجاميع 

ارجو ان اكون قد وضحت الفكرة ..ووصلتكم 

واعتذر لسيادتكم عن عدم التوضيح 

عفوا في المسلسل الخاص بي  من 1 وحتى 50 وفي تسلسل الخلايا من 7 وحتى 57 ويتم الجمع لكل الخلايا والنقل او الترحيل لجميع السطر ...وهكذ كل 50 ..

واكرر اعتذاري لاني لا استخدم الاكسل ولم اعمل عليه من قبل ... والله يرعاكم 

تم تعديل أغسطس 15, 2017 بواسطه محمد احمد العصري

[ياسر خليل أبو البراء]

جرب التعديل التالي رغم أن التوضيح لم يكن بما فيه الكفاية حيث لم تضرب أمثلة للنتائج المطلوبة .. للتأكد من صحة الأكواد ليس أكثر

Sub SUM_Each_Fifty_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim cl As Long
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")
    
    For cl = 1 To 38
        nr = 6
        For ct = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 50
            nr = nr + 1
            sh.Cells(nr, cl).Value = Application.WorksheetFunction.Sum(ws.Cells(ct, cl).Resize(50))
        Next ct
    Next cl

    MsgBox "Done...", 64
End Sub

 

[محمد احمد العصري]

منذ ساعه, ياسر خليل أبو البراء said:

جرب التعديل التالي رغم أن التوضيح لم يكن بما فيه الكفاية حيث لم تضرب أمثلة للنتائج المطلوبة .. للتأكد من صحة الأكواد ليس أكثر

Sub SUM_Each_Fifty_Cells()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim cl As Long
    Dim ct As Long
    Dim nr As Long

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")
    
    For cl = 1 To 38
        nr = 6
        For ct = 7 To ws.Cells(Rows.Count, 1).End(xlUp).Row Step 50
            nr = nr + 1
            sh.Cells(nr, cl).Value = Application.WorksheetFunction.Sum(ws.Cells(ct, cl).Resize(50))
        Next ct
    Next cl

    MsgBox "Done...", 64
End Sub

 

جزاكم الله خيرا وبارك فيكم استاذ ياسر .. على تعاونكم .صبركم علي ..فقلة فهمي للاكسل من يعقد الامور .. ولكن استمح سيادتكم ..واقول لكم اني قد استعنت بلابتوب جاري ولم استطع تتفيذ الكود .. لكن اجريت عملية جمع على النموذج المرفق وسميتة باسم آخر وسوف ارسله لسيادتكم الان لعله يوضح لسيادتكم الفكرة ...وهي نفس فكرة الاستاذ سليم ..ولكن على خلايا اكثر منa وحتى al. وفي ورقة اخرى وليس في نفس الورقة. واترك لسيادتك تقدير الامر وعمل الانسب. .. رفع الله قدرك 

Book66.zip

[ياسر خليل أبو البراء]

أخي الكريم يرجى عدم أخذ الاقتباسات الطويلة في الردود ..

بالنسبة للكود يقوم بمثل ما تفضلت به تماماً ولكن يبدأ من العمود الثاني لذا في الكود غير في هذا السطر الرقم 1 إلى 2 وفقط

For cl = 1 To 38

بالنسبة للكود ووضع الكود داخل الملف .. برجاء مشاهدة الفيديو التالي

 

[محمد احمد العصري]

منذ ساعه, ياسر خليل أبو البراء said:

أخي الكريم يرجى عدم أخذ الاقتباسات الطويلة في الردود ..

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

 

 

 

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي أخي العزيز محمد والحمد لله أن تم المطلوب على خير