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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه محمود ابو الدهب-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه

برجاء المساعده ف الشيت الاتي اريد ان تجميع كل بند والموجود ف الصفحات حتي يتم معرفه اجمالي ما تم انتاجه من كل بند وشكرا ..



11-07-2019 02:03 مساء
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 145
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 355
الاعجاب : 10
 offline 

برجاء المساعده ف الشيت الاتي 
اريد ان تجميع كل بند والموجود ف الصفحات حتي يتم معرفه اجمالي ما تم انتاجه من كل بند 
وشكرا
 
 
  دراسة.rar   تحميل rar مرات التحميل :(5)
الحجم :(18.297) KB







11-07-2019 04:09 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7370
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 Online 
look/images/icons/i1.gif جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه
السلام عليكم
جرب الكود التالي عله يفي بالغرض إن شاء الله
Sub Test()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim r As Long
    Dim n As Long
    
    Application.ScreenUpdating = False
        Set sh = ThisWorkbook.Worksheets("data")
        sh.Range("F5:F100").ClearContents
        
        For r = 5 To sh.Cells(Rows.Count, 3).End(xlUp).Row
            For Each ws In ThisWorkbook.Worksheets
                For n = 6 To ws.Cells(Rows.Count, 3).End(xlUp).Row
                    If sh.Cells(r, 3).Value = ws.Cells(n, 3).Value And sh.Cells(r, 5).Value = ws.Cells(n, 5).Value Then
                        sh.Cells(r, 6).Value = Val(sh.Cells(r, 6).Value) + Val(Application.WorksheetFunction.Sum(ws.Range("F" & n).Resize(1, 7)))
                    End If
                Next n
            Next ws
        Next r
    Application.ScreenUpdating = True
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، خالد ابوعوف، mahmoud ayad، الصقر،




11-07-2019 05:27 مساء
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5778
الاعجاب : 744
 offline 
look/images/icons/i1.gif جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه
أحسنت استاذ يلسر كود ممتاز بارك الله فيك وزادك الله من فضله
وبعداذن حضرتك ده حل اخر بالمعادلات

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  دراسة.xlsx   تحميل xlsx مرات التحميل :(5)
الحجم :(25.647) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، خالد ابوعوف، mahmoud ayad، الصقر،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


11-07-2019 06:23 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7370
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 Online 
look/images/icons/i1.gif جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه
بارك الله فيك أخي العزيز علي ومشكور على إثراء الموضوع
تقبل وافر تقديري واحترامي

أثارت هذه المشاركة إعجاب: ali mohamed ali، mahmoud ayad،




14-07-2019 07:21 صباحا
مشاهدة مشاركة منفردة [4]
mahmoud ayad
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 145
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 4
يتابعونه : 4
قوة السمعة : 355
الاعجاب : 10
 offline 
look/images/icons/i1.gif جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه
أنت رائع يا مستر ياسر خليل جزاك الله كل خير وزادك من فضله كما اشكر مستر علي محمد علي مشاركتك ومجهودك المبذول جعله الله بميزان حسناتك

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر،




14-07-2019 07:52 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7370
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 414
قوة السمعة : 21255
الاعجاب : 1588
 Online 
look/images/icons/i1.gif جمع بناءا ع الكود ورقم المقايسة لبند ف أكثر من صفحه
وجزيت خيراً أخي الكريم محمود والحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: الصقر،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب فرز بينات جدول فرعي بناءا على أخر أساسي ؟ خيثر يعقوب
7 313 YasserKhalil
سؤال احتاج كود يقوم بكتابة تاريخ اليوم فى خلية بناءا على اذا كانت الخلية المقابة غير فارغة Omar2
13 873 Eslam Abdullah
حذف الصفوف المكرره بناءا على ثلاثة شروط نصر الإيمان
11 418 YasserKhalil
كود لحذف نطاق معين بناءا على رقم خليه elsayed abouzaid
1 253 elsayed abouzaid
اظهار قيم خلايا من شيت أخر بناءاً علي عدة شروط yousef_kaf
11 423 محمود ابو الدهب

الكلمات الدلالية
صفحه ، أكثر ، لبند ، المقايسة ، ورقم ، الكود ، بناءا ،


 







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



الساعة الآن 07:40 مساء

أعلن هنا
أعلن هنا
أعلن هنا