أكاديمية الصقر للتدريب

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


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





جمع مجموعة جداول بواسطة vba حلقات تكرارية

السلام عليكم الاستاذة الاعزاء تـــم نقل الموضوع لقسم الأسئلة والإجابات أريد التعلم كيفية جمع عده جداول كل جدول يحتوى عل ..


موضوع مغلق


02-12-2020 03:19 صباحا
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 

السلام عليكم الاستاذة الاعزاء

تـــم نقل الموضوع لقسم الأسئلة والإجابات

أريد التعلم كيفية جمع  عده جداول كل جدول يحتوى على عدد 9 صفوف وعمودين بينهما فاصل عمود واحد يبتداء الجدول مثلا من J5:113  تكون عملية الجمع فى الخلية j15 وهى خلية مدمجه مع الخلية 115 لتصبح خلية واحدة الجدول مكرر اكثر من مرة وليكن اى عدد 10 او 13 او 17 مرة على سبيل المثال يوجد فاصل ثابت بين كل جدول والاخر بمقدار 6 صفوف تحسبا لعناونين الجداول أريد عملية جمع مرة واحدة فقط بواسطة الحلقات التكرارية مع العلم انه قد توجد بعض الخلايا التى ستجمع فارغة من الارقام مرفق ملف للتوضيح الامر لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

The topic has been moved to the questions and answers section

 
 
 
  test1.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(15.283) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي العزيز أحمد
تفضل الكود التالي عله يفي بالغرض (مع شرح لكل سطر في الكود ليسهل عليك تتبع الكود وفهمه والتعديل عليه)
Sub Test()
    'متغير ليحمل رقم الصف في كل حلقة تكرارية
    Dim r As Long
    
    'متغير لمعرفة رقم آخر صف فيه بيانات في العمود العاشر
    Dim lr As Long
    
    'متغير ليحمل رقم الصف للخلية التي لونها أصفر والتي سيتم فيها الجمع
    Dim m As Long
    
    'المتغير يحمل رقم آخر صف به بيانات وهو في المثال الصف رقم 55
    lr = Cells(Rows.Count, "J").End(xlUp).Row
    
    'حلقة تكرارية من أول صف في أول جدول وحتى آخر صف مع التخطي بمقدار 14
    'والرقم 14 هو عدد صفوف الجدول والصفوف الفارغة التي تليه
    For r = 5 To lr Step 14
        'طباعة رقم الصف في النافذة الفورية للتأكد من أن قيمة المتغير
        'هي رقم أول صف في كل جدول
        Debug.Print "r = " & r
        
        'يتم معرفة رقم الصف الذي سيتم الجمع فيه بناءً على قيمة المتغير
        'في الحلقة التكرارية فعلى سبيل المثال في أول حلقة تكرارية قيمة
        'المتغير تساوي 5 لذا فإن الرقم 5 إذا أضفنا عليه 10 سنصل إلى
        'الخلية التي نريد الجمع فيها
        m = r + 10
        Debug.Print "m = " & m
        Debug.Print "-------"
        
        'كل الأسطر السابقة داخل الحلقة التكرارية لتوضيح المسألة لك
        'الآن نبدأ في وضع المعادلة التي تقوم بعملية الجمع
        
        'الخلية التي ستوضع فيها نتيجة الجمع هي الخلية في العمود العاشر
        'في الصف المشار إليه حسب كل جدول
        
        'حيث يتم الإشارة للنطاق بدايةً من الصف الأول لكل جدول وحتى آخر صف فيه
        'لذا قمنا بوضع إضافة لأول رقم للصف مضافاً إليه 8 لأن عدد صفوف الجدول 9
        'وفي النهاية بعد الإشارة نقوم بتحديد ما نريد أن نقوم به وهو الجمع باستخدام
        'Application.Sum
        Cells(m, 10).Value = Application.Sum(Range("J" & r & ":J" & r + 8))
        
    Next r
End Sub
عرض الإجابة




02-12-2020 08:31 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif جمع مجموعة جداول بواسطة vba حلقات تكرارية
وعليكم السلام أخي العزيز أحمد
تفضل الكود التالي عله يفي بالغرض (مع شرح لكل سطر في الكود ليسهل عليك تتبع الكود وفهمه والتعديل عليه)
Sub Test()
    'متغير ليحمل رقم الصف في كل حلقة تكرارية
    Dim r As Long
    
    'متغير لمعرفة رقم آخر صف فيه بيانات في العمود العاشر
    Dim lr As Long
    
    'متغير ليحمل رقم الصف للخلية التي لونها أصفر والتي سيتم فيها الجمع
    Dim m As Long
    
    'المتغير يحمل رقم آخر صف به بيانات وهو في المثال الصف رقم 55
    lr = Cells(Rows.Count, "J").End(xlUp).Row
    
    'حلقة تكرارية من أول صف في أول جدول وحتى آخر صف مع التخطي بمقدار 14
    'والرقم 14 هو عدد صفوف الجدول والصفوف الفارغة التي تليه
    For r = 5 To lr Step 14
        'طباعة رقم الصف في النافذة الفورية للتأكد من أن قيمة المتغير
        'هي رقم أول صف في كل جدول
        Debug.Print "r = " & r
        
        'يتم معرفة رقم الصف الذي سيتم الجمع فيه بناءً على قيمة المتغير
        'في الحلقة التكرارية فعلى سبيل المثال في أول حلقة تكرارية قيمة
        'المتغير تساوي 5 لذا فإن الرقم 5 إذا أضفنا عليه 10 سنصل إلى
        'الخلية التي نريد الجمع فيها
        m = r + 10
        Debug.Print "m = " & m
        Debug.Print "-------"
        
        'كل الأسطر السابقة داخل الحلقة التكرارية لتوضيح المسألة لك
        'الآن نبدأ في وضع المعادلة التي تقوم بعملية الجمع
        
        'الخلية التي ستوضع فيها نتيجة الجمع هي الخلية في العمود العاشر
        'في الصف المشار إليه حسب كل جدول
        
        'حيث يتم الإشارة للنطاق بدايةً من الصف الأول لكل جدول وحتى آخر صف فيه
        'لذا قمنا بوضع إضافة لأول رقم للصف مضافاً إليه 8 لأن عدد صفوف الجدول 9
        'وفي النهاية بعد الإشارة نقوم بتحديد ما نريد أن نقوم به وهو الجمع باستخدام
        'Application.Sum
        Cells(m, 10).Value = Application.Sum(Range("J" & r & ":J" & r + 8))
        
    Next r
End Sub

02-12-2020 10:31 صباحا
مشاهدة مشاركة منفردة [2]
احمد شريف
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-10-2019
رقم العضوية : 15301
المشاركات : 85
الجنس : ذكر
تاريخ الميلاد : 5-2-1973
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 105
 offline 
look/images/icons/i1.gif جمع مجموعة جداول بواسطة vba حلقات تكرارية

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



03-12-2020 03:12 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif جمع مجموعة جداول بواسطة vba حلقات تكرارية
وجزيت خيراً أخي العزيز أحمد
والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
مجموعة ، جداول ، بواسطة ، حلقات ، تكرارية ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:04 صباحا