مساعده في عملية البحث

[ali_altaaiy]

تحية عطرة

الرجاء المساعده في عملية البحث في الاكسل المرفق

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

وشكرا

TEST.rar

[رجب جاويش]

تفضل أخى طلبك

ولكن بكود وليس معادلة

test 1.rar

[ali_altaaiy]

شكرا اخي العزيز وبارك الله فيك على المجهود

لكن انا احتاج الى معادلة لاني سوف استعملها في مزيد من الحقول وسكررها في جدول لمطابقة ارقام كثيرة

ارجو الرد وشكرا مره ثانية

[الـعيدروس]

السلام عليكم

الاخ علي بالإمكان المدى يكون ديناميك

يتسع بقدر البيانات المدرجه ضمن المدى للبحث فيه

واذا كان مدى البيانات ضمن الأعمدة المذكورة في الملف بيكون هكذا

وبعد اذن الأستاذ رجب تعديل طفيف للكود

Private Sub Worksheet_Change(ByVal Target As Range)

Dim CL As Range

If Not Intersect(Target, [G6]) Is Nothing Then

For Each CL In Range(Cells(3, 1).Address, Cells(Rows.Count, 3).Address)

If CL = [G6] Then

[H6] = Cells(2, CL.Column)

  Exit For

   End If

  Next CL

End If

End Sub

[رجب جاويش]

الأخ الفاضل / العيدروس (أبو نصار )

تسلم ايديك

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

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

أخي الكريم، يمكن استعمال دالة الصفيف التالية:

=INDEX($2:$2;SMALL(IF($A:$C=$G$6;COLUMN($A:$C));1))

ولا تنسى تأكيدها بالضغط على CTRL+SHIFT+ENTER

أخوكم بن علية

وتطبيق للمعادلة في الملف المرفق : TEST.rar

تم تعديل أبريل 2, 2012 بواسطه hben

[ali_altaaiy]

شكرا اخي العزيز ابو ناصر

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

 Private Sub Worksheet_Change(ByVal Target As Range) Dim CL As Range If Not Intersect(Target, [G6]) Is Nothing Then For Each CL In Range(Cells(3, 1).Address, Cells(Rows.Count, 3).Address) If CL = [G6] Then [H6] = Cells(2, CL.Column) Exit For End If Next CL End If End Sub 

ممكن اضافة على الكود لجعل النتائج ديناميكية ايضا ضمن الاعمدة وكيف يكون التعديل على الكود اذا كان مدى البحث في شيت ثاني

وشكرا مره ثانيه

[ali_altaaiy]

شكرا اخي بن علية

لكن تأكيدها بالضغط على CTRL+SHIFT+ENTER لم يعمل ويضهر خطأ

[Ahmed Elbhiry]

احسنت اخى بن عليه جزاك الله خيرالمعادلة شغالة 100/100

[ali_altaaiy]

احسنت اخى بن عليه جزاك الله خيرالمعادلة شغالة 100/100

نورت اخي العزيز احمد البحيري

شغاله صحيح لكن كيف تنقل الى حقل ثاني وكيف تأكيدها.. التأكيد CTRL+SHIFT+ENTER لم يعمل

علما اني استخدم Excel 2010

وشكرا

تم تعديل أبريل 2, 2012 بواسطه ali_altaaiy

[Ahmed Elbhiry]

عند اضافة اعمدة جديدة يلزم تغير المدى

TEST2.rar

[Ahmed Elbhiry]

لنقل المعادلة من مكانها بالنسخ واللصق

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

=INDEX($2:$2;;SMALL(IF($A:$E=$G$6;COLUMN($A:$E));1))

[Ahmed Elbhiry]

حل لما بعثته بالراسلة عمل البحث من صفحة اخرى

TEST3.rar