0
Disfare
voti
Ciao.
La sezione ExtendOffice l'articolo spiega come inserire del codice in un Modulo per calcolare i valori dei numeri di cui sono evidenziati:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Tuttavia, il codice ignora le cifre decimali e restituisce risultati imprecisi (soprattutto quando si tratta di valori piccoli).
Per testarlo, ho popolato un numero di celle in rilievo con un valore di "0.5" o meno. Il codice li ha trattati tutti come "0" e, quindi, ha prodotto un calcolo pari a zero. Tuttavia, quando ho inserito valori di "0.51" e superiori, tutti sono stati arrotondati per eccesso a "1", quindi, ancora una volta, calcolando completamente il risultato.
Qualcuno ha una soluzione per questo? Segue il codice.
La sezione ExtendOffice l'articolo spiega come inserire del codice in un Modulo per calcolare i valori dei numeri di cui sono evidenziati:
https://www.extendoffice.com/documents/excel/1339-excel-sum-count-bold-cells.html#a3
Tuttavia, il codice ignora le cifre decimali e restituisce risultati imprecisi (soprattutto quando si tratta di valori piccoli).
Per testarlo, ho popolato un numero di celle in rilievo con un valore di "0.5" o meno. Il codice li ha trattati tutti come "0" e, quindi, ha prodotto un calcolo pari a zero. Tuttavia, quando ho inserito valori di "0.51" e superiori, tutti sono stati arrotondati per eccesso a "1", quindi, ancora una volta, calcolando completamente il risultato.
Qualcuno ha una soluzione per questo? Segue il codice.
Funzione SumBold(WorkRng As Range)
'Aggiornamento 20131202
Dim Rng come intervallo
Dim x Somma fino a quando
Per ogni Rng In WorkRng
Se Rng.Font.Bold allora
xSomma = xSomma + Valore.Rng
End If
Avanti
SommaGrassetto = xSomma
End Function
0
Disfare
voti
Hi there,
Grazie per il feedback, ho già aggiornato il codice nell'articolo.
Si prega di utilizzare il codice qui sotto:
Se hai altre domande, non esitare a farmelo sapere.
Amanda
Grazie per il feedback, ho già aggiornato il codice nell'articolo.
Si prega di utilizzare il codice qui sotto:
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
Se hai altre domande, non esitare a farmelo sapere.
Amanda
- Pagina :
- 1
Non ci sono ancora risposte per questo post.