كيف يمكن جمع أو عد الأرقام المكتوبة بخط عريض ضمن نطاق معيّن من الخلايا في Excel؟
إذا كان لديك نطاق من البيانات يحتوي على أرقام مكتوبة بخط عريض في ورقة عمل، وتريد جمعها أو عدها فقط إذا كانت بخط عريض، فيمكنك إدخالها يدويًا — لكن ذلك سيستغرق وقتًا طويلاً ومُرهقًا. فكيف يمكنك جمع أو عد الأرقام المكتوبة بخط عريض في Excel بسرعة وسهولة؟
عد الأرقام المكتوبة بخط عريض في نطاق باستخدام دالة معرّفة من قبل المستخدم (VBA والصيغة)
جمع الأرقام المكتوبة بخط عريض في نطاق باستخدام دالة معرّفة من قبل المستخدم (VBA والصيغة)
عدّ وجمع الأرقام المكتوبة بخط عريض عريض في نطاق بنقرات قليلة باستخدام Kutools لـ Excel
عد الأرقام المكتوبة بخط عريض في نطاق باستخدام دالة معرّفة من قبل المستخدم
الدالة التاليةالمعرّفة من قبل المستخدميمكن أن تساعدك على الحصول بسرعة على عدد عريض. يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفتاحَيALT + F11، وسيُفتح ذلك نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
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، وسيفتح ذلك نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.
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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل