Mastodon

Immaginiamo di aver bisogno di contare le celle di un intervallo di Excel, B5:B20, in base alla loro formattazione; ad esempio abbiamo bisogno di contare tutte le celle che hanno il carattere o lo sfondo uguale alla formattazione presente ad esempio in B5 (o eventualmente in una qualsiasi altra cella)

Dovendo lavorare in ambiente VBA apriamo la relativa finestra.

In Excel XP o 2003
Menù Strumenti – Macro – Visual Basic Editor

In Excel 2007
Bottone di Office – Pulsante Opzioni di Excel – Impostazioni generali – Opzione Mostra scheda Sviluppo sulla barra multifunzione
A questo punto ritornando nella finestra di Excel verrà visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic

In Excel 2010
Scheda File – Opzioni – Personalizzazone barra multifunzione – Selezionare Sviluppo nella sezione Schede principali
A questo punto ritornando nella finestra di Excel verrà visualizzata anche la Scheda Sviluppo nella quale troviamo il pulsante Visual Basic

Nella finestra Visual Basic inserire un nuovo modulo (menù Inserisci – Modulo) quindi copiare il codice riportato qui sotto:

Function CountCcolor(range_data As Range, criteria As Range) As Long
Dim datax As Range
Dim xcolor As Long
xcolor = criteria.Interior.ColorIndex
For Each datax In range_data
If datax.Interior.ColorIndex = xcolor Then
CountCcolor = CountCcolor + 1
End If
Next datax
End Function

Chiudere la finestra e ritornare in Excel. La funzione che deve essere inserita per contare le celle in un intervallo Excel in base ad una specifica formattazione è la seguente:

=CountCcolor(Range_Data;Criteria)

dove

Range_Data è l’intervallo che contiene le celle che si vogliono contare

Criteria è la cella che contiene la formattazione che si vuole utilizzare come filtro per il conteggio

P.S.
Se nella cella di riferimento o nelle celle dell’intervallo viene modificato il formato, l’aggiornamento del risultato del conteggio non è automatico; il cambiamento di un dato nelle celle dell’intervallo da contare farà si che il risultato venga aggiornato.

Invece il metodo più veloce per far si che il conteggio si aggiorni automaticamente quando cambiate il formato delle celle nell’intervallo, è quello di applicare il formato nelle celle che dovranno essere aggiunte al conteggio copiandolo da una cella già formattata utilizzando il pulsante Copia Formato presente sulla barra degli strumenti di Formattazione.

Artist's Point - Monument Valley - 13.10.2014
Impostazioni Blade Nano CPX per Spektrum DX6i
Translate »