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