Note: The other languages of the website are Google-translated. Back to English

كيفية جمع / عد الأرقام الغامقة في مجموعة من الخلايا في إكسيل؟

عندما يكون لديك نطاق بيانات يحتوي على بعض الأرقام الغامقة في ورقة عمل ، وتريد الآن جمع أو حساب الخلايا الغامقة فقط ، بالطبع يمكنك إضافتها واحدة تلو الأخرى يدويًا ، ولكنها ستستغرق وقتًا طويلاً. كيف يمكنك جمع أو حساب الخلايا الجريئة فقط في Excel بطريقة سهلة وسريعة؟

عد الأرقام الغامقة في نطاق مع وظيفة معرّفة من قبل المستخدم (VBA والصيغة)
جمع الأرقام الغامقة في نطاق مع وظيفة معرّفة من قبل المستخدم (VBA والصيغة)
انقر عدة لعد وتلخيص الخلايا الغامقة في نطاق مع كوتولس ل إكسيل


عد الأرقام الغامقة في نطاق مع وظيفة محددة من قبل المستخدم

ما يلي وظيفة تعريف المستخدم يمكن أن تساعدك في الحصول بسرعة على عدد الخلايا الغامقة. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز فبا: عد الأرقام الغامقة في نطاق من الخلايا

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) في خلية فارغة ، انظر لقطة الشاشة:

عدد doc-bold-cells1

4. ثم اضغط أدخل مفتاح ، وسوف تحسب الخلايا الغامقة في النطاق A1: C9.

عدد doc-bold-cells2

ملاحظة:A1: C9 في الصيغة تشير إلى النطاق الذي تريد استخدام الوظيفة لحساب الخلايا الغامقة ، يمكنك تغييره حسب حاجتك.


جمع الأرقام الغامقة في نطاق باستخدام وظيفة محددة من قبل المستخدم

وإذا كنت تريد جمع الأرقام الغامقة فقط في نطاق البيانات ، فيمكنني أيضًا إنشاء وظيفة محددة بواسطة المستخدم لحلها.

1. اضغط باستمرار ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

رمز فبا: جمع الأرقام الغامقة في نطاق من الخلايا

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. ثم احفظ هذا الرمز ، واكتب هذه الصيغة = سمبولد (A1: C9) في خلية فارغة ، انظر لقطة الشاشة:

عدد doc-bold-cells3

4. ثم اضغط أدخل المفتاح ، تم إضافة جميع الأرقام الغامقة في النطاق A1: C9. انظر لقطة الشاشة:

عدد doc-bold-cells4

ملاحظة:A1: C9 في الصيغة تشير إلى النطاق الذي تريد استخدامه لتلخيص الخلايا الغامقة ، يمكنك تغييره حسب حاجتك.


انقر عدة لعد وتلخيص الخلايا الغامقة في نطاق مع كوتولس ل إكسيل

Yيمكنك بسهولة حساب أو تلخيص جميع الخلايا الغامقة في نطاق بعدة نقرات دون معالجة تعليمات برمجية VBA المعقدة وتذكر الصيغ.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. لحساب الخلايا الغامقة ، يرجى تحديد خلية فارغة لتحديد النتيجة ، ثم النقر فوق كوتولس > وظائف Kutools > الإحصاء والرياضيات > COUNTBYFONTBOLD.

ولجمع الخلايا الغامقة ، انقر فوق كوتولس > وظائف Kutools > الإحصاء والرياضيات > SUMBYFONTBOLD. انظر لقطة الشاشة:

2. في Fالحجج unction في مربع الحوار ، حدد النطاق بالخلايا الغامقة التي تريد عدها أو جمعها في مربع المرجع ، ثم انقر فوق OK .

الآن يتم ملء حساب أو تجميع جميع الخلايا الغامقة في النطاق المحدد في الخلية المحددة على الفور. انظر لقطة الشاشة:

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


حافظ على مرجع خلية الصيغة ثابتًا مع Kutools for Excel


مقالات ذات صلة:

كيفية تحديد وتحديد جميع الخلايا أو النص الغامق في إكسيل؟


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (22)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، باستخدام برنامج Excel 2013 Dutch with kutools 6.5 ولكن لا يمكنك استخدام تخطيط القراءة. اسال قبل ان تحل الصراخ في هذا الاصدار ؟؟؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا ، باستخدام Excel 2013 Dutch مع kutools 6.5 ولكن لا يمكنك الاستمرار باستخدام تخطيط القراءة. اسال قبل ان تحل الصراخ في هذا الاصدار ؟؟؟بواسطة kersten[/ quote] مرحبًا ، الرجاء الاتصال بي على jaychivo #extendoffice.com. الرجاء استبدال # بـ @. :-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة للعد بناءً على لون الخلية إذا كان النص غامقًا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع !!!! عملت على أكمل وجه !! شكرًا لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل هذا بشكل مثالي باستثناء أنه لا يبدو أنه يضيف منازل عشرية ، بل يضيف فقط الدولار بالكامل. إذا كان لديك إصلاح لهذا ، سأكون ممتنًا جدًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا كاتي ، استخدم الكود أدناه ، حيث يوضح المجموع الأماكن العشرية. الدالة SumBold (rng كنطاق) تعتيم rCell كتطبيق نطاق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا يعمل كمكافأة. لدي مشكلة واحدة فقط ... لا يبدو أنها تضيف أي شيء بعد فاصلة عشرية. أي مساعدة سيكون موضع تقدير كبير.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا .. انها تعمل ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد نسخت الرمز ولصقته في Excel ولكني حصلت على #NAME؟ خطأ. لقد حرصت على تمكين وحدات الماكرو واستخدام إصدار Excel 2010 (لا أعرف ما إذا كان ذلك يغير شيئًا). هل يمكن لأي شخص الرجاء المساعدة ؟!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] لقد نسخت الرمز ولصقته في Excel ولكني حصلت على #NAME؟ خطأ. لقد حرصت على تمكين وحدات الماكرو واستخدام إصدار Excel 2010 (لا أعرف ما إذا كان ذلك يغير شيئًا). هل يمكن لأي شخص الرجاء المساعدة ؟!بواسطة ماي[/ اقتباس] عليك اتباع التعليمات. تقول: "انقر إدراج> وحدة ، والصق الكود التالي في نافذة الوحدة النمطية" ، وعليك القيام بذلك بالضبط. تأكد من لصق الشفرة في نافذة الوحدة النمطية ، وليس في نافذة كود الورقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم Excel لنظام التشغيل mac 2011. كيف يمكنني تشغيل الكود على نظامي؟ شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
RE: صيغة CountBold لا يبدو أن هذه الصيغة ديناميكية. أثناء عمله في أول تمرير ، إذا قمت بتغيير الخلايا الغامقة ، فلن يتم تحديث العدادات ما لم أعد إدخال الصيغة مرة أخرى. أي نصائح؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم هذا هو نفسه بالنسبة لي ، وإلا فإنه يعمل بشكل رائع. ولكن إذا كان من الممكن حل هذا ، فسيتم تحديث العد بعد إلغاء تحديد كل خلية مثل التعداد الأساسي الآخر ، فسيكون ذلك مثاليًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أصدقائي الأعزاء،
لن يتم تحديث الصيغة إذا قمت فقط بتغيير تنسيق خلايا الأرقام.
يتم تحديثه فقط عندما تقوم بتغيير محتوى الخلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
А если в ячейках исла и текст؟ من نحن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Ma se metto inrassetto nuove celle، la somma non si aggiorna !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كارلو ،

Gald للمساعدة. بعد أن تقوم بخط غامق للخلايا الجديدة ، لن يتم تحديث المجموع تلقائيًا. ولكن عند النقر نقرًا مزدوجًا فوق خلية الصيغة ، ثم الضغط على Enter ، سيتم تحديث المجموع. يرجى المحاولة.

مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ماندي ،
شكرا لردك،
نعم أعلم أنه بعد النقر المزدوج ، سيتم رفع المبلغ.
هل هناك طريقة لترقية المبلغ تلقائيا؟

التحيات
كارلو
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا كارلو ،

آسف لأنني لا أملك الحل لترقية المبلغ تلقائيًا. أسهل طريقة يمكنني التفكير فيها هي الضغط على Ctrl + Alt + F9 لإعادة حساب جميع أوراق العمل في جميع المصنفات المفتوحة. طاب يومك.

مع خالص الشكر والتقدير،
ماندي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أستخدم الوظيفة وأحصل على #NAME؟ خطأ. أنا أستخدم Excel 365 و Windows11.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا أنتوني

هل قمت بنسخ الرمز ولصقه في ملف وحدة of نافذة ميكروسوفت فيسوال باسيك للتطبيقات في ورقة العمل الخاصة بك؟ بعد لصق الكود ، يجب عليك إدخال الصيغة كما تريد.

أو يمكنك تحميل ملفك هنا ، يمكننا التحقق من مكان المشكلة.

شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا أنتوني ،
كنت أعاني من نفس المشكلة. بالنسبة لي ، كان الحل بسيطًا جدًا. لقد لاحظت أن لدي 4 وحدات مدرجة. أزلتهم جميعًا ثم بدأت من جديد بالتعليمات المذكورة أعلاه. الآن يعمل بشكل مثالي.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL