كيفية عد أو جمع الخلايا حسب ألوانها عند استخدام التنسيق الشرطي في Excel؟
في Excel، قد تكون قد قمت بتلوين بعض الخلايا باستخدام التنسيق الشرطي. الآن، سيُطلعك هذا البرنامج التعليمي على طرق مفيدة وسهلة لعدّ أو جمع الخلايا بسرعة وفقًا للونها الناتج عن التنسيق الشرطي في Excel.
عد الخلايا حسب لون الخط والخلفية باستخدام VBA
عد/جمع الخلايا حسب لون الخط مع استخدم تنسيق الشروط بواسطة Kutools لـ Excel
عد/جمع الخلايا حسب لون الخلفية مع استخدم تنسيق الشروط بواسطة Kutools لـ Excel
عد الخلايا حسب الخط ولون الخلفية باستخدام VBA
في Excel، يمكن لرمز VBA فقط عد الخلايا بسرعة بناءً على خط معيّن ولون الخلفية.
1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة البرمجة (Module)، ثم انسخ والصق رمز VBA أدناه في نافذةوحدة البرمجة (Module)الظاهرة.
VBA: عد الخلايا بناءً على لون الخط ولون الخلفية.
Sub DisplayFormatCount()
'Updateby20150305
Dim Rng As Range
Dim CountRange As Range
Dim ColorRange As Range
Dim xBackColor As Long
Dim xFontColor As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set CountRange = Application.Selection
Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
Set ColorRange = ColorRange.Range("A1")
xReturn = 0
For Each Rng In CountRange
qqq = Rng.Value
xxx = Rng.DisplayFormat.Interior.Color
If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
xBackColor = xBackColor + 1
End If
If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
xFontColor = xFontColor + 1
End If
Next
MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub 3. انقرتشغيل (Run)أو اضغط مفتاحF5 لتشغيل الرمز، ثم حدد النطاق الذي تحتاجه في مربع الحوار الظاهر. راجع لقطة الشاشة:
4. انقرموافق (OK)، ثم حدد خليةً يُعد خطها ولون خلفيتها الأساس الذي تريد عد الخلايا بناءً عليه. انظر لقطة الشاشة:

5. انقرموافق (OK). بعد ذلك، يظهر مربع حوار يُخبرك بعدد الخلايا التي تحتوي على نفس لون الخلفية ولون الخط مثل الخلية المحددة ضمن النطاق.

عد/جمع الخلايا حسب لون الخط مع استخدم تنسيق الشروط بواسطة Kutools لـ Excel
في Excel، لا يمكنك عدّ أو جمع الخلايا حسب لون الخط باستخدام تنسيق الشروط فقط. ومع ذلك، هناك أداة إضافية مفيدة تُسمىKutools لـ Excelيمكنها مساعدتك في حل هذه المشكلة بسرعة باستخدام ميزتهاإحصاء حسب اللون.
بعدالتثبيت المجانيKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد النطاق الذي تريد عدّ أو جمع خلاياه حسب لون الخط باستخدام تنسيق الشرط، ثم انقرKUTOOLS PLUS > إحصاء حسب اللون. انظر لقطة الشاشة:

2. بعد ذلك، في مربع حوارإحصاء حسب اللون، حدداستخدم تنسيق الشروطضمن قائمةوضع اللون، وحددالخط (Font)ضمن قائمةنوع اللون (Color Type). بعد ذلك، يمكنك عرض نتيجة العد والجمع في مربع الحوار. انظر لقطة الشاشة:

ملاحظة: إذا كنت ترغب في عرض نتيجة الحساب كتقرير، فانقر علىإنشاء تقرير iفي مربع حوارإحصاء حسب اللون، وسيتم إنشاء التقرير تلقائيًا في ورقة عمل جديدة. انظر لقطة الشاشة:

عد/جمع الخلايا حسب لون الخلفية مع استخدم تنسيق الشروط بواسطة Kutools لـ Excel
إذا كنت ترغب في عدّ أو جمع الخلايا حسب لون الخلفية باستخدام التنسيق الشرطي، فيمكنك أيضًا استخدام أداةإحصاء حسب اللونمنKutools لـ Excel.
1. حدد النطاق الذي تريد عدّ أو جمع خلاياه حسب لون الخلفية باستخدام تنسيق الشرط، ثم انقرKUTOOLS PLUS > إحصاء حسب اللون.
بعدالتثبيت المجانيKutools لـ Excel، يُرجى اتباع الخطوات التالية:
2. بعد ذلك، في مربع حوارإحصاء حسب اللون، حدداستخدم تنسيق الشروطضمن قائمةوضع اللون، وحددالخلفية (Background)ضمن قائمةنوع اللون (Color Type). بعد ذلك، يمكنك عرض نتيجة العد والجمع في مربع الحوار. انظر لقطة الشاشة:


أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل