مرحبا.
هذه ExtendOffice تشرح المقالة كيفية إدراج بعض التعليمات البرمجية في الوحدة النمطية لحساب قيم الأرقام المشجعة:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
ومع ذلك، رمز يتجاهل المنازل العشرية وإرجاع نتائج غير دقيقة (خاصة عند التعامل مع القيم الصغيرة).
ولاختبار ذلك، قمت بملء عدد من الخلايا الجريئة بقيمة "0.5" أو أقل. لقد عاملها الكود جميعًا على أنها "0"، وبالتالي أدى إلى حساب الصفر. ومع ذلك، عندما أدخلت قيمًا "0.51" وما فوق، تم تقريبها جميعًا إلى "1"، وبالتالي - مرة أخرى - أخطأت في حساب النتيجة تمامًا.
هل لدى أي شخص حل لهذا؟ يتبع الكود.
هذه 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
نهاية وظيفة