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

كيفية فرز عدة صفوف أو أعمدة بشكل مستقل مرة واحدة في Excel؟

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

قم بفرز أعمدة متعددة 1

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

قم بفرز عدة صفوف بشكل مستقل مرة واحدة باستخدام كود VBA


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

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

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

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

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

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

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

قم بفرز أعمدة متعددة 2

4. ثم انقر فوق OK، تم فرز كل عمود على حدة مرة واحدة ، انظر الصورة:

قم بفرز أعمدة متعددة 1


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

إذا كنت تريد فرز صفوف متعددة بشكل مستقل ، فإليك أيضًا رمز VBA لك.

1. حدد البيانات التي تريد فرزها بناءً على كل صف.

قم بفرز أعمدة متعددة 3

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

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

كود فبا: قم بفرز عدة صفوف بشكل مستقل مرة واحدة:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

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

قم بفرز أعمدة متعددة 4


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

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)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عندما أحاول فرز الأعمدة ، فإنه يفرز البيانات خارج النطاق المقطوع! لماذا هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل بشكل رائع! شكرا !
تم تصغير هذا التعليق بواسطة المشرف على الموقع
¿Cómo puedo ordenar por color múltiples filas de forma المستقل y que las celdas que no tengan color estén a la derecha؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أحب هذا ، فأنا أشعر بالفضول فيما يتعلق بوظيفة الفرز حسب اللون لكل عمود على حدة. لقد جربت هذا ولكنه لم ينجح:


خافت xRg كمدى
خافت yRg كمدى
خافت على شكل ورقة عمل
تعيين ws = ActiveSheet
على خطأ استئناف التالي
تعيين xRg = Application.InputBox (موجه: = "تحديد النطاق:" ، _
العنوان: = "Kutools for excel" النوع: = 8)
Application.ScreenUpdating = خطأ
لكل yRg في xRg
مع ws.Sort
حقول الفرز واضح
.SortFields.Add Key: = yRg، _
SortOn: = xlSortOnCellColor ، الترتيب: = xlDescending ، DataOption: = xlSortNormal
.SetRange ws.Range (yRg، yRg.End (xlDown))
.Header = xlNo
.MatchCase = خطأ
.يتقدم
انتهت ب
yRg المقبل
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لهذا. لقد ساعدت حقًا. أود أيضًا أن أعرف كيفية الفرز حسب اللون. لدي 26 عمودًا ، لكل منها أنواع مختلفة من العناصر المحددة بواسطة لون الخط. أرغب في ترتيب جميع الأعمدة أبجديًا بشكل فردي ولكن بترتيب لوني معين. كيف أقوم بهذا العمل؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد أنقذتني للتو من العديد من المتاعب بهذا الحل! شكرا جزيلا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
منشور ممتاز ، شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Спасибо тебе человек !!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تتراوح بياناتي من 0-100 ؛ عندما أحاول فرز صفوف مضاعفة مرة واحدة ، يبدأ تشغيل البيانات بالمئات ، ثم يفرز الباقي رقميًا من الأقل إلى الأكبر ، ويضع 100s في الجانب الأقل من النطاق. كيف يمكنني اصلاح هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحديث؛ لقد أدركت أنه يتم الفرز حسب الرقم الأول في الرقم فقط - كيف يمكنني الفرز حسب الرقم الصحيح؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديفين ،
الكود يعمل بشكل جيد في ورقة العمل الخاصة بي. هل يمكنك تحميل ملف Excel أو لقطة شاشة بيانات هنا؟ لذلك ، يمكننا المساعدة في التحقق من مكان المشكلة؟
شكرا!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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