Buna.
Acest ExtendOffice articolul explică cum să inserați un cod într-un modul pentru a calcula valorile numerelor cărora sunt încurajate:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3

Totuși, codul ignoră zecimale și returnează rezultate inexacte (mai ales atunci când aveți de-a face cu valori mici).

Pentru a-l testa, am populat un număr de celule încurajate cu o valoare de „0.5” sau mai puțin. Codul le-a tratat pe toate ca „0” și, astfel, a dus la un calcul de zero. Cu toate acestea, când am introdus valori de „0.51” și mai sus, toate au fost rotunjite la „1”, astfel - din nou - calculând complet greșit rezultatul.

Are cineva o remediere pentru asta? Urmează codul.

Funcția SumBold(WorkRng As Range)
„Actualizare 20131202
Dim Rng ca rază de acțiune
Dim xSum As Long
Pentru fiecare Rng în WorkRng
Dacă Rng.Font.Bold Atunci
xSum = xSum + Rng.Valoare
Final, dacă
Pagina Următoare →
SumBold = xSum
Sfârşit Funcţia