الأحد، 15 مايو 2022
  1 الردود
  2.2 ألف زيارة
0
الأصوات
فك
مرحبا.
هذه 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
نهاية وظيفة
منذ أشهر 8
·
#2707
0
الأصوات
فك
مرحبا هناك،

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

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


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
لا توجد ردود لهذا المنصب حتى الآن.