VBA - EXCEL - التصفية التلقائية وطريقة نطاق الكائن
قد يحتاج المرء إلى عدة أنواع من المرشحات في ورقة Excel للمساعدة في برمجة VBA. يتم استخدام ورقة Excel لتبسيط الحسابات المملة وإعداد عوامل التصفية مهمة في هذه العملية. سيساعد ذلك في تحديد نطاق في Excel باستخدام برامج بسيطة في VBA. الاستعلام الرئيسي لدى الأشخاص هو كيفية استرداد الكائنات بتنسيق نطاق كائن. المقالة أدناه عبارة عن درس برمجة VBA صغير حول تحديد عامل تصفية تلقائي ونطاق كائن في حقل خلية معينة في ورقة Excel. بدء تشغيله عن طريق بدء ماكرو وإنهاء برنامج VBA الفرعي. يجب أن تكون الخلايا نشطة وليس مخفية بواسطة المرشحات. 
القضية
مع برمجة VBA ، من الممكن تعيين عوامل تصفية على ورقة:
حقل تحديد عامل التصفية: = 1 ، معايير 1: = "FOO"
- يعرض المرشح عددًا معينًا من الخطوط استنادًا إلى معايير محددة.
- كيفية استرداد هذه الصفوف في كائنات النطاق؟
حل
هذا يجب أن يجيب على مشكلتك:
Sub Macro2 () Sun rng حدد النطاق "لقد افترضت أن المرشحات في السطر 1 النطاق (" A1 "). حدد "تصفية" التحديد. حقل تصفية السيارات: = 1 ، Criteria1: = "FOO" Selection.AutoFilter Field: = 7 Criteria1: = "* paris *" 'RngSelect = كل الخلايا المرئية (غير مخفية بواسطة الفلتر)' قريبة من الخلية النشطة Set rngSelect = ActiveCell.CurrentRegion.SpecialCells (xlCellTypeVisible) 'انسخ المنطقة المحددة rngSelect.Copy Debug.Print rngSelect.Address' ... 'الأوامر' كثيرة ومتنوعة '... Set rngSelect = Nothing End Sub