مصطفى النحاس قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 اريد عمل مربع بحث ثابت يقوم بالبحث فى عمود معين عند كتابه كود او رقم فى المربع لرقم فى صف من صفوف العمود ومرفق ملف به اكواد لعملاء واريد طريقه سهله ما اقوم به هو شاشه بحث find او من فيلتر equal وطبعا دى بتحتاج اكثر من خطوه وتحتاج لازهار الذين لا يساوون هذا لكن اريد ان اكتب الكود فى المربع وعند الغاء الكود يظهر جميع الصفوف مره اخرى مرفق ملف New Microsoft Excel Worksheet.rar
إبراهيم ابوليله قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 الاخ ابو حنين عمل رائع ومفيد جدا ولكن هل يمكن شرح كيفيه عمل مثل هذا للاستفاده بارك الله فيك
ولد الحجاز قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 اخي ابو حنين جزاك الله خير هل يمكن ان يكون البحث بين تاريخين التاريخ الاول والتاريخ الثاني وتظهر النتائج كما بالمثال الموضح اعلاه وشكرا لك
أبو حنــــين قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 السلام عليكم اخي ابراهيم محمد تفضل شرح المثال السابق
أبو حنــــين قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 السلام عليكم اخي ابراهيم محمد تفضل شرح المثال السابق بحث.rar
إبراهيم ابوليله قام بنشر مايو 13, 2012 قام بنشر مايو 13, 2012 الاخ ابو حنين انا اريد ان اعرف كيف ادرج textbox وبالتالى فانا اريد منك ان تقول لى 1-انشأ مثلا textbox عن طريق كذا 2-قم بعمل كذا. وهكذا اتمنى ان اكون استطعت الايضاح ولك كل الشكر والتقدير والاحترام بارك الله فيك
nedhal قام بنشر يناير 28, 2014 قام بنشر يناير 28, 2014 السلام عليكم اخي ابراهيم محمد تفضل شرح المثال السابق
محمود أبوسيف قام بنشر ديسمبر 7, 2014 قام بنشر ديسمبر 7, 2014 السلام عليكم اخي ابراهيم محمد تفضل شرح المثال السابق الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث
ibn_egypt قام بنشر ديسمبر 7, 2014 قام بنشر ديسمبر 7, 2014 السلام عليكم اخي ابراهيم محمد تفضل شرح المثال السابق الأخ الفاضل هذا الشرح يحتاج لبعض التوضيح مثل Range("RN").AutoFilter أي ان اتصفية تكون في النطاق A3:D75 الذي سميناه RN RN كيف يتم تحديده داخل الكود ورجاءاً ممكن شرح الطريقة خطوة بخطوة حتي يتسني لنا فهم كيفية عمل مثل هذا البحث أخي الفاضل أ.محمود الموضوع ببساطة كالتالي أولاً : نحدد النطاق الذي سنعمل عليه ومن مربع الاسم الموجود على يسار شريط الصيغة نكتب اى اسم نريده وليكن كما تفضل ابو حنين RN ونضغط انتر .. وهناك طريقة اخرى لعمل ذلك بأن نذهب الى القائمة صيغ Formulas ثم نختار ادارة الأسماء Name Manager واختيار جديد New ثم نكتب الاسم الذي نريده للنطاق ونحدد خلايا هذا النطاق من Refers to ونضغط موافق في هذه الخطوة حددنا النطاق الذي سنعمل عليه وهو مثلا من A5:D75 واعطيناه اسما وليكن كما في المثال RN .... تمام ثانيا : نذهب الى المطور Developer ونختار ادراج Insert ونحدد مربع نص TextBox ونضيفه بداخل الورقة عن طريق السحب والإفلات .. تمام كده جددنا النطاق وأضفنا مربع النص اللى هنكتب فيه معيار البحث .. وطبعا يفضل انك تضع مربع النص اعلى العمود اللى هيتم فيه البحث .. تمام نيجي على الورقة بتاعتنا تحت نضغط Right-Click ونختار اظهار التعليمات البرمجية او View Code ومن اعلى اليسار نفتح القائمة المنسدلة ونختار اسم مربع النص بتاعنا ونتاكد ان المربع على اليمين مكتوب فيه Change بمعني ان الكود هيتنفذ في حالة تغير مربع النص وهيكون شكلها في البداية كده Private Sub TextBox1_Change() End Sub تبدأ بقي تقف بالماوس في وسط ال sub دي وتكتب الكود بتاعك اللى هو ايه .. اللى هو ده If TextBox1 = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=2, Criteria1:=TextBox1.Text End If معناه ايه ده في السطر الاول بنقول لو مربع النص بتاعى فاضي ايه اللى يحصل السطر الثاني نقوله الغي الفلتر خالص .. علشان كل البيانات تبقي ظاهرة وواضحة طالما لم نكتب شئ في مربع النص الخاص بالبحث طب لو مش فاضي والمستخدم كتب فيه اى حاجة نقوله النطاق اللى اسمه RN ده اللى احنا سمناه في الخطوة الأولى اللى هو من A5:D75 اعمل فلتر ليه كويس بس النطاق ده اكثر من عمود هيعمل فلتر على اساس اى عمود نقوله Field:=2 ويبقي الفلتر بتاعك على العمود الثاني في النطاق .. تمام طب لو انت عاوز العمود الأول غيرها خليها 1 لو عاوز العمود الرابع غيرها خليها 4 وهكذا طب شرط التصفيه او الفلتر ايه نقوله النص المكتوب في مربع النص بتاعنا Criteria1:=TextBox1.Text ونفس الكلام بقي على الاربع مربعات نص الموجودين في ملف الأستاذ أبو حنين أرجو انى اكون وفقت .. تحياتي 3
محمود أبوسيف قام بنشر ديسمبر 7, 2014 قام بنشر ديسمبر 7, 2014 تسلم إيديك يا ibn_egypt هوه ده الكلام وياريت كل أعضائنا الكرام يشرحولنا طريقة حل المشكلة بشكل عام قبل ما يعدلنا علي الملفات علشان الكل يتعلم ويبدأ يعمل الشغل بنفسه ويساعد الآخرين شكراً لك الأخ الكريم إبن مصر
amrhosny قام بنشر يناير 11, 2019 قام بنشر يناير 11, 2019 هل ممكن تعديل الدالة للبحث الغير متطابق يعني لو حبيت ابحث مثلا عن اسمي عمرو حسنى لو بحثت عن حسنى يطلعلى اسمى
Ali Mohamed Ali قام بنشر يناير 11, 2019 قام بنشر يناير 11, 2019 تفضل لك ما طلبت -وايضا تم الرد فى المشاركة الرئيسية لك دليل الهاتف2.xlsm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.