كيفية فرز عدة صفوف أو أعمدة بشكل مستقل مرة واحدة في Excel؟
في Excel ، يمكنك تطبيق ميزة الفرز لفرز صف أو عمود واحد فقط في نطاق من الأعمدة ، ولكن إذا كنت بحاجة إلى فرز عدة صفوف أو أعمدة بشكل مستقل في وقت واحد للحصول على لقطة الشاشة التالية معروضة. هل هناك طرق سريعة لحل هذه المهمة في Excel؟
قم بفرز أعمدة متعددة بشكل مستقل مرة واحدة باستخدام كود 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 مفتاح لتشغيل هذا الرمز ، ويظهر مربع موجه لتذكيرك بتحديد نطاق البيانات الذي تريد الفرز بناءً على كل عمود ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، تم فرز كل عمود على حدة مرة واحدة ، انظر الصورة:
قم بفرز عدة صفوف بشكل مستقل مرة واحدة باستخدام كود VBA
إذا كنت تريد فرز صفوف متعددة بشكل مستقل ، فإليك أيضًا رمز VBA لك.
1. حدد البيانات التي تريد فرزها بناءً على كل صف.
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 مفتاح لتشغيل هذا الرمز ، تم فرز البيانات الموجودة في كل صف مرة واحدة ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
