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

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


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


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





كود تجميع البيانات

اساتذتي الكرام صباح الخير جميعا في الملف المرفق انا بحاجة الى كود يقوم بتجميع البيانات في صفحة quot;Sheet1quot; بناءا ..



27-11-2019 10:18 صباحا
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 750
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 895
الاعجاب : 93
 Online 
اساتذتي الكرام 
صباح الخير جميعا 
في الملف المرفق انا بحاجة الى كود يقوم بتجميع البيانات في صفحة "Sheet1" بناءا على التاريخ المدخل في "Sheet1" 
حيث يقوم بسحب البيانات من الشيت المختارة حسب التاريخ 
يقوم بتجميع اجمالي العدد 
واجمالي الكلفة
 
 
 
  تجميع البيانات.xlsx   تحميل xlsx مرات التحميل :(4)
الحجم :(14.064) KB





27-11-2019 02:13 مساء
مشاهدة مشاركة منفردة [1]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 Online 
look/images/icons/i1.gif كود تجميع البيانات
جرب هذا الكود (يعطي المجاميع من كل عامود) حسب ما فهمت من المشاركة

Option Explicit
Sub My_macro()
  Dim col%, i%, last_ro%, k%
  Dim sh As Worksheet
  Dim s#, t#
  Dim arr()

ReDim arr(1 To Sheets.Count - 1)
 For i = 1 To Sheets.Count - 1
  arr(i) = Sheets(i + 1).Name
 Next
col = Sheets("Sheet1").Cells(6, Columns.Count).End(1).Column
Sheets("Sheet1").Range("d7").Resize(2, col - 3).ClearContents
 For i = 2 To col - 2
      For k = LBound(arr) To UBound(arr)
        Set sh = Sheets(arr(k))
        last_ro = sh.Cells(Rows.Count, 4).End(3).Row
        t = t + sh.Cells(last_ro, i + 2)
        s = s + Application.Sum(sh.Range(sh.Cells(7, i + 2), _
         sh.Cells(last_ro - 1, i + 2)))
      Next k
      With Sheets("Sheet1").Cells(7, i + 2)
       .Value = s: s = 0
       .Offset(1) = t: t = 0
      End With
Next i
Erase arr
End Sub

الملف مرفق
 
 
  Tajmi3.xlsm   تحميل xlsm مرات التحميل :(3)
الحجم :(36.753) KB


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



27-11-2019 02:30 مساء
مشاهدة مشاركة منفردة [2]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 750
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 895
الاعجاب : 93
 Online 
look/images/icons/i1.gif كود تجميع البيانات
شكرا اخي سليم 
كود جيد جدا ولكن بحاجة الى تعديل وهو ان تكون المجاميع حسب التاريخ المدخل 
بمعنى عند اختيار تاريخ 01/01/2019 يقوم بتجميع البيانات في هذا التاريخ فقط ولا يقوم بادخال نتائج 02/01/2019 وباقي التواريخ




27-11-2019 04:25 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif كود تجميع البيانات
أخي العزيز خالد
يرجى عند طرح أي موضوع أن تضع بعض النتائج المتوقعة ليسهل فهم المطلوب ، فنحن عادةً لا نحن العمل على التخمين ناهيك أنه مضيعة للوقت والجهد

جرب الكود التالي عله يفي بالغرض إن شاء الله

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

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



27-11-2019 04:45 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 750
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 895
الاعجاب : 93
 Online 
look/images/icons/i1.gif كود تجميع البيانات
استاذ ياسر اشكرك على دعمك المتواصل لي 
ما تقوله صحيح 100% وكان يجب علي وضع بعض البيانات المتوقعة 
اشكرك على الحل الذي قدمته لي ولكن لم يلبي طلبي للاسف 
مرفق نفس الشيت تحتوي بيانات متوقعة
 
 
  تجميع البيانات.xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(16.332) KB





27-11-2019 08:30 مساء
مشاهدة مشاركة منفردة [5]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 433
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 17
قوة السمعة : 3417
الاعجاب : 302
 Online 
look/images/icons/i1.gif كود تجميع البيانات
تم معالجة الامر

Option Explicit
Dim i%, col%, ro%, k%, S#
Dim nam
Dim my_rg As Range
Dim cop_rg As Range
Dim sh As Worksheet
Const st$ = "التاريخ"
Sub get_data()
Set cop_rg = Sheets("sheet1").Range("T5").CurrentRegion
col = cop_rg.Columns.Count
Range("a1").Resize(100, col).Clear
 For i = 2 To Sheets.Count
   With Sheets(i)
   .Name = Replace(Sheets(i).Name, "|", "")
   .Name = Sheets(i).Name & "|"
   End With
  Next
For i = 1 To Sheets.Count - 1

cop_rg.Copy Sheets("sheet1").Cells(5 + 6 * (i - 1), 1)
 With Sheets("sheet1").Cells(3 + 6 * (i - 1), "H")
  .Value = Sheets(i + 1).Name
  .Offset(, -1) = st
 End With
Next
ro = Sheets("sheet1").Cells(Rows.Count, 1).End(3).Row
 For i = 6 To ro Step 6
   nam = Sheets("sheet1").Cells(i - 3, "h")
   Sheets("sheet1").Cells(i - 3, "h") = _
   Replace(Sheets("Sheet1").Cells(i - 3, "h"), "|", "")
  Set sh = Sheets(nam)
  ro = sh.Cells(Rows.Count, 4).End(3).Row
   For k = 4 To col + 2
      S = Application.Sum(sh.Range(sh.Cells(7, k), _
       sh.Cells(ro - 1, k)))
       
       With Sheets("sheet1").Cells(i, 2)
        .Offset(, k - 4) = S: S = 0
        .Offset(1, k - 4) = sh.Cells(ro, k)
       End With
    Next k
 Next i
  For i = 2 To Sheets.Count
    Sheets(i).Name = Replace(Sheets(i).Name, "|", "")
   Next
End Sub

الملف من جديد
 
 
 
  tajmi3_new.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(41.511) KB


أثارت هذه المشاركة إعجاب: عبدالله فتحى،



27-11-2019 08:45 مساء
مشاهدة مشاركة منفردة [6]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 750
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 895
الاعجاب : 93
 Online 
look/images/icons/i1.gif كود تجميع البيانات
استاذ سليم انا اشكرك من كل قلبي على الحلول المقترحة التي تقدمها والتي تخدمني وتخدم غيري 
لكن ربما اكون اسأت في توصيل وتوصيف طلبي 
جدول الاستعلام هم جدول واحد فقط تتغبر معطياته بتغير التاريخ ولا اريد ان يقوم بجلب جميع الصفحات ووضهعا في الشيت الاول 
ما احتاجه هو ما قمت به من جمع في الكود الاخير ولكن في نفس ااجدول بمعنى عند تغير التاريخ يقوم بمسح بيانات الجمع القديمة ووضع البيانات الجديدة بناءا على التاريخ المدخل

أثارت هذه المشاركة إعجاب: عبدالله فتحى،



28-11-2019 06:47 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8256
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 432
قوة السمعة : 24049
الاعجاب : 2566
 offline 
look/images/icons/i1.gif كود تجميع البيانات
لما لا تريد محاولة الاجتهاد في دراسة الكود ..؟
على الأقل لتعرف كيف تعدل عليه بما يتناسب مع ملفك

كل ما عليك فعله هو تغيير الدالة المستخدمة من Count  إلى Sum .. وفقط






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود اخفاء ملف العمل فقط وليس تطبيق الاكسيل باكمله amaar
2 90 رمضان بكري
هل ممكن تعديل الكود ayoub2007
6 80 YasserKhalil
ضبط كود تحويل ملف Pdf الى إكسيل هانى على
14 244 YasserKhalil
ترحيل فواتير من ورقة عمل لأخرى (كود للمبتدئين) Transfer Bill Data To Another Sheet YasserKhalil
3 156 YasserKhalil
مشكلة فى تنفيذ كود اخفاء اوراق العمل صلاح الصغير
5 103 YasserKhalil

الكلمات الدلالية
تجميع ، البيانات ،


 







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

الساعة الآن 08:20 مساء

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