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

كيف تفرز البيانات في أوراق عمل متعددة مرة واحدة؟

في Excel ، يمكننا فرز البيانات في ورقة عمل بناءً على عمود معين بسرعة وسهولة ، ولكن هل سبق لك أن حاولت فرز البيانات عبر ورقة عمل متعددة؟ لفرزهم واحدًا تلو الآخر سيستغرق وقتًا طويلاً ، هذه المقالة ، سأقدم طريقة سهلة لحلها.

قم بفرز البيانات في أوراق عمل متعددة مرة واحدة باستخدام كود VBA


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

لفرز البيانات استنادًا إلى عمود واحد في كل أوراق المصنف الخاص بك ، يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية.

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

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

كود فبا: فرز البيانات في أوراق عمل متعددة مرة واحدة:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، تم فرز جميع الأوراق التي لها نفس التنسيق بناءً على العمود E من كل ورقة بترتيب تنازلي مرة واحدة.

ملاحظة: في الكود أعلاه ، A: F هو نطاق البيانات الذي تريد فرزه ، E هو حرف العمود الذي تريد الفرز بناءً عليه.


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (11)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني جعل هذا العمل لأعمدة متعددة. أحاول فرز بعضها حسب العمود K والبعض الآخر حسب العمود M وأعرف أرقام الورقة الدقيقة. يتم فرز عمود M الخاص بي (عندما أستخدم الكود أعلاه) فقط بواسطة K ، وليس بواسطة M ، لذلك فهو لا يعمل. 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عملت مثل السحر بالنسبة لي ... شكرا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل بشكل جيد ولكن كيف يمكنني تجنب تضمين العناوين (مثل الصف 1؟)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا لوسي
لفرز جميع الأوراق ، استبعد صف الرأس ، يرجى تطبيق كود vba أدناه: (ملاحظة: يرجى تغيير مراجع الخلايا حسب حاجتك)

الترتيب الفرعي
'تحديث بواسطة Extendoffice
خافت WS كورقة عمل
خافت xIntR كعدد صحيح
ActiveSheet.Range ("A1: F1"). حدد
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
لكل WS في أوراق العمل
xIntR = Intersect (WS.UsedRange، WS.Range ("A: F")). Rows.Count
WS.Range ("A2: F" & xIntR). مفتاح الفرز 1: = WS.Range ("A2: A" & xIntR) ، Order1: = xlDescending
التالي WS
Application.ScreenUpdating = ترو
نهاية الفرعية

من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
على أمل أن ترى هذا ...! يعمل هذا بشكل رائع - ولكنه يتضمن خلايا مع صيغة ولكن لا توجد بيانات ، مما يؤدي إلى إنشاء فجوات في علامات التبويب وإفساد البيانات الموجودة في الصفوف. أحتاج إلى الاحتفاظ بهذه الخلايا في علامات التبويب الخاصة بي لأنها تبحث عن أسماء مضافة إلى "علامة التبويب الرئيسية" أريدها فقط فرز الخلايا ذات الاسم الفعلي - إصلاح سريع ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كود مفيد جدا شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذا رائع ، شكرًا جزيلاً لك على هذا! مشكلتي الوحيدة مع هذا الرمز هي أنه لا يتم تنفيذه على الورقة الأولى. يتم تنفيذه على الأوراق المتبقية. كيف يمكنني تنفيذ هذا على جميع الأوراق؟ يبدو الأمر كما لو أن الكود يتخطى الورقة الأولى. أي مساعدة سيكون محل تقدير كبير :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد تقسيم البيانات في كتب عمل متعددة ثم إضافة القيمة في أحد الأعمدة ..

لقد أعددت الكود لتقسيم البيانات في المصنفات .. لكني بحاجة إلى مساعدة في إضافة الإجمالي في أحد الأعمدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك تشغيل هذا بدون تضمين كل الأوراق؟ أي ترك بعض الأوراق من الماكرو؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يبدو أن هذا يعمل بالنسبة لي. لدي كتيب عمل مكون من 12 ورقة مرتبة حسب شهور السنة ، كل ورقة تحتوي على بيانات مقابلة تتعلق بمنتجات الشركات وما إلى ذلك. هدفي هو فرز جميع الأوراق الموجودة في كتاب العمل وتصفيتها. أرغب في الحصول على ورقة واحدة تعمل بمثابة الورقة الأصلية (على سبيل المثال الشهر الأول من السنة) ، والتي سأقوم بعمل مرشح أو فرز عليها (على سبيل المثال A -> Z Sort) وجعل الأوراق الأخرى تتبع نفس الشيء تلقائيًا الفرز أو التصفية. على سبيل المثال ، عند استخدام الورقة المعنونة "يناير" إذا اخترت على سبيل المثال العمود "D" الذي يتضمن أيام الشهر التي أريدها بترتيب "تصاعدي" - عند تفعيل الفرز A -> Z في ورقة "يناير" ، أريد أن يؤثر هذا على باقي الأوراق في التسلسل (فبراير-ديسمبر) مع فرز جميع أيام الشهر من A -> Z. أي تغيير يتم إجراؤه على ورقة "يناير" فيما يتعلق بالفرز والتصفية ، يجب التأثير على توازن الأوراق في المصنف.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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