كيف يمكن فرز صفوف أو أعمدة متعددة بشكل مستقل دفعة واحدة في Excel؟
في Excel، يمكنك استخدام ميزة الفرز لترتيب صف واحد أو عمود واحد ضمن نطاق من الأعمدة، ولكن إذا احتجتَ إلى فرز صفوف أو أعمدة متعددة بشكل مستقل دفعة واحدة للحصول على النتيجة الموضحة في لقطة الشاشة التالية، فهل توجد طرق سريعة لتحقيق ذلك في Excel؟
فرز أعمدة متعددة بشكل مستقل دفعة واحدة باستخدام كود VBA
فرز صفوف متعددة بشكل مستقل دفعة واحدة باستخدام كود VBA
فرز أعمدة متعددة بشكل مستقل دفعة واحدة باستخدام كود VBA
لفرز أعمدة متعددة بشكل مستقل بترتيب تصاعدي، جرّب الكود التالي المكتوب بلغة VBA. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي في نافذةالوحدة (Module).
كود VBA: فرز أعمدة متعددة بشكل مستقل دفعة واحدة:
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 لتشغيل هذا الكود، وستظهر لك نافذة منبثقة لتذكيرك بتحديد نطاق البيانات التي تريد الفرز بناءً عليها لكل عمود، كما هو موضح في لقطة الشاشة:
4. ثم انقر فوقموافق (OK)، وسيتم فرز جميع الأعمدة بشكل مستقل دفعة واحدة، كما هو موضح في لقطة الشاشة:
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
فرز صفوف متعددة بشكل مستقل دفعة واحدة باستخدام كود VBA
إذا كنت ترغب في فرز صفوف متعددة بشكل مستقل، فلديك أيضًا كود VBA مخصص لذلك.
1. حدد البيانات التي تريد فرزها، مع مراعاة كل صف على حدة.
2. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
3. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي في نافذةالوحدة (Module).
كود VBA: فرز صفوف متعددة بشكل مستقل دفعة واحدة:
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 لتشغيل هذا الكود، وستُفرَز بيانات كل صف دفعة واحدة، كما هو موضح في لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل