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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


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



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





كود لعمل مجاميع فرعية

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



24-07-2019 08:37 مساء
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 205
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 250
الاعجاب : 24
 offline 

السلام عليكم ورحمة الله وبركاته
ارجوا من الساده الأعضاء العبافرة والمبدعين مساعدتى فى كود برمجى لعمل مجاميع فرعية لمجموعة بيانات قد تكون مشتركة فى بيانات عمود معين مثل رقم الادارة او ماشابه ذلك وقد تكثر البيانات او تقل يعنى مش ثابته فى كمية البيانات المراد عمل مجاميع فرعية لها.
ومرفق ملف به بيانات وصورتبن بهما تخيل وتصور البيانات قبل وبعد المجاميع .
شكراً لكم مقدماً وجعله الله فى ميزان حسناتكم الى يوم القيامة
 
  قبل الإجماليات.jpg   تحميل jpg قبل الإجماليات.jpg مرات التحميل :(0)
الحجم :(398.264) KB
  بعد الإجماليات.jpg   تحميل jpg بعد الإجماليات.jpg مرات التحميل :(1)
الحجم :(391.032) KB
 
  TOTAL_DATA.rar   تحميل rar مرات التحميل :(10)
الحجم :(11.747) KB







25-07-2019 01:34 مساء
مشاهدة مشاركة منفردة [1]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 205
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 250
الاعجاب : 24
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
فضلاً اين تفاعلاتكم ومروركم العطر





26-07-2019 02:34 مساء
مشاهدة مشاركة منفردة [2]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 205
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 250
الاعجاب : 24
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
فضلاً وليس امراً اين تفاعلاتكم ومروركم العطر 
ارجوكم لا تبخلوا على بالنصيحة ... مع تحياتى
 





27-07-2019 09:16 صباحا
مشاهدة مشاركة منفردة [3]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1730
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 592
قوة السمعة : 17902
الاعجاب : 390
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
اخى الكريم
يوجد مشكله عند تحميل الملف
معرفش هذا هذا عندى فقط ام امر عام
يرجى اعادة الرفع مره اخرى مع توضيح المطلوب بدقه حتى يتسنى للاخوه مساعدتك



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



27-07-2019 09:29 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8094
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 427
قوة السمعة : 23526
الاعجاب : 2359
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
أخي الحبيب حسام
لا يوجد مشكلة في التحميل عندي
ها هو الملف مرة أخرى للتحميل
 
 
  TOTAL_DATA.rar   تحميل rar مرات التحميل :(1)
الحجم :(11.747) KB






27-07-2019 10:53 صباحا
مشاهدة مشاركة منفردة [5]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1730
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 592
قوة السمعة : 17902
الاعجاب : 390
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
للاسف يابوبراء نفس المشكله ربما يكون المشكله عندى فى برنامج فك الضغط 

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


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



27-07-2019 09:53 مساء
مشاهدة مشاركة منفردة [6]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
تم بعون الله كتابة الكود اللازم    (الصفحة SALIM من هذا الملف) 
رجاء لا تقم بمسح محتويات الصفحة الرئيسية (Sheet1) لانها مصدر للمعلومات بالنسبة لصفحة العمل

Option Explicit
Sub test()
  Application.ScreenUpdating = False
'====>>> CREATED BY SALIM BN 27/7/2019
Dim lr%, i%
With Sheets("Salim")
.Range("A1").Resize(500, 10).Clear
Sheets("sheet1").Range("a1").CurrentRegion.Copy .Range("a1")
.Range("a1").CurrentRegion.Sort key1:=Range("h1"), Header:=1
 lr = .Cells(Rows.Count, "G").End(3).Row

For i = lr To 2 Step -1
 If .Cells(i, "H") <> .Cells(i - 1, "H") Then
.Cells(i, 1).EntireRow.insert
.Cells(i, "E") = "Count OF :" & .Cells(i - 1, "H")
End If
Next
.Rows("2:2").Delete
End With
calcul
End Sub
'========================================

'=====================================
Sub calcul()
Dim last_ro%
Dim r%, k, S#
Dim xx%, ARR_sum(), ARR_HowMany()
xx = 1
With Sheets("salim")
last_ro = .Cells(Rows.Count, "H").End(3).Row
 For r = 2 To last_ro - 1
 If .Cells(r, "F") <> "" Then
   S = S + .Cells(r, "F")
   k = k + 1
   Else
   ReDim Preserve ARR_sum(1 To xx)
   ReDim Preserve ARR_HowMany(1 To xx)
   ARR_sum(xx) = S: ARR_HowMany(xx) = k
      S = 0: k = 0: xx = xx + 1
   End If
  Next
  k = 1
  '=====================================
 For r = 2 To last_ro
  If .Cells(r, "H") = "" Then
  .Cells(r, "H") = ARR_HowMany(k)
'  .Cells(r, "I") = "بدل ط ع: " & ARR_sum(k)
  .Cells(r, 1).Resize(, 9).Interior.ColorIndex = 24
 k = k + 1
 End If
 Next
  '=============================
 k = 0
    For r = 2 To last_ro
         If .Cells(r, "d") = "" Then
          k = .Cells(r, "d").Row
        End If
    Next
 .Cells(last_ro + 1, "E") = "Count OF :" & .Cells(k + 1, "h")
 .Cells(last_ro + 1, "h") = last_ro - k
 .Cells(last_ro + 1, 1).Resize(, 9).Interior.ColorIndex = 24
 End With
 Application.ScreenUpdating = True
End Sub


الملف مرفق
 
 
 
  TOTAL_DATA.rar   تحميل rar مرات التحميل :(8)
الحجم :(31.203) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، Yasser Elaraby، صلاح الصغير،




28-07-2019 09:03 صباحا
مشاهدة مشاركة منفردة [7]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 429
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3395
الاعجاب : 291
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
المشاركة الأصلية كتبت بواسطة: YasserKhalil
أخي الحبيب حسام
لا يوجد مشكلة في التحميل عندي
ها هو الملف مرة أخرى للتحميل

تم التعديل على الكود  (ليعمل على الفلتر) بدون الحلقات التكرارية المملة والمرهقة للبرنامج وتم ايضاً تحديث الملف           
  لكن لا استطيع تحميله  بمشاركة مستقلة    اذ احصل على ERROR 2004
ولا حتى الكود  لا استطيع رفعه الى هنا (اقتباس) ما السبب يا ترى
مرفق الملف الجديد الذي أرجو نشر الكود الذي يحتويه (هناك شرح للكود داخل الكود نفسه) 
 
 
 
  TOTAL_DATA_by_filter.rar   تحميل rar مرات التحميل :(4)
الحجم :(38.534) KB
  TOTAL_DATA_by_filter.rar   تحميل rar مرات التحميل :(5)
الحجم :(39.852) KB


أثارت هذه المشاركة إعجاب: صلاح الصغير، ashraf_hertlion،




28-07-2019 10:54 صباحا
مشاهدة مشاركة منفردة [8]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1730
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 592
قوة السمعة : 17902
الاعجاب : 390
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
بعد اذن اخى الكريم الاستاذ سليم
جرب الكود التالى فى شيت الصقر
 
 
 
  الصقر.zip   تحميل zip مرات التحميل :(7)
الحجم :(43.242) KB


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


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



29-07-2019 12:28 صباحا
مشاهدة مشاركة منفردة [9]
ashraf_hertlion
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 18-09-2017
رقم العضوية : 540
المشاركات : 205
الجنس : ذكر
تاريخ الميلاد : 7-11-1971
يتابعهم : 14
يتابعونه : 1
قوة السمعة : 250
الاعجاب : 24
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
الف مليون شكر على مروركم العطر الجميل ومنحى بعض من وقتكم .. تم المطلوب بحمدالله والفضل يرجع لله سبحانه وتعالى ثم بفضلكم لكن فى رد الصقر الآخير عند تحميل الملف المرفق وتطبيقه تظهر هذه الرساله المرفقه فى الصورة .
شكراً لحضراتكم جميعاً وجعله الله فى ميزان حسناتكم الى يوم القيامة ... تقبلوا تحياتى  
 
  مجاميع فرعية الصقر 2.jpg   تحميل jpg مجاميع فرعية الصقر 2.jpg مرات التحميل :(1)
الحجم :(191.391) KB
  مجاميع فرعية الصقر 1.jpg   تحميل jpg مجاميع فرعية الصقر 1.jpg مرات التحميل :(1)
الحجم :(47.27) KB
 






29-07-2019 06:37 صباحا
مشاهدة مشاركة منفردة [10]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1730
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 592
قوة السمعة : 17902
الاعجاب : 390
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif كود لعمل مجاميع فرعية
هل الشيت عليه حمايه ؟ 
الكود يعمل جيدا عندى وتم تجربته مره اخرى الان



توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله





الكلمات الدلالية
فرعية ، لعمل ، مجاميع ،


 







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



الساعة الآن 11:27 صباحا

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