الاستعلام بالتصفيه المتقدمه
من ضمن طرق الاستعلام يمكنك استخدام التصفية المتقدمة
وسنعرض كيفية استخدام التصفية المتقدمة فى الاستعلام من خلال شفرة برمجية بسيطة جدا
الشفرة المستخدمة
Sub MZMsurch()
Range("data01").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"order"), CopyToRange:=Range("output"), Unique:=False
End Sub
مبدأيا يجب أن تعلم الاستعلام من خلال التصفية المتقدمة يلزمك بتشابه رؤوس الجداول وبنفس البيانات الموجودة بها بنفس الصيغة وأسلوب الكتابة
- اضغط على Alt + F11
- اضغط كليك يمين على يسار نافذة المحرر
- اختر Insert Module
- نسخ ولصق الشفرة أعلاه
- نعود لشيت الاكسل الخاص بالاستعلام
- قم بوضع زر أو شكل ثم قم بربطه باسم الماكرو MZMsurch
- يوجد اربع نطاقات داخل النموذج المطبق عليه الشفرة البرمجية أعلاه
- النطاق data01 وهو خاص بشيت البيانات من أول خلية بالجدول الى آخر خلية
- النطاق order وهو خاص بمعايير التصفية موجود بشيت الاستعلام
- النطاق output وهو خاص بالمنطقة التى سيتم لصق البيانات بها
- النطاق NameD وهو خاص بأسماء الموظفين بشيت الموظفين
كيف يمكنك التعديل علي الشفرة حتى تتوافق مع النموذج الخاص بك ؟
من خلال النطاقات الموجوده والتى تم تسميتها يمكنك زيادة أو نقصان النطاقات كيفما تشاء