كيفية جمع أو عد الأرقام الغامقة في نطاق من الخلايا في Excel؟
إذا كان لديك نطاق من البيانات يحتوي على أرقام غامقة في ورقة عمل وتريد جمع أو عد الخلايا الغامقة فقط، يمكنك إضافتها يدويًا، لكن ذلك سيستغرق وقتًا طويلاً. كيف يمكنك بسرعة وسهولة جمع أو عد الخلايا الغامقة فقط في Excel؟
عد الأرقام الغامقة في نطاق باستخدام دالة معرفة من قبل المستخدم (VBA والصيغ)
جمع الأرقام الغامقة في نطاق باستخدام دالة معرفة من قبل المستخدم (VBA والصيغ)
عدة نقرات لحساب وجمع الخلايا الغامقة في نطاق باستخدام Kutools لـ Excel
عد الأرقام الغامقة في نطاق باستخدام دالة معرفة من قبل المستخدم
يمكن أن تساعدك الدالة المعرفة من قبل المستخدم التالية في الحصول بسرعة على عدد الخلايا الغامقة. الرجاء القيام بما يلي:
1. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، ثم الصق الكود التالي في نافذة الوحدة.
كود VBA: عد الأرقام الغامقة في نطاق من الخلايا
Function CountBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xCount As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xCount = xCount + 1
End If
Next
CountBold = xCount
End Function
3. بعد ذلك، احفظ هذا الكود، واكتب هذه الصيغة =CountBold(A1:C9) في خلية فارغة، انظر إلى لقطة الشاشة:
4. ثم اضغط على مفتاح Enter، وستتمكن من حساب الخلايا الغامقة في النطاق A1:C9.
ملاحظة: A1:C9 في الصيغة يشير إلى النطاق الذي تريد استخدام الدالة لحساب الخلايا الغامقة فيه، ويمكنك تغييره حسب حاجتك.
جمع الأرقام الغامقة في نطاق باستخدام دالة معرفة من قبل المستخدم
إذا كنت ترغب في جمع الأرقام الغامقة فقط في نطاق بيانات، يمكنك إنشاء دالة معرفة من قبل المستخدم لتحقيق ذلك.
1. اضغط مع الاستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، ثم الصق الكود التالي في نافذة الوحدة.
كود VBA: جمع الأرقام الغامقة في نطاق من الخلايا
Function SumBold(WorkRng As Range)
'Update 20220516
Dim Rng As Range
Dim xSum As Double
For Each Rng In WorkRng
If Rng.Font.Bold Then
xSum = xSum + Rng.Value
End If
Next
SumBold = xSum
End Function
3. بعد ذلك، احفظ هذا الكود، واكتب هذه الصيغة =sumbold(A1:C9) في خلية فارغة، انظر إلى لقطة الشاشة:
4. وبعد ذلك اضغط على مفتاح Enter، سيتم جمع جميع الأرقام الغامقة في النطاق A1:C9. انظر إلى لقطة الشاشة:
ملاحظة: A1:C9 في الصيغة يشير إلى النطاق الذي تريد استخدام الدالة لجمع الخلايا الغامقة فيه، ويمكنك تغييره حسب حاجتك.
عدة نقرات لحساب وجمع الخلايا الغامقة في نطاق باستخدام Kutools لـ Excel
يمكنك بسهولة حساب أو جمع جميع الخلايا الغامقة في نطاق بنقرات قليلة دون التعامل مع كود VBA المعقد وتذكر الصيغ.
1. لحساب الخلايا الغامقة، يرجى تحديد خلية فارغة لتحديد الموقع الناتج، ثم انقر فوق Kutools > الوظائف المحسنة > العدد والرياضيات > COUNTBYFONTBOLD.
ولجمع الخلايا الغامقة، انقر فوق Kutools > الوظائف المحسنة > العدد والرياضيات > SUMBYFONTBOLD. انظر إلى لقطة الشاشة:
2. في مربع حوار وسيطات الدالة، حدد النطاق الذي يحتوي على الخلايا الغامقة التي تحتاج إلى حسابها أو جمعها في مربع المرجع، ثم انقر فوق زر موافق.
يتم الآن عرض العد أو الجمع لجميع الخلايا الغامقة في النطاق المحدد في الخلية المختارة. انظر إلى لقطة الشاشة:
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
عرض توضيحي: حساب وجمع الخلايا الغامقة في نطاق باستخدام Kutools لـ 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد