مطلوب معادلة للجمع بشروط الملف مرفق

[يوسف عطا]

الأخوة الأفاضل

تحية طيبة لكم جميعاً

فى الملف المرفق

العمود الأول به الأسعار

العمود الثانى به الكميات

العمود الثالث به وقت التنفيذات

المطلوب

معادلة فى العمود الرابع لجمع جميع الكميات التى نفذت فى نفس الوقت

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

ولكم جزيل الشكر

Market Data.rar

[بن علية حاجي]

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

أخي الكريم يوسف، عليك وحشة اشتقنا إليك كثيرا ربما كنت أنا الغائب... بالنسبة للمطلوب وحسب ما فهمت إليك بالحل التالي في الملف المرفق وأرجو أني وفقت فيه...

أخوك بن علية

Market Data.rar

[يوسف عطا]

الأخ الغالى بن علية

بركة إنى شوفتك بخير

بالفعل تغيبت مدة طويلة عن المنتدى لظروف مرت بسلام والحمدلله

بخصوص الملف جارى التجربة

وشكراً لك

[يوسف عطا]

الله ينور عليك

هو ده فعلاً المطلوب

[طائع]

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

ارجو من سيادتكم تنقية العشر الأوائل من المرفق فى نفس الصفح أو فى صفحة اخرى

وتشرحلى المعادلة بتاعة فرزهم

hany.rar

[هاني عدلي]

تفضل يا أبو أدهم

جرب المرفقات

hany.rar

[طائع]

مشكوور استاذ هانى انا عايز كمان العشرة الأوائل ازاى اطلعم لوحدهم

[يوسف عطا]

أخى الغالى بن علية

المعادلتان ممتازتان وتعملان تمام التمام

ولكن

الملف يصبح ثقيل جداً جداً خاصة بعد وضع بيانات فى 5 أو 6 آلاف صف

للتذكرة المعادلتان هما كالتالى

معادلة الوقت نفسه

=IF(COUNTIF($C$2:$C2;$C3)>=1;"";SUMPRODUCT(($C$3:$C$65001=$C3)*($B$3:$B$65001)))

معادلة السعر نفسه

=IF(COUNTIF($A$2:$A2;$A3)>=1;"";SUMPRODUCT(($A$3:$A$65001=$A3)*($B$3:$B$65001)))

المطلوب تحويل المعادلتان إلى أكواد وتعمل فى العمودان D & E من السطر الثالث وحتى نهاية العمود

وطلبى التالى أكثر أهمية وهو مرتبط بالطلب الأول وقد يغنى عنه

المعادلتان السابقتان تعملان على سهم واحد المطلوب أن تصلح للعمل على العديد من الأسهم أى سيكون هناك عمود إضافى لاسماء الأسهم

وستكون الأعمدة كما يلى

العمود الأول عمود إسم السهم

العمود الثانى عمود السعر

العمود الثالث عمود الكمية

العمود الرابع عمود الوقت

المطلوب هو

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

بالعمود السادس معادلة مجموع الكمية فى نفس السهم فى نفس الوقت

عشمى أن تكون فكرتى وصلت

ونظراً لأن المعادلات تجعل الملف غاية فى الثقل لدرجة أنى أنتظر أكثر من 5 دقائق وأكثر حتى يبدأ الملف فى الإستجابة والعمل

فالرجاء أن يكون الحل بالأكواد

علماً بأن البيانات ستكون فى حوالى 40 ألف صف وربما أكثر

مع جزيل شكرى لكل من سيدلى بدلوه فى الموضوع أخوتى الكرام

سوق.rar

[يوسف عطا]

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

ارجو من سيادتكم تنقية العشر الأوائل من المرفق فى نفس الصفح أو فى صفحة اخرى

وتشرحلى المعادلة بتاعة فرزهم

hany.rar

مشكوور استاذ هانى انا عايز كمان العشرة الأوائل ازاى اطلعم لوحدهم

كود إستخراج الأوائل وشرحه

إنسخ الكود فى موديول وإستخدم أى زر يعجبك لتشغيل الكود

Sub أوائل()

'

' أوائل

' الماكرو مسجل ‎25/07/2012 بواسطة ‎يوسف عطا يوسف

'

'

'السطر التالى يحدد النطاق الذى يحتوى على بيانات الطلاب ودرجاتهم

Range("C11:F2000").Select

'الأسطر التالية تقوم بفرز النطاق بمعيار المجموع فرزاً تنازلياً لترتيب الطلاب

Selection.Sort Key1:=Range("E11"), Order1:=xlDescending, Header:=xlNo, _

	 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

	 DataOption1:=xlSortNormal

'السطر التالى يقوم بتحديد النطاق الذى فيه العشرة الأوائل بترتيبهم

Range("C11:F20").Select

'السطر التالى لنسخ النطاق السابق

Selection.Copy

Range("J11").Select

'الأسطر التالية تقوم بلصق قيم النطاق السابق فى جدول الأوائل بدءاً من الخلية فى السطر السابق

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

	 :=False, Transpose:=False

'الأسطر التالية تقوم بإعادة ترتيب الطلاب وفقاً لأرقام جلوسهم تصاعدياً

Range("C11:F2000").Select

Application.CutCopyMode = False

Selection.Sort Key1:=Range("C11"), Order1:=xlAscending, Header:=xlGuess, _

	 OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

	 DataOption1:=xlSortNormal

'لتحديد أى خلية خارج نطاق البيانات

Range("A1").Select

End Sub

معادلة ترتيب جميع الطلاب توضع فى الخلية F11 ثم تسحب حتى F2000

=IF(COUNTIF($E$11:E11;E11)>=2;RANK(E11;$E$11:$E$2000;0)&" "&"مكرر";RANK(E11;$E$11:$E$2000;0))

تم تعديل يوليو 25, 2012 بواسطه يوسف عطا