(تمت الاجابة) كود لاستخراج الاسماء بثلاث شروط

[فضل حسين]

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

برجاء المساعدة بكود لاستخراج اسماء الطلبة طبقا لثلاث شروط

مرفق الملف موضح به المطلوب

وجزاكم الله كل خير ......... والف شكر على ماتقدموه من اعمال رائعة

كود لاستخراج الاسماء بثلاث شروط.rar

[طارق محمود]

السلام عليكم

تفضل اخي المرفق

علي الرابط

=====

تم اضافة المرفق للمشاركة

كود لاستخراج الاسماء بثلاث شروط1.rar

تم تعديل فبراير 26, 2012 بواسطه اا عبدالله المجرب اا

[الـعيدروس]

السلام عليكم

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

كود مميز بارك الله فيك وزادك من فضله وعلمة

بعد اذنك اضافة بسيطه تلوين النتائج في الجدول

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

تقبل تحياتي وشكري

كود لاستخراج الاسماء بثلاث شروط.rar

[فضل حسين]

استاذنا الفاضل البشمهندس / طارق

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

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

ان يحضر ايضا الاسماء والدرجات للمواد التى حصلت على مثلا 5 او تساوى 5 وعلى مثلا 9 او تساوى 9 وهكذا

ولايكتفى الكود ان يحضر فقط لاغير اكبر من او اصغر من

وعلى فكرة ايضا الكود لايحضر <> لايساوى فعندما اكتب <> مثلا 5 يظهر ايضا خطأ فى الكود

اكرر شكرى وامتنانى وتقديرى لسيادتكم وعلى كودكم الرائع . وارجو حل هذه الملاحظة.

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

[منياوى]

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

السلام عليكم

اخي فضل

عندما شاهدت مرفق الاستاذ البشمهندس طارق لم احاول ان اقوم بحل اخر لان حله من الابداع ما تركني انشغل في تفحص حركة الكود

سلمت يمينك استاذ طارق

=========

بعد ملاحظتك الاخيرة وضعت حل باستخدام التصفية المتقدمة

جرب المرفق فقد اصبح بامكانك ان تبحث عن

1. اصغر من القيمة(>)

2. اكبر من القيمة (<)

3. تساوي القيمة (=)

4. اكبر من او تساوي القيمة (=<)

5. اصفر من او تساوي القيمة (=>)

6. لا تساوي القيمة (<>)

جرب المرفق بتاني واعلمني النتيجة

كود لاستخراج الاسماء بثلاث شروط1.rar

[فضل حسين]

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

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

بالطبع ياحبيبى حل ممتاز وخطير وابداعى كما تعودت منك ياحبيبى دائما .

ولكن المشكلة من الناحية العملية ان حجم البيانات كبير جدا بيصل الى مايقرب الى 3000 بيان هذه نقطة

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

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

فى النهاية الف شكر ياحبيبى يامايسترو

والف شكر للبشمهندس

والف شكر ابو نصار

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

وشكرا

[الخالدي]

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

جرب الكود التالي المقتبس من كود الاستاذ طارق

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$I$1" Or Target.Address = "$I$2" Then

[I3:J1000].ClearContents

a = WorksheetFunction.Match( [$I$1], [A1:F1], 0)

For r = 4 To [A10000].End(xlUp).Row

	wr = [I10000].End(xlUp).Row + 1

		If Application.CountIf(Cells(r, a), [$I$2]) = 1 Then

			Cells(wr, "I") = Cells(r, 1)

			Cells(wr, "J") = Cells(r, a)

		End If

Next r

		End If

End Sub

كود لاستخراج الاسماء بثلاث شروط2.rar

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

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

أخي الكريم، في الحقيقة صعب علي هذه المرة أن أتتبع الأكواد بالمعادلات فقمت بتعديلات على كود أخي الجبيب طارق بالأخذ بعين الاعتبار ملاحظات أخي الجبيب أبو أحمد (دائما وراءك)... أرجو أن يكون هذا العمل مقبولا ومفيدا ولكل فضل فضله...

أخوكم بن علية

كود لاستخراج الاسماء بثلاث شروط4.rar

[الخالدي]

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

لإثراء الموضوع

المرفق حل بمعادلات الصفيف

في امان الله

كود لاستخراج الاسماء بثلاث شروط_معادلات.rar

[فضل حسين]

excel Magician

ساحر الاكسل الخالدى باشا ............ يتحدث باللغتين الكودية والمعادلاتيه للاكسل

انه حقا يستحق هذا اللقب بجدارة .

انه السحر والجمال والابهار ياساده . انه الخالدى باشا صاحب الاعمال المثمنة

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

كل الشكر والامتنان والحب والتقدير للساحر واسمحلى ياحبيبى ياساحر الاكسل ان اضرب لسيادتكم تعظيم سلام بل مليون تعظيم سلام على هذا العمل الرائع .

وانتهز هذه الفرصة واطلب من سيادتك طلب ارجو بقدر الامكان ان تحققه وهو ان لاتنسانا ودائما تشاركنا بسحرك وجمالك ومش عايزين نفتقدك لفتره طويلة هذا رجاء .

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

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

[Ahmed Elbhiry]

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

لإثراء الموضوع

المرفق حل بمعادلات الصفيف

في امان الله

بسم الله ماشاء الله برنا يزيدك

اخى الخالدى