Hello. This ExtendOffice article explains how to insert some code into a Module in order to calculate the values of numbers of which are emboldened: <a href="https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3" target="_blank" rel="nofollow noreferrer">https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3</a> However, the code ignores decimal places and returns inaccurate results (especially when dealing with small values). To test it, I populated a number of emboldened cells with a value of "0.5" or less. The code treated them all as "0" and, thus, resulted in a calculation of zero. However, when I entered values of "0.51" and above, all were rounded up to "1", thus - again - completely miscalculating the result. Does anyone have a fix for this? Code follows. <blockquote>Function SumBold(WorkRng As Range) 'Update 20131202 Dim Rng As Range Dim xSum As Long For Each Rng In WorkRng If Rng.Font.Bold Then xSum = xSum + Rng.Value End If Next SumBold = xSum End Function</blockquote>

جديد

كيفية جمع الأرقام الجريئة في مجموعة من الخلايا في Excel

كوتولس ل إكسيل

TikTokOfOz

الأحد، 15 مايو 2022

1 الردود

5.5 ألف زيارة

الأصوات

فك

مرحبا.
هذه ExtendOffice تشرح المقالة كيفية إدراج بعض التعليمات البرمجية في الوحدة النمطية لحساب قيم الأرقام المشجعة:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

ومع ذلك، رمز يتجاهل المنازل العشرية وإرجاع نتائج غير دقيقة (خاصة عند التعامل مع القيم الصغيرة).

ولاختبار ذلك، قمت بملء عدد من الخلايا الجريئة بقيمة "0.5" أو أقل. لقد عاملها الكود جميعًا على أنها "0"، وبالتالي أدى إلى حساب الصفر. ومع ذلك، عندما أدخلت قيمًا "0.51" وما فوق، تم تقريبها جميعًا إلى "1"، وبالتالي - مرة أخرى - أخطأت في حساب النتيجة تمامًا.

هل لدى أي شخص حل لهذا؟ يتبع الكود.

الدالة SumBold(WorkRng كنطاق)
تحديث 20131202
خافت Rng كمدى
خافت xSum طالما
لكل Rng في WorkRng
إذا Rng.Font.Bold ثم
xSum = xSum + Rng.Value
إنهاء حالة
التالى
SumBold = xSum
نهاية وظيفة

أماندا لي

منذ 1 العام

#2707

الأصوات

فك

مرحبا هناك،

شكرًا على تعليقاتك، لقد قمت بالفعل بترقية الكود الموجود في المقالة.

الرجاء استخدام الكود أدناه:



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

إذا كانت لديك أي أسئلة أخرى ، فيرجى عدم التردد في إبلاغي بها.

أماندا

الصفحة:
1

لا توجد ردود لهذا المنصب حتى الآن.

يرجى تسجيل الدخول إلى مرحلة ما بعد الرد

ستحتاج إلى تسجيل الدخول لتتمكن من نشر الرد. تسجيل الدخول باستخدام النموذج على اليمين أو تسجيل حساب إذا كنت جديدا هنا. سجل هنا "