كيف يمكن ترتيب جميع الأوراق وفقًا لقيمة خلية محددة في Excel؟
عند استخدام ملف Excel، نقوم عادةً بفرز أوراق العمل أبجديًا أو رقميًا أو حسب ألوان علامات التبويب، ولكن هل سبق لك أن جرّبت فرز أوراق العمل حسب قيمة خلية معيّنة؟
افترض أن لديك مصنفًا يحتوي على عشرات أوراق العمل، وكلٌّ منها يحتوي في خليته A1 على قيمة معيّنة. الآن، تحتاج إلى فرز جميع أوراق العمل داخل هذا المصنف تصاعديًّا بناءً على القيمة الموجودة في الخلية A1 بكل ورقة. ومن خلال هذه المقالة، ستحصل على الحل.
فرز جميع أوراق العمل استنادًا إلى قيمة خلية باستخدام كود VBA
فرز جميع أوراق العمل استنادًا إلى قيمة خلية باستخدام كود VBA
لفرز جميع أوراق العمل بناءً على قيمة خلية في Excel، لا توجد طريقة مباشرة لذلك، لكن كود VBA التالي قد يساعدك.
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح بذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة، ثم الصق الكود التالي فينافذة الوحدة.
كود VBA: فرز جميع الأوراق استنادًا إلى قيمة خلية
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. بعد لصق الكود، اضغط على مفتاحF5 لتشغيله، وستظهر نافذة منبثقة لتذكيرك باختيار الخلية التي تريد فرز الأوراق استنادًا إليها. انظر لقطة الشاشة:
4. الآن، يمكنك رؤية أن جميع أوراق العمل قد تم فرزها تصاعديًا وفقًا للقيمة النصية في الخلية A1 من كل ورقة.
ملاحظات:
1. إذا احتوت الخلايا المحددة على أرقام وسلاسل نصية معًا، فسيتم فرز الأوراق التي تحتوي على أرقام قبل تلك التي تحتوي على سلاسل نصية.
2. إذا كانت خلية A1 فارغة، فسيتم فرز ورقة العمل المرتبطة بها في مقدمة جميع الأوراق.
مقالات ذات صلة:
كيف تُرتِّب أوراق العمل بترتيب أبجدي أو أبجدي رقمي في Excel؟
كيفية فرز علامات تبويب أوراق العمل حسب اللون في Excel؟
كيف يمكن عكس ترتيب علامات تبويب أوراق العمل؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل