مطلوب المساعدة فى فهم الفلترة طريقه عمل الفلترة التلقائيه

[إبراهيم محمد]

بسم الله الرحمن الرحيم

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

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

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

وجزاكم الله خيرا

AoutoFilterSear2.rar

[إبراهيم محمد]

بسم الله الرحمن الرحيم

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

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

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

وجزاكم الله خيرا

بسم الله الرحمن الرحيم

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

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

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

وجزاكم الله خيرا

برجاء الاهتمام بالموضع

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

اخي الفاضل

يوجد كود في حدث التغيير في الكومبوبوكس اي يعمل بمجرد التغيير في الكمومبوبوكس والكود هو

Private Sub ComboBox1_Change()

On Error Resume Next

  Range("Database").AdvancedFilter Action:=xlFilterCopy, _

	  CriteriaRange:=Range("Criteria"), CopyToRange:=Range("H1"), Unique:=True

End Sub

وهو عبارة عن تصفية متقدمة للبيانات في النطاق المسمى Database حسب الشرط في النطاق Criteria وهو عبارة عن الدالة

=ISNUMBER(SEARCH($A$2;E2))

بعد التصفيه هناك ربط للناتج المصفى ليصبح النطاق Name وهو مربوط بالقائمة الخاصة بالكمبوبوكس (كما في الصورة)

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

http://www.officena.net/ib/index.php?showtopic=35371

[إبراهيم محمد]

اخي الفاضل

يوجد كود في حدث التغيير في الكومبوبوكس اي يعمل بمجرد التغيير في الكمومبوبوكس والكود هو

Private Sub ComboBox1_Change()

On Error Resume Next

  Range("Database").AdvancedFilter Action:=xlFilterCopy, _

	  CriteriaRange:=Range("Criteria"), CopyToRange:=Range("H1"), Unique:=True

End Sub

وهو عبارة عن تصفية متقدمة للبيانات في النطاق المسمى Database حسب الشرط في النطاق Criteria وهو عبارة عن الدالة

=ISNUMBER(SEARCH($A$2;E2))

بعد التصفيه هناك ربط للناتج المصفى ليصبح النطاق Name وهو مربوط بالقائمة الخاصة بالكمبوبوكس (كما في الصورة) هناك شرح للاستاذ كيماس لعمل التصفية المتقدمة فيديو هذا رابطه http://www.officena....showtopic=35371

اخي الفاضل يوجد كود في حدث التغيير في الكومبوبوكس اي يعمل بمجرد التغيير في الكمومبوبوكس والكود هو

Private Sub ComboBox1_Change()

On Error Resume Next

  Range("Database").AdvancedFilter Action:=xlFilterCopy, _

	  CriteriaRange:=Range("Criteria"), CopyToRange:=Range("H1"), Unique:=True

End Sub

وهو عبارة عن تصفية متقدمة للبيانات في النطاق المسمى Database حسب الشرط في النطاق Criteria وهو عبارة عن الدالة

=ISNUMBER(SEARCH($A$2;E2))

بعد التصفيه هناك ربط للناتج المصفى ليصبح النطاق Name وهو مربوط بالقائمة الخاصة بالكمبوبوكس (كما في الصورة)

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

http://www.officena....showtopic=35371

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

واكرر شكري وتقديرى مرة اخرى

[محمد يحياوي]

اشكر اخي الحبيب "ابو احمد" الحقيقة لقد قرات السؤال صباحا و كنت قد اعددت الرد لكن شغلتني بعض الامور و لم افرغ الا الساعة و وجدت رد اخي "ابو احمد" بارك الله فيه وافيا شافيا لكني اردت استزادة الحل و تنويعه اثراء للموضوع

اخي الكريم لتفهم عمل الكود عليك اولا اظهار الاعمدة المخفية

ثانيا عليك بالتعرف على النطاقات Criteria(j1:j3) ...... "E:E"Database .... (العمود Extract (H1 و يمكن كتابة عنوان الخلية و الاستغناء عن اسم النطاق ... name H2 .... يمكن اظهار النطاقات من علبة الاسم في اعلى اليسار او الذهاب الى ادراج ---> اسم ---< ادراة الاسماء ...... او صيغ ---> ادارة الاسماء (2010)

ثالثا عليك دراج ComboBox .... من عناصر التحكم Activexcontrols .... ثم من خصائص اذهب الى ListFillRange ..... و اكتب اسم النطاق name

و ارتباط الخلية التي يظهر فيها الاسم في LinkedCell

ناتي الان الى الكود في حدث تغيير ComboBox1 و هو ()Private Sub ComboBox1_Change و هو امر الفلترة المتقدمة AdvancedFilter

و الذي ياخذ البيانات من النطاق Database و يضعها( (CopyToRange في النطاق H1 او Extract طبعا المعيار هو النطاق Criteria

و الذي يحتوي على معادلة البحث

=ISNUMBER(SEARCH($A$2;E2))

[ياسر الحافظ]

تسلم اخي الاستاذ " دينمـــــــــو المنتدى " ابو احمد

تسلم اخي الاستاذ " يحيــــــــــــــــاوي "

كلنا نستفيد

وفقكم الله

ابو الحارث

[إبراهيم محمد]

بارك الله فيك الاخ / يحياوى على هذا التوضيح وهذة الاضافه الجميله

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

[saad abed]

اخى يحياوى

موهبة جديدة تضاف الى رصيدك وهى موهبة الشرح والتفصيل

شكرا لك وجزاك الله خيرا

سعد عابد

[eng_ma]

بسم الله الرحمن الرحيم

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

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

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

وجزاكم الله خيرا