انتقل إلى المحتوى الرئيسي

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

عندما يكون لديك نطاق بيانات يحتوي على بعض الأرقام الغامقة في ورقة عمل ، وتريد الآن جمع أو حساب الخلايا الغامقة فقط ، بالطبع يمكنك إضافتها واحدة تلو الأخرى يدويًا ، ولكنها ستستغرق وقتًا طويلاً. كيف يمكنك جمع أو حساب الخلايا الجريئة فقط في 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 > الإحصاء والرياضيات > كونتبيفونتبولد.

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

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

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

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


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


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

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

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (22)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello Anthony,
I was struggling with the same problem. For me, the solution ended up being very simple. I noticed I had 4 Modules listed. I removed all of them and then started over with the above instructions. Now it works perfectly.
This comment was minimized by the moderator on the site
I use the function and keep getting the #NAME? error. I am using Excel 365 and Windows11.
This comment was minimized by the moderator on the site
Hello, Anthony

Have you copied and pasted the code into the Module of Microsoft Visual Basic for Applications window in your worksheet? Afetr pasting the code, then, you should enter the formula as you need.

Or you can upload your file here, we can check where the problem is.

Thank you!
This comment was minimized by the moderator on the site
Ma se metto in grassetto nuove celle, la somma non si aggiorna !!!
This comment was minimized by the moderator on the site
Hello Carlo,

Gald to help. After you bold new cells, the sum won't update automatically. But when you double-click the formula cell, then press Enter, the sum will update. Please have a try.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hi Mandy,
thanks for your reply,
Yes I know that after double click the sum will uograde.
Is there any way to upgrade automatically the sum ?

Regards
Carlo
This comment was minimized by the moderator on the site
Hello Carlo,

Sorry that I don't have the solution for automatically upgrading the sum. The easiest way I can think of is to press Ctrl + Alt + F9 to recalculate all worksheets in all open workbooks. Have a nice day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
А если в ячейках числа и текст? надо просуммировать только ячейки с числами жирным шрифтом.
This comment was minimized by the moderator on the site
RE: CountBold formula This formula does not appear to be dynamic. While it works at first pass, if i change the bolded cells the counters do not update unless i re-enter the formula again. Any tips?
This comment was minimized by the moderator on the site
Yea this is the same for me, otherwise it works great. But if this could be solved so it refreshes the count after each cell deselect like other basic counts it would be perfect!
This comment was minimized by the moderator on the site
Dear guys,
The formula won't update if you just change the format of the number cells.
It updates only when you change the cell content.
This comment was minimized by the moderator on the site
I'm using excel for mac 2011. How can I run the code on my system? thanks!
This comment was minimized by the moderator on the site
I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!
This comment was minimized by the moderator on the site
[quote]I copied and pasted code into excel but get #NAME? error. I made sure to enable macros and using excel 2010 version (don't know if that changes anything). Can anyone please help?!By Maey[/quote] You have to follow the instruction. It says: "Click Insert > Module, and paste the following code in the Module Window", and you have to do exactly so. Make sure you paste the code in the Module Window, not in the Sheet code Window.
This comment was minimized by the moderator on the site
Thank you.. it's working...
This comment was minimized by the moderator on the site
This works a treat. I only have one issue...it doesn't seem to be adding anything after a decimal point. Any help would be greatly appreciated.
This comment was minimized by the moderator on the site
This works perfectly except it doesn't seem to add my decimal places, only adds the whole dollar. If you have a fix for this I would be very grateful.
This comment was minimized by the moderator on the site
Hi Katie, Use the below code, as the sum shows decimal places. Function SumBold(rng As Range) Dim rCell As Range Application.Volatile SumBold = 0 For Each rCell In rng If rCell.Font.Bold Then _ SumBold = SumBold + rCell Next End Function
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations