برجاء المساعدة بمعادلة ابو بكود لتحقيق المطلوب

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

مرفق ملف موضح به المطلوب .............. وجزاكم الله كل خير .

وشكرا

معرفة اول واخر رقم جلوس للقسم.rar

[طارق محمود]

السلام عليكم

أخي الحبيب

ضع المعادلة التالية في الخلية L7

=COUNTIF($C$2:$C$20,K5)

ثم المعادلة التالية في الخلية K7

=SUMPRODUCT(MAX((B2:B20)*(C2:C20=K5)))

ثم المعادلة التالية في الخلية J7

=SUMPRODUCT(SMALL((B2:B20)*(C2:C20=K5),COUNTA(C2:C20)-L7+1))

[عبدالله المجرب]

السلام عليكم

اخي الفاضل فضل

وبعد إذن الباشمهندس

هذا الحل بالاكواد

معرفة اول واخر رقم جلوس للقسم.rar

[الشهابي]

ما شاء الله أستا ذنا طارق حل بالمعادلات جميل جداً

وأستاذنا المايسترو حل بالأكواد ولا أجمل

قمت بتطبق المعادلات أستاذنا طارق في الصف الثامن ونفس نتائج الكود

تم تعديل يناير 30, 2012 بواسطه الشهابي

[فضل حسين]

البشمهندس / طارق

تسلم الايادى وتسلم العقول الجميلة التى سطرت هذه المعادلات الخطيرة . افكار للمعادلات رائعة مثل البشمهندس طارق الرائع .

الف شكر يابشمهندس وربنا يخليك لنا دوما بفكرك العالى فأنت والله وبدون مبالغة شخصية فاضلة وعظيمة وتأتى دائما بحلول عظيمة . جزاك الله كل خير .

المايسترو حبيب قلبى

انت حكايتك معاية حكاية فأنت منظومة ابداعية غير عادية . متجدد دائما فى اكوادك ونرى الجديد دائما فى اكوادك . تشعرنى دائما بأنك ممكن تقود المطلوب باكثر من لحن وبأكثر من شكل ولكن دائما تفضل الاحدث . متمرد دائما على الافكار القديمة ودائما تأتى بالجديد وبدون نشاذ . ودائما تجعل امثالى الغلابة لابد ان يسألوا ويتعلموا من هذا الفن والجمال .

فأرجو من سيادتك شرح بسيط لى trim و split و ubound الذين جاءوا بالكود الجميل .

والف شكر لك يامايسترو حبيب قلبى .

وللبشمهندس طارق الرائع

[احمدزمان]

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

بعد خالص التحية و التقدير

الأستاذ المهندس طارق

الأستاذ عبدالله مجرب

هذا حل آخر باستخدام المصفوفات

يعني

تضع الداله ثم تضغط shift+ctrl+entr

=MIN(IF($C$2:$C$27=$K$5;$B$2:$B$27))

=MAX(IF($C$2:$C$27=$K$5;$B$2:$B$27))

والتي تعلمتها من الأستاذ عمر الحسيني جزاه الله كل خير

معرفة اول واخر رقم جلوس للقسم.rar

[الشهابي]

أٍستاذنا الكبير / أحمد زمان

ما شاء الله معادلات روعة ومختصرة جداً جزاكم الله خير

بس عفواً يا جماعة ما الفرق بين معادلات الصفيف وغيرها ولماذا نضغط على

shift+ctrl+entr بعد وضع الدالة

أرجو أن توضحوا لنا ذلك والعفو منكم

[عبدالله المجرب]

السلام عليكم اخي فضل

اولاً

هذا الشرح لما طلبت انت والاخ الفاضل الشهابي

ثانياً هذا الكود الجديد (مع التعديل الصحيح)

Sub Abu_Ahmed1()

Application.ScreenUpdating = False

Dim cl As Range

For Each cl In [C2:C20]

If cl = [K5] Then

m = m & Trim(cl.Offset(0, -1)) & ","

Min_V = Trim(cl.Offset(0, -1))

End If

Next

No_V = UBound(Split(m, ","))

For Each c In Split(Mid(m, 1, Len(m) - 1), ",")

If Val(c) > Val(max_V) Then max_V = c

If Val(c) < Val(Min_V) Then Min_V = c

Next

[j9] = Min_V: [K9] = max_V: [L9] = No_V

Application.ScreenUpdating = True

End Sub

[الشهابي]

جزاك الله خير استاذنا / أبو أحمد

[فضل حسين]

استاذى الكبير / المايسترو

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

ربنا يباركلك ويزيدك علما .

[عبدالله المجرب]

حياك الله اخي فضل

وان شاء الله نراك عما قريب من عباقرة الاكواد

[فضل حسين]

حبيب قلبى المايسترو

ربنا يخليك ليه وشكرا ياحبيبى على المجاملة الجميلة دى ويسمع منك ربنا واصبح كما قلت . اثلجت صدرى واشعرتنى بالامل . وعلى فكرة انت مثلى الاعلى فى العطاء والعلم . والله مش عارف اقولك ايه يامايسترو غير

اننى احبك فى الله .

تم تعديل فبراير 2, 2012 بواسطه فضل 1

[عبدالله المجرب]

السلام عليكم

اخي فضل

احبك الله الذي احببتني فيه