كيف يمكن حساب الخلايا التي تحتوي على نص معيّن ولون خط محدّد في Excel؟
قد يكون من السهل حساب عدد الخلايا التي تستوفي شرطًا واحدًا فقط، مثل تلك التي تحتوي على نص معيّن أو تمتلك لون خط أو تعبئة محدّدًا. لكن، هل تعرف كيف تحسب الخلايا التي تستوفي عدة شروط معًا؟ على سبيل المثال، كم عدد الخلايا التي تحتوي في آنٍ واحد على نص معيّن ولون خط أو تعبئة معيّنين؟ يعرض لك هذا المقال الحل.
حساب الخلايا التي تحتوي على نص معيّن وتعبئة اللون باستخدام كود VBA
حساب الخلايا التي تحتوي على نص معيّن ولون الخط باستخدام كود VBA
حساب الخلايا التي تحتوي على نص معيّن وتعبئة اللون باستخدام كود VBA
بافتراض أن لديك جدولًا كما هو موضح في لقطة الشاشة أدناه، ولحساب الخلايا في العمود B بناءً على النص ولون التعبئة في الخلية E2، يُرجى تطبيق كود VBA التالي.
1. اضغط على مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذةMicrosoft Visual Basic for Applications، انقر علىإدراج > وحدة برمجية (Module)، ثم انسخ كود VBA أدناه إلى نافذة الوحدة البرمجية.
كود VBA: حساب الخلايا التي تحتوي على نص معيّن وتعبئة اللون
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End Subملاحظة: في الكود، يُشير B2:B9 إلى النطاق الذي سيتم حساب الخلايا ضمنه، بينما تحتوي الخلية E2 على النص وتعبئة اللون اللذين يُعتمد عليهما في الحساب. يمكنك تعديل كليهما وفقًا لاحتياجاتك.
3. اضغط على مفتاحF5 لتشغيل الكود، ثم تظهر نافذة مربع حوارKutools لـ Excel. يُرجى تحديد خليةٍ لوضع النتيجة، ثم انقر على زرموافق (OK). راجع لقطة الشاشة:
بعد ذلك، تظهر نتيجة العد فورًا في الخلية المحددة.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
حساب الخلايا التي تحتوي على نص معيّن ولون الخط باستخدام كود VBA
لحساب الخلايا في النطاق B2:B9 بناءً على النص ولون الخط الموجودين في الخلية E2، يُرجى اتباع الخطوات التالية.
1. افتح نافذةMicrosoft Visual Basic for Applications بالضغط على مفاتيحAlt + F11.
2. فينافذة Microsoft Visual Basic for Applications، انقر علىإدراج > وحدة برمجية (Module)، ثم انسخ كود VBA أدناه إلى نافذة الوحدة البرمجية.
كود VBA: حساب الخلايا التي تحتوي على نص معيّن ولون الخط
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End Subملاحظة: في الكود، يُشير B2:B9 إلى النطاق الذي سيتم حساب الخلايا ضمنه، بينما تُعدّ E2 المعيارية التي يعتمد عليها الحساب. يمكنك تعديلها وفقًا لاحتياجاتك.
3. اضغط على مفتاحF5لتشغيل الكود، ثم تظهر نافذة مربع حوارKutools لـ Excel، يرجى التحديد خليةً لوضع النتيجة ثم انقر على زرموافق (OK). راجع لقطة الشاشة:
ستحصل على النتيجة كما هو موضح في لقطة الشاشة أدناه:
مقالات ذات صلة:
- كيف يمكن حساب عدد الخلايا الواقعة بين قيمتين أو تاريخين في Excel؟
- كيف يمكن حساب الخلايا التي تحتوي على نص معيّن ضمن نطاق محدد في Excel؟
- كيف يمكن حساب الخلايا التي تحتوي على نصٍ معين أو جزءٍ منه في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل