كيفية فرز عدة صفوف أو أعمدة بشكل مستقل دفعة واحدة في Excel؟
في Excel، يمكنك استخدام ميزة الفرز لفرز عمود واحد أو صف واحد فقط ضمن نطاق من الأعمدة، ولكن إذا كنت بحاجة إلى فرز عدة صفوف أو أعمدة بشكل مستقل دفعة واحدة للحصول على ما هو موضح في لقطة الشاشة التالية. هل هناك طرق سريعة لحل هذه المهمة في Excel؟
فرز عدة أعمدة بشكل مستقل دفعة واحدة باستخدام كود VBA
فرز عدة صفوف بشكل مستقل دفعة واحدة باستخدام كود VBA
فرز عدة أعمدة بشكل مستقل دفعة واحدة باستخدام كود VBA
لفرز عدة أعمدة بشكل مستقل بترتيب تصاعدي، قد يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:
1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود 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. وبعد ذلك انقر فوق موافق، سيتم فرز كل الأعمدة بشكل مستقل دفعة واحدة، انظر لقطة الشاشة:
اكتشف سحر Excel مع Kutools AI
- التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
- الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
- برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
- تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
- ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
فرز عدة صفوف بشكل مستقل دفعة واحدة باستخدام كود VBA
إذا كنت ترغب في فرز عدة صفوف بشكل مستقل، فإليك أيضًا كود VBA لذلك.
1. حدد البيانات التي تريد فرزها بناءً على كل صف.
2. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد