السلام عليكم
كل عام وانتم بخير
هدية الشهر الكريم
فورم بحث و تصفية بامكانية التعديل مرن لكل المستخدمين
لا عليك سوى التعديل
في كود اظهار الفورم ضع نطاق رؤوس الاعمدة
و يصبح جاهز للاستخدام
' اسم نطاق رؤوس الاعمدة
' او عنوان النطاق ملحوق باسم الورقة
Private Const MyTopColmnRng As String = "البيانات!$B$3:$L$3"
المرفق 2003 2007 فورم بحث بامكانية التصفية.rar
ودمتم في حفظ الله
============================================================== ملحوظة:
في المشاركات ادناه وجدت ان السؤال الاكثر
حول كيفية البحث ليشمل نتائج اوسع
والحل موجود اصلا وهو استخدام النجمة وعلامة الاستفهام
وقد اوجدت زرين لهذا الغرض أحرف البدل
يمكن استخدام أحرف البدل التالية كمعايير مقارنة لعوامل التصفية وعند البحث عن محتوى واستبداله. * (علامة نجمية)
أي عدد من الأحرف
على سبيل المثال، يتم العثور على "شمال شرق" و"جنوب شرق" عند كتابة *شرق ؟ (علامة استفهام)
أي حرف مفرد
على سبيل المثال، يتم العثور على "سمير" و"سفير" عند كتابة س؟ير
==============================================================
ايضا
الذي تطلع عنده رسالة بالخطأ عند السطر
.ColumnWidths = wColmn
يقوم بحذف هذا السطر من الكود
او يعمل شرطة احادية قبل السطر ليلغي قراءة هذا السطر
وستنتهي المشكلة
ان شاء الله
لان هذا السطر يقوم بوضع مقاسات الاعمدة من النطاق
يعني هو مش مؤثر في الكود اصلا
ستبقى المقاسات الافتراضية للست
==============================================================