Note: The other languages of the website are Google-translated. Back to English

 كيفية تطبيق نفس الفلتر على أوراق متعددة في إكسيل؟

قد يكون من السهل علينا تطبيق وظيفة التصفية لتصفية البيانات في ورقة عمل ، ولكن ، في بعض الأحيان ، قد تحتاج إلى التصفية عبر أوراق عمل متعددة لها تنسيق بيانات مشترك بنفس معايير التصفية. لترشيحها واحدًا تلو الآخر سيضيع الكثير من الوقت ، وهنا يمكنني تقديم طريقة سهلة لحلها مرة واحدة.

قم بتطبيق نفس المرشح على أوراق عمل متعددة برمز VBA


السهم الأزرق الحق فقاعة قم بتطبيق نفس المرشح على أوراق عمل متعددة برمز VBA

على سبيل المثال ، لدي أربع أوراق عمل حيث يجب تصفية لقطة الشاشة التالية بنفس معايير المنتج = KTE مرة واحدة.

doc مرشح أوراق متعددة 1

لا توجد طريقة مباشرة لتصفية البيانات في أوراق متعددة في Excel ، ولكن يمكن أن يساعدك رمز VBA التالي في إنهاء هذه المهمة ، يرجى القيام بما يلي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ثم يفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.

كود فبا: طبق نفس المرشح على أوراق عمل متعددة:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، تمت تصفية جميع منتجات KTE في جميع أوراق العمل مرة واحدة ، انظر لقطة الشاشة:

doc مرشح أوراق متعددة 2

ملاحظة: ضمن الكود أعلاه ، في هذا xWs.Range ("A1"). تصفية تلقائية 1 ، "= KTE" النصي، A1 و = KTE يشير إلى العمود والمعايير التي تريد التصفية بناءً عليها ، الرقم 1 هو رقم العمود الذي قمت بالتصفية بناءً عليه ، يمكنك تغييرها حسب حاجتك. على سبيل المثال ، إذا كنت تريد تصفية الترتيب الأكبر من 50 ، فأنت تحتاج فقط إلى تعديل هذا البرنامج النصي على النحو التالي: xWs.Range ("B1"). تصفية تلقائية 2 ، "> 50".


تصفية البيانات حسب معايير متعددة أو شرط محدد آخر ، على سبيل المثال حسب طول النص ، حسب حساسية حالة الأحرف ، إلخ.

كوتولس ل إكسيلالصورة سوبر تصفية الميزة هي أداة مساعدة قوية ، يمكنك تطبيق هذه الميزة لإنهاء العمليات التالية:

  • تصفية البيانات بمعايير متعددة ؛ تصفية البيانات حسب طول النص ؛
  • تصفية البيانات حسب الأحرف الكبيرة / الصغيرة ؛ تاريخ التصفية حسب السنة / الشهر / اليوم / الأسبوع / الربع

مرشح المستندات الفائق 1

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (41)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تقوم بتطبيق صيغة المرشح هذه: على مجموعة من الأوراق؟ لديّ مصنف يحتوي على بيانات في أول 5 أوراق ، ويحتوي المصنف على 200 ورقة ، فأنا فقط بحاجة إلى تطبيق المرشح على الورقة 6-200. Sub application_autofilter_across_worksheets () 'Updateby Extendoffice 20160623 Dim xWs مثل ورقة العمل عند الخطأ ، استأنف التالي لكل xWs في أوراق العمل xWs.Range ("A1"). التصفية التلقائية 1 ، "= KTE" التالي النهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Sub application_autofilter_across_worksheets () خافت J كعدد صحيح عند الخطأ ، استئناف التالي لـ J = 6 إلى أوراق العمل (workheets.count) Thisworkbook.Sheets (J) .Range ("A1"). Autofilter 1، "= KTE" Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي ، أريد تصفية أكثر من قيمة واحدة ، لقد استخدمت xWs.Range ("B1"). التصفية التلقائية 2 ، "= 223AM" ، xlOr ، "= 113IR" ، xlOr ، "= 003IR" وقد نجحت ولكن عندما زيادة القيم المطلوبة إلى> 2 يحدث خطأ. هذا الأمر أنا استخدم xWs.Range ("B1"). AutoFilter 2، "= 223AM"، xlOr، "= 113IR"، xlOr، "= 003IR"، xlOr، "= 019IR"، xlOr، "= 311IR"، xlOr ، "= 518ZA"، xlOr، "= 223AM"، xlOr، "= 592IR" شكرًا ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أثناء تصفية كلمة واحدة في أوراق متعددة لا تظهر البيانات المصفاة .... يتم إخفاء جميع البيانات. حل هذا بأمان.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،


بياناتي موجودة في العمود E وعندما أقوم بتطبيق هذا الفلتر مع النطاق ("E1") ، فإنه لا يزال يقوم بتصفية العمود A


كيف يمكنني استكشاف الأخطاء وإصلاحها؟
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عليك فقط كتابة رقم العمود في التصفية التلقائية ، في هذه الحالة: xWs.Range ("E1"). تصفية تلقائية 5 ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
احذف العمود A LOL
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يتم التنفيذ إذا كان الفلتر موجودًا في عمود مختلف في كل ورقة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك استخدام نتيجة التصفية التلقائية لتعيين عامل التصفية لكل ورقة أخرى بدلاً من استخدام = (اسم محدد)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنني استخدام هذا لتصفية الجداول المحورية في أوراق متعددة إذا كانت جميع الجداول المحورية من نفس مصدر البيانات وتم إعدادها باستخدام نفس المعايير؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك أي خيار للتصفية حسب الألوان؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ماهيش
إذا كنت ترغب في تصفية البيانات حسب اللون ، فقد تساعدك المقالتان التاليتان! يرجى الاطلاع عليها ، آمل أن تساعدك!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،


كيف يعمل هذا إذا تم تقديم عمود المنتج في أماكن مختلفة في أوراق أخرى؟


في الورقة 1 ، تكون A1 في الورقة 2 وهي في B1 وفي الورقة 3 هل A1 مرة أخرى؟

شكر،
مونيكا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتغيير جزء "= KTE" لكل ورقة باستخدام مرشح يحتوي على أساس اسم الورقة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك على الكود !! هل هناك طريقة لتغيير "= KTE" لاستخدام قيمة من قائمة أو قائمة منسدلة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل يتم إعادة تطبيق المرشح الفائق عبر المصنف بأكمله تلقائيًا متى كان هناك تحديث للملف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكننا استخدام اسم خلية مثل المنتج بدلاً من A1 في: xWs.Range ("A1"). التصفية التلقائية 1 ، "= KTE"
لدي عمود مختلف وتأتي بعض الأسماء في أعمدة مختلفة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد استخدمت مرشح في كل ورقة. وأريد تغيير s.no من 1 2 3 بشكل متسلسل في كل ورقة بعد مرشح.


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

(مثال: النطاق الزمني)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية التخلص من الصفوف المصفاة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
العزيز،

كيف يتم التصفية بشروط متعددة؟
على سبيل المثال ، أريد التصفية بالترتيب أعلى من 50 ولكن منتجات KTE فقط.

شكرا لكم مقدما.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، بجاية ،
للتصفية عبر أوراق متعددة بناءً على شرطين ، يرجى تطبيق الكود التالي:
sub application_autofilter_across_worksheets ()

'تحديث بواسطة Extendoffice

خافت xWs كورقة عمل

على خطأ استئناف التالي

لكل xWs في أوراق العمل

مع xWs.Range ("A1")

.AutoFilter Field: = 1 ، Criteria1: = "KTE" "العمود A يساوي" KTE "

.AutoFilter Field: = 2، Criteria1: = "> 500" "العمود B أكبر من 500

انتهت ب

التالى

نهاية الفرعية

من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حتى إذا قمت باستبدال A1 بـ G1 ، فإنه يحفر المرشح على عمود A1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا تان
ما عليك سوى استبدال A1 بـ G1 ، وفي الوقت نفسه ، يجب تغيير العمود رقم 1 إلى العمود رقم 7 ، كما هو موضح أدناه:
xWs.Range ("G1"). تصفية تلقائية 7 ، "= KTE"
من فضلك حاول ، شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
هل من الممكن التصفية بناءً على اسم العمود ، بدلاً من الرقم (حيث أن بياناتي موجودة في أعمدة مختلفة في أوراق العمل المختلفة)؟
شكرا مانويلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد التصفية بنفس الحالة "KTE" ، ولكن إذا لم تظهر في ورقة ، فلا تظهر أي بيانات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أريد معايير التصفية على أساس قيمة الخلية بدلاً من "KTE" هل من الممكن ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، Hemraj ، لتصفية البيانات بناءً على قيمة خلية محددة بدلاً من النص الثابت ، يرجى تطبيق الكود أدناه: sub application_autofilter_across_worksheets ()
'تحديث بواسطة Extendoffice
خافت xWs كورقة عمل
على خطأ استئناف التالي
لكل xWs في أوراق العمل
xWs.Range ("A1"). AutoFilter 1، Sheet1.Range ("E2")
التالى
نهاية الفرعيةملاحظة: الرجاء تغيير Sheet1 و E2 في خضم هذا Sheet1.Range ("E2") البرنامج النصي لقيمة الورقة والخلية الخاصة بك. يرجى المحاولة ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا Skyyang ،
شكرًا على دعمك القيم والفادي ، حاولت استخدام نفس الصيغ لكنها لم تنجح لأي سبب قد يكون. ما يلي هو الكود الذي أستخدمه في ورقة Excel الخاصة بي.
sub application_autofilter_across_worksheets ()
'تحديث بواسطة Extendoffice
خافت xWs كورقة عمل
على خطأ استئناف التالي
لكل xWs في أوراق العمل
xWs.Range ("A1"). تصفية تلقائية 1 ، Sheet2.Range ("C4")
التالى
نهاية الفرعية
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL