ali_altaaiy قام بنشر أبريل 1, 2012 مشاركة قام بنشر أبريل 1, 2012 تحية عطرة الرجاء المساعده في عملية البحث في الاكسل المرفق المطلوب داله البحث عن رقم في جدول والناتج يكون اسم الجدول الموجود فيه هذا الرقم وشكرا TEST.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 1, 2012 مشاركة قام بنشر أبريل 1, 2012 تفضل أخى طلبك ولكن بكود وليس معادلة test 1.rar رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر أبريل 1, 2012 الكاتب مشاركة قام بنشر أبريل 1, 2012 شكرا اخي العزيز وبارك الله فيك على المجهود لكن انا احتاج الى معادلة لاني سوف استعملها في مزيد من الحقول وسكررها في جدول لمطابقة ارقام كثيرة ارجو الرد وشكرا مره ثانية رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أبريل 1, 2012 مشاركة قام بنشر أبريل 1, 2012 السلام عليكم الاخ علي بالإمكان المدى يكون ديناميك يتسع بقدر البيانات المدرجه ضمن المدى للبحث فيه واذا كان مدى البيانات ضمن الأعمدة المذكورة في الملف بيكون هكذا وبعد اذن الأستاذ رجب تعديل طفيف للكود 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 رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر أبريل 1, 2012 مشاركة قام بنشر أبريل 1, 2012 الأخ الفاضل / العيدروس (أبو نصار ) تسلم ايديك رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 (معدل) السلام عليكم ورحمة الله أخي الكريم، يمكن استعمال دالة الصفيف التالية: =INDEX($2:$2;SMALL(IF($A:$C=$G$6;COLUMN($A:$C));1)) ولا تنسى تأكيدها بالضغط على CTRL+SHIFT+ENTER أخوكم بن علية وتطبيق للمعادلة في الملف المرفق : TEST.rar تم تعديل أبريل 2, 2012 بواسطه hben رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 شكرا اخي العزيز ابو ناصر السلام عليكم الاخ علي بالإمكان المدى يكون ديناميك يتسع بقدر البيانات المدرجه ضمن المدى للبحث فيه واذا كان مدى البيانات ضمن الأعمدة المذكورة في الملف بيكون هكذا وبعد اذن الأستاذ رجب تعديل طفيف للكود 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 ممكن اضافة على الكود لجعل النتائج ديناميكية ايضا ضمن الاعمدة وكيف يكون التعديل على الكود اذا كان مدى البحث في شيت ثاني وشكرا مره ثانيه رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 شكرا اخي بن علية لكن تأكيدها بالضغط على CTRL+SHIFT+ENTER لم يعمل ويضهر خطأ رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 احسنت اخى بن عليه جزاك الله خيرالمعادلة شغالة 100/100 رابط هذا التعليق شارك More sharing options...
ali_altaaiy قام بنشر أبريل 2, 2012 الكاتب مشاركة قام بنشر أبريل 2, 2012 (معدل) احسنت اخى بن عليه جزاك الله خيرالمعادلة شغالة 100/100 نورت اخي العزيز احمد البحيري شغاله صحيح لكن كيف تنقل الى حقل ثاني وكيف تأكيدها.. التأكيد CTRL+SHIFT+ENTER لم يعمل علما اني استخدم Excel 2010 وشكرا تم تعديل أبريل 2, 2012 بواسطه ali_altaaiy رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 عند اضافة اعمدة جديدة يلزم تغير المدى TEST2.rar رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 لنقل المعادلة من مكانها بالنسخ واللصق اعمل نسخ للخلية ولصقها مكان ماتحب بنفس الورقة بالمعادلة الاتية واذا اضفت اعمدة غير المدى =INDEX($2:$2;;SMALL(IF($A:$E=$G$6;COLUMN($A:$E));1)) رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر أبريل 2, 2012 مشاركة قام بنشر أبريل 2, 2012 حل لما بعثته بالراسلة عمل البحث من صفحة اخرى TEST3.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.