KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تُرتِّب علامات تبويب أوراق العمل حسب لونها في Excel؟

الكاتبXiaoyangتاريخ التعديل

عند التعامل مع ملفات مصنّف Excel كبيرة تحتوي على أوراق عمل متعددة، يُسهّل تعيين ألوان لعلامات تبويب الأوراق تصنيفها وتنظيمها بصريًا. لكن Excel لا يوفّر خيارًا مدمجًا لفرز علامات التبويب تلقائيًا حسب اللون. في هذه المقالة، سنستعرض طريقتين فعالتين لفرز علامات تبويب أوراق العمل حسب اللون في Excel.

لقطة شاشة لفرز ألسنة أوراق العمل حسب اللون

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

فرز علامات تبويب أوراق العمل حسب اللون باستخدام Kutools لـ Excel

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

باستخدام كود VBA التالي، يمكنك فرز العلامات حسب لونها. يُرجى اتباع الخطوات التالية:

1. انقر على «المطور» > «Visual Basic»، فتظهر نافذة جديدة باسم «Microsoft Visual Basic for Applications». بعد ذلك، انقر على «إدراج» > «وحدة»، ثم أدخل الكود التالي في الوحدة:

VBA: رتّب جميع الأوراق وفقًا لألوانها.

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2. بعد ذلك، اضغط على "F5" أو انقر زر «تشغيل» لتنفيذ الكود، وسيتم فرز جميع علامات تبويب أوراق العمل تلقائيًا حسب لونها.

لقطة شاشة لترتيب الألسنة الأصلي
سهم
لقطة شاشة لترتيب الألسنة بعد الفرز حسب اللون

فرز علامات تبويب أوراق العمل حسب اللون باستخدام Kutools لـ Excel

باستخدام Kutools، يمكنك إعادة ترتيب علامات التبويب بسرعة وفقًا لألوانها، مما يوفّر وقتك ويُلغي الحاجة إلى الفرز اليدوي أو اللجوء إلى أكواد VBA. في هذا القسم، سنعرض لك كيفية استخدام Kutools لـ Excel لفرز علامات تبويب أوراق العمل حسب اللون بكل سهولة.

Kutools لـ Excelيقدّم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة.مدمج مع إمكانات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة بلا جهد.معلومات تفصيلية عن Kutools لـ Excel...         نسخة تجريبية مجانية...

إذا كنت قد ثبّتَّ Kutools لـ Excel، فيمكنك فرز علامات تبويب أوراق العمل باتباع الخطوات التالية:

1. انقر على «KUTOOLS PLUS» > «ورقة العمل» > «ترتيب جميع الأوراق».

2. في مربع حوار «ترتيب جميع الأوراق»، انقر زر «ترتيب حسب اللون» لترى الترتيب الجديد للعلامات مباشرةً في جزء «بعد الترتيب».

لقطة شاشة لفرز ألسنة الأوراق حسب اللون باستخدام Kutools for Excel

3. ثم انقر على «موافق» لفرز العلامات تلقائيًا.

يمكنك باستخدام هذه الميزة إعادة ترتيب جميع أوراق العمل في المصنف الحالي بسرعةٍ وسهولة. وتتيح لك عدة خيارات للفرز، منها: «الترتيب الأبجدي»، و«الترتيب الدقيق»، و«الترتيب حسب اللون»، و«عكس الترتيب». بالإضافة إلى ذلك، يمكنك أيضًا تحريك أوراق العمل لأعلى أو لأسفل، أو إعادة تعيين الفرز تمامًا.

يساعد فرز علامات تبويب أوراق العمل حسب اللون في Excel على تحسين التنظيم ويجعل التنقّل بين المصنفات الكبيرة أكثر سهولة. وعلى الرغم من أن Excel لا يحتوي على خيار مدمج لهذا الغرض، فإن هذه المقالة تقدّم لك طريقتين مفيدتين. اختر الطريقة الأنسب لاحتياجاتك، واستفد إلى أقصى حد من ميزة تلوين علامات التبويب في Excel لتبسيط سير عملك! إذا كنت مهتمًا باستكشاف المزيد من نصائح وحيل Excel،فإن موقعنا يوفّر آلاف الدروس التعليمية.

مقال ذو صلة:

فرز أوراق العمل بترتيب أبجدي / أبجدي رقمي في Excel

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

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة…
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل