Final Job
2021-01-17 21:24:24 UTC
Salve.
Non riesco a contare quante celle in una colonna presentano un
riempimento (un colore) derivante dall'intervento della formattazione
condizionale.
Applico questa funzione trovata in una trattazione sul web.
Function ContaCellePerColore(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellaCorrente As Range
Dim cntRes As Long
Application.Volatile
cntRes = 0
indRefColor = cellRefColor.Cells(1, 1).Interior.Color
For Each cellaCorrente In rData
If indRefColor = cellaCorrente.Interior.Color Then
cntRes = cntRes + 1
End If
Next cellaCorrente
ContaCellePerColore = cntRes
End Function
inserisco in DD2:
=ContaCellePerColore(DC6:DC3005, DC2)As Long
dove in DC2 c'è il riempimento da valutare.
La funzione non viene accettata e credo pure non sia adatta alle
formattazioni condizionali (argomento che ho letto essere molto ostico).
Avete qualche suggerimento/novità in merito alla trattazione di questa
situazione?
Grazie Ale
Non riesco a contare quante celle in una colonna presentano un
riempimento (un colore) derivante dall'intervento della formattazione
condizionale.
Applico questa funzione trovata in una trattazione sul web.
Function ContaCellePerColore(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellaCorrente As Range
Dim cntRes As Long
Application.Volatile
cntRes = 0
indRefColor = cellRefColor.Cells(1, 1).Interior.Color
For Each cellaCorrente In rData
If indRefColor = cellaCorrente.Interior.Color Then
cntRes = cntRes + 1
End If
Next cellaCorrente
ContaCellePerColore = cntRes
End Function
inserisco in DD2:
=ContaCellePerColore(DC6:DC3005, DC2)As Long
dove in DC2 c'è il riempimento da valutare.
La funzione non viene accettata e credo pure non sia adatta alle
formattazioni condizionali (argomento che ho letto essere molto ostico).
Avete qualche suggerimento/novità in merito alla trattazione di questa
situazione?
Grazie Ale
--
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com
Questa email è stata esaminata alla ricerca di virus da AVG.
http://www.avg.com