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

or

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

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

نسخ البيانات إلى ورقة عمل أخرى مع "تصفية متقدمة" باستخدام ميزة "تصفية متقدمة"

نسخ البيانات إلى ورقة عمل أخرى مع "تصفية متقدمة" باستخدام التعليمات البرمجية فبا


نسخ البيانات إلى ورقة عمل أخرى مع "تصفية متقدمة" باستخدام ميزة "تصفية متقدمة"


هنا هو الحل البديل بالنسبة لك لحل هذه المهمة، يرجى القيام على النحو التالي:

1. قم بتنشيط ورقة العمل حيث تريد نسخ النتيجة التي تمت تصفيتها باستخدام دالة "تصفية متقدمة".

2. ثم اضغط Data (البيانات) > بحث متقدم، انظر الصورة:

3. في تصفية متقدم مربع الحوار، حدد نسخ إلى موقع آخر من عمل ، ثم انقر فوق زر لتحديد مجموعة البيانات التي تريد تصفية في ورقة أخرى بجانب نطاق القائمة، انتقل على النقر زر بجانب وتتراوح المعايير لتحديد المعايير من ورقة أخرى، انظر قطة:

4. ثم اضغط زر بجانب نسخ الى لتحديد خلية حيث تريد إخراج النتيجة التي تمت تصفيتها من الورقة النشطة ثم انقر فوق OK ، تم استخراج النتيجة التي تمت تصفيتها إلى ورقة أخرى استنادا إلى ورقة البيانات الأصلية.


نسخ البيانات إلى ورقة عمل أخرى مع "تصفية متقدمة" باستخدام التعليمات البرمجية فبا

إذا كنت المهرة مع التعليمات البرمجية فبا، يمكنك إنهاء هذه المهمة مع التعليمات البرمجية فبا التالية.

1. تنشيط ورقة العمل التي تريد تصفية ونسخ النتيجة إلى ورقة أخرى.

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

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

رمز فبا: انسخ البيانات إلى ورقة عمل أخرى باستخدام فلتر متقدم:

Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    Dim xCRg As Range
    Dim xSRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
    If xCRg Is Nothing Then Exit Sub
    Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
    xSRg.Worksheet.Activate
    xSRg.Worksheet.Columns.AutoFit
End Sub

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

5. ثم اضغط OK، وبرزت مربع حوار آخر لتذكيرك لتحديد مجموعة المعايير التي تريد تصفية استنادا إلى، انظر قطة:

6. انتقل على النقر OK، في مربع الحوار برزت خارج، يرجى تحديد خلية من ورقة عمل جديدة أخرى حيث تريد إخراج نتيجة التصفية، انظر الصورة:

7. أخيرا، انقر فوق OK زر، تم إخراج البيانات التي تمت تصفيتها إلى ورقة محددة أخرى كما تحتاج.


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

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