مساعدة في ايجاد فلترة

[saif_5]

السلام عليكم 

عندي ملف اكسل ، يوجد شرح في ورقة عمل رقم 2 بالمطلوب ، كرما لا أمرا المساعدة فيه 

هذا رابط للملف ، حاولت ارفعه مباشره هنا ولكن الحجم اكبر من المسموح بقليل

http://up.top4top.net/downloadf-408tood41-zip.html

[ابراهيم الحداد]

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

ضع هذا الكود فى ورقة 2 وخصص له زر

Sub Tra_Data()
arr = Sheet2.Range("2:175").Columns
i = ActiveSheet.TextBox1
For j = LBound(arr) To UBound(arr)
If Sheet2.Cells(1, j).Value = Val(i) Then
Lr = Sheet2.Cells(Rows.Count, Sheet2.Cells(1, j).Column).End(xlUp).Row + 1
x = WorksheetFunction.Max(Range("L4:L" & Range("L" & Rows.Count).End(xlUp).Row))
For R = 4 To Range("L" & Rows.Count).End(xlUp).Row
If Cells(R, "L") = x Then
xx = Cells(R, "L").Offset(0, -1).Value
Sheet2.Cells(Lr, j).Value = xx
End If
Next
End If
Next
End Sub

 

[saif_5]

السلام عليكم يا استاذ زيزو 

ما ضبط معي الكود ، نسخته مثل ماهو في ورقة 2 

[saif_5]

السلام عليكم 

 

يا ليت اللي يعرف الحل يتكرم ويساعدني فيه 

[خالد الرشيدى]

السلام عليكم

مبدئيا ً لم افهم  المطلوب تمام --  زكرت حضرتك ان هناك تواريخ في حين ان هناك اوقات فقط

هل هذه الاوقات تعود الى تاريخ واحد  فقط-- ماذا عن باقي التواريخ واين يتم ادراج بياناتها

هل في نفس الشيت ام في شيت اخر

عموما لحين التوضيح فمثل هذا الكم الكبير من البيانات تنصحك بعدم استخدام معادلات او اكواد حفاظا على حجم الملف وسهوله التعامل معه

انصحك باستخدام ال Pivot Tables والتعامل معها ليس بالامر الصعب او المعقد 

انظر الملف التالي 

مثال 0.zip

[saif_5]

انا حاولت استخذم دالة sumproudact لكن بكمية البيانات هذه ثقيل الملف ويأخذ وقت طويل لمعالجة البيانات ..

 

الملف اللي ارسلته انت حول الفكرة .. انت جبت كل البيانات لكل كود ، من ملف حضرتك انا اريد قيمة العمود A  عند اكبر قيمة من العمود B لكل كود ،

بالنسبة للتواريخ والوقت مش مهمه ،، يعني اعتبرها مش موجوده

وشكرا لحضرتك

تم تعديل فبراير 15, 2017 بواسطه saif_5

[خالد الرشيدى]

السلام عليكم

اخي الكريم انظر المرفق --  وان لم يناسبك العمل قم بتحديد المطلوب بشكل ادق فحضرتك عامل شيت اتنين وكاتب فيها البيانات ومستخدم احد الدوال للإتيان ب مجموع الكميه اذا ما هو المطلوب تنفيذه بشيت اتنين -- اما وعن شيت تلاته حضرتك تريد ترسل السعر اليه مقابل الكود والتاريخ ولكن اين التاريخ حضرتك لم تحدده --

 

مثال 0.rar

 

 

تم تعديل فبراير 15, 2017 بواسطه خالد الرشيدى

[saif_5]

البيانات الموجوده ليوم واحد فقط ، باقي التواريخ موجوده في شتات ثانيه عندي ، عايز اعرف الطريقة وانا اطبق ع باقي التواريخ  ،

السعر اللي طلع معانا عايز ارحله لنفس التاريخ في شيت 3 امام نفس الكود ، انت افترض التاريخ  انه تاريخ اول يوم موجود في شيت 3 

http://up.top4top.net/downloadf-4129prm41-zip.html

مسحت البيانات الموجوده في شيت 3 وحددت المطلوب باللون الاخضر في الشيت اللي انت عملته 

[خالد الرشيدى]

 

ما هى ال Pivot Table

طريقة لإعداد جداول تقارير مجمعة تقوم فيها بإختيار بنود البيانات و إختيار كيفية إظهار المعلومات المجمعة (مجموع، متوسطات، عدد .. الخ).

--  طريقة عمل ال Pivot Table

1- تحديد احد خلايا جدول البيانات -- هنا جدول البيانات موجود ب ورقة 1 ( اي خليه لا يشترط خليه معينة ) 

 

2-من تبويب Insert نختار Pivot Table

 

3- بعد الاختيار يظهر لنا هذا الجدول 

 

  4- ستلاحظ تكون صفحة جديدة تحتوى على قائمة جانبية و خانة بيضاء إلى اليسار

 

5-  

6-

ثم قمت بإنشاء جدول اخر ولكن هذه المره في نفس الشيت لك ان تختار ان يكون في شيت جديد كما سبق ولاكني اريد ان ترى الطريقتين لذا ساضع الجدول بنفس الشيت 

الجدول هذا بمثابه خلاصه كل رمز امامه اكبر كميه والسعر المقابل لها   كيف ؟؟؟؟

وقفت على احد خلايا جدول البيانات الموجوده بورقة 1 ثم 

وعندما ظهر لى الجدول السابق الاشاره اليه حددت خيار وضع الجدول الجديد بنفس الصفحه الموجود بها هذا الجدول الاول الذي انشأناه وحددت اين يوضع لاحظ ...

 

 

 

يلاحظ ان كل الاسعار ظاهره لكل رمز ولكن نحن نريد فقط السعر المقابل لاكبر كميه لهذا  سنقوم بفلترتها

بالوقوف على اى سعر ثم كليك يمين واتبع الخيارات كما بالشكل

 

 

ثم 

 

بقي شي واحد وهو نسخ هذه الاسعار الى شيت تلاته وهذا سيتم في ثلاثه خطوات

1-

2-

3-

 

 

اليك الملف  - اتمني ان يكون الامر قد وضح واي جزئيه لم تصل جيدا ازكرها

 

https://www.mediafire.com/?p7xzppar2tz4g7d

[saif_5]

اشكرك يا استاذ خالد ، هو هذا المطلوب بالضبط ، وشرحك جميل 

 

الله يجزاك الجنة 

[خالد الرشيدى]

اخي الكريم

شكرا جزيلا على هذا الدعاء الطيب وجزاك  الله بمثله

الحمد لله الذي بنعمته تتم الصالحات