انتقل إلى المحتوى الرئيسي

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

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

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

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


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

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

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

2. ثم اضغط البيانات > متقدم، انظر لقطة الشاشة:

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

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


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

إذا كنت ماهرًا برمز VBA ، فيمكنك إنهاء هذه المهمة باستخدام رمز VBA التالي.

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

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

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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
No funciona, sigue el mismo mensaje de error....
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations