نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تحديث نتائج التصفية المتقدمة تلقائيا في إكسيل؟

عند تطبيق ميزة "فلتر متقدم"، سنجد أن النتيجة التي تمت تصفيتها لن تتغير تلقائيا مع تغيير المعايير. هذا يحتاجنا لتطبيق وظيفة تصفية متقدمة مرة أخرى للحصول على نتيجة جديدة. ولكن، هل لديك أي خدعة جيدة وسريعة لتحديث نتيجة تصفية متقدمة تلقائيا كما قطة التالية هو مبين في إكسيل؟

تحديث نتيجة تصفية متقدمة تلقائيا مع التعليمات البرمجية فبا


تحديث نتيجة تصفية متقدمة تلقائيا مع التعليمات البرمجية فبا


قد يساعدك رمز فبا التالي على تحديث نتيجة الفلتر المتقدم تلقائيا عند تغيير المعايير حسب الحاجة، يرجى القيام بذلك على النحو التالي:

1. انقر بزر الماوس الأيمن فوق علامة التبويب ورقة التي تريد تصفية البيانات تلقائيا، ثم اختر عرض الرمز من قائمة السياق، في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة، نسخ ولصق التعليمات البرمجية التالية في وحدة فارغة:

رمز فبا: تحديث نتيجة التصفية المتقدمة تلقائيا:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

ملاحظة:: في التعليمات البرمجية أعلاه: A5: D21 هو مجموعة البيانات التي تريد تصفية، A1: C3 هو مجموعة المعايير لتصفية استنادا إلى.

2. ثم حفظ وإغلاق نافذة التعليمات البرمجية، الآن، عند تغيير المعايير في نطاق المعايير، سيتم تحديث النتيجة التي تمت تصفيتها تلقائيا في آن واحد.


Kutools لـ Excel - أفضل أداة إنتاجية في Office تزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 60.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    JBir · 29 days ago
    Is there a way to do this without using VBA?
  • To post as a guest, your comment is unpublished.
    Pierre · 29 days ago
    Hello, this code works perfectly, there is just one problem, the copy/paste fonction doesn't work anymore.
    How could it be fixed?
    Thanks in advance
  • To post as a guest, your comment is unpublished.
    klaus · 5 months ago
    @Hannah: Yes, it is possible.
    In the following code the criteria is on the sheet "Filter".


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("A5:D23").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Sheets("Filter").Range("A1:C3"), Unique:=False
    End Sub
  • To post as a guest, your comment is unpublished.
    invité · 10 months ago
    Ce code donne une erreur 1004 référence non valide. pouvez vous corriger le code proposé?
  • To post as a guest, your comment is unpublished.
    Christine · 10 months ago
    Bonjour, merci pour votre post qui m'aide énormément. Toutefois quel serait le code à ajouter pour coller le résultat dans un tableau d'une autre feuille de fichier et si possible pour au passage ne coller que certaines colonnes ?
    Pour être plus précise, en utilisant votre exemple je voudrais copier uniquement les colonnes "Product" et "Name" du résultat du filtre et ce dans une nouvelle feuille. Merci.
  • To post as a guest, your comment is unpublished.
    Hannah · 1 years ago
    Can I make the criteria come from a second sheet?
  • To post as a guest, your comment is unpublished.
    sumeet · 1 years ago
    it refreshes every time when any data changes.

    is it possible to refresh only when criteria changes.