Contare il numero di celle con un colore di cella specifico usando VBA

  • Articolo
  • Si applica a:
    Excel for Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Microsoft Office Excel 2007, Microsoft Office Excel 2003

Riepilogo

Nella scheda Formule di Microsoft Excel è noto che nella categoria Altre funzioni>statistiche è presente una funzione denominata COUNTIF che conta il numero di celle all'interno di un intervallo che soddisfano una determinata condizione. I criteri per tale funzione sono limitati a testo o numeri. Tuttavia, usando VBA è possibile creare una funzione per contare il numero di celle con altri criteri, ad esempio il colore della cella.

COUNTIF

Altre informazioni

Con VBA è possibile creare e salvare una funzione definita dall'utente in un file di componente aggiuntivo in modo che possa essere usata in altre cartelle di lavoro e trasferita in altri computer.

Come creare una funzione definita dall'utente

Ecco i passaggi per creare una funzione definita dall'utente per contare il colore della cella:

  1. Aprire Microsoft Excel, quindi premere ALT+F11 per visualizzare la finestra Visual Basic Editor (VBE).

  2. Nel menu Inserisci selezionare Modulo per creare un modulo. Digitare quindi lo script seguente:

    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

    Nel menu Inserisci selezionare Modulo per creare un modulo. Scrivere quindi lo script seguente

  3. Chiudere la finestra VBE per tornare a Excel.

  4. Per testare la funzione definita dall'utente, creare dati di esempio che contengono una colonna di celle in vari colori.

  5. Nella cella D3 scrivere la funzione:

=CountCcolor(range_data,criteria)

  • Nell'argomento "range_data" selezionare la cella da C2 a C51.

  • Nell'argomento "criteri" selezionare la cella F1.

    Nella cella D3 scrivere la funzione: =CountCcolor

  1. Premere INVIO. Il risultato nella cella F2 è 6. Ciò significa che il numero di celle ombreggiate in blu è 6.

    Premere INVIO e nella cella F2 il risultato è 6. Significa che il numero di celle con colore cella blu è di 6 celle

  2. È possibile eseguire il test usando altri colori. Modificare il colore nella cella F1 con qualsiasi colore desiderato dai dati usandoColore riempimentohome>.

    È anche possibile testare un altro colore. Modificare il colore nella cella F1 con qualsiasi colore desiderato dai dati usando Copia formato per ottenere lo stesso colore

  3. È anche possibile comprimere la funzione definita dall'utente in modo che possa essere usata in un'altra cartella di lavoro o in un altro computer. A tale scopo, seguire questa procedura:

    Passaggio 1: Salvare la cartella di lavoro

    a. Selezionare File e quindi Salva con nome. Selezionare Sfoglia se necessario.

    b. Selezionare Excel Add-In (con estensione xlam) come formato e assegnare al file un nome, ad esempio CountCcolor.

    Nota

    È possibile salvare il file Add-In ovunque si desideri. Ma per poter essere elencato come Add-In all'interno del programma Excel, salvarlo nel percorso predefinito. In Windows 7 il percorso predefinito per qualsiasi versione di Microsoft Excel è: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns

    Passaggio 2: Installare il componente aggiuntivo

    a. Aprire Microsoft Excel nel computer in cui si vuole installare il componente aggiuntivo.

    b. Aprire la finestra di dialogo Add-Ins selezionando Componenti aggiuntivi di Excel per Excel 2013 e versioni successive nella scheda Sviluppo . (Componenti aggiuntivi in Excel 2010).

    c. Nella finestra di dialogo Componenti aggiuntivi selezionare Sfoglia. Nella finestra di dialogo Add-In fare clic sul pulsante Sfoglia in modo che venga visualizzata la finestra di dialogo Sfoglia.

    d. Passare al percorso del file in cui viene salvato il file Add-In, ad esempio un'unità USB o una cartella basata sul cloud. Scegliere il file e quindi selezionare Apri.

    e. Nella finestra di dialogo Add-Ins verificare che la casella di controllo del componente aggiuntivo sia deselezionata. Infine scegliere OK. Nella finestra di dialogo Add-Ins verificare che la casella di controllo del componente aggiuntivo sia deselezionata. Selezionare quindi OK.

La funzione definita dall'utente Count Cell Color è installata e pronta per l'uso. Sarà possibile accedere a questa funzione in qualsiasi momento posizionando il cursore in qualsiasi cella del foglio di lavoro e digitando:

=CountCcolor(range_data,criteria)

Dichiarazione di non responsabilità per il contenuto delle soluzioni della Community

MICROSOFT CORPORATION E/O I RISPETTIVI FORNITORI NON RILASCIANO ALCUNA DICHIARAZIONE SULL'IDONEITÀ, L'AFFIDABILITÀ O L'ACCURATEZZA DELLE INFORMAZIONI E DELLA GRAFICA CORRELATA CONTENUTA NEL PRESENTE DOCUMENTO. TUTTE LE INFORMAZIONI E GLI ELEMENTI GRAFICI CORRELATI VENGONO FORNITI "COSÌ COME SONO" SENZA GARANZIA DI ALCUN TIPO. MICROSOFT E/O I RISPETTIVI FORNITORI RIFIUTANO TUTTE LE GARANZIE E LE CONDIZIONI RELATIVE ALLE INFORMAZIONI E ALLA GRAFICA CORRELATA, INCLUSE TUTTE LE GARANZIE IMPLICITE E LE CONDIZIONI DI COMMERCIABILITÀ, IDONEITÀ PER UNO SCOPO SPECIFICO, IMPEGNO PROFESSIONALE, TITOLO E NON VIOLAZIONE. L'UTENTE ACCETTA IN MODO SPECIFICO CHE IN NESSUN CASO MICROSOFT E/O I SUOI FORNITORI SIANO RESPONSABILI PER EVENTUALI DANNI DIRETTI, INDIRETTI, PUNITIVI, INCIDENTALI, SPECIALI, CONSEQUENZIALI O DI QUALSIASI TIPO, INCLUSI, SENZA LIMITAZIONE, DANNI PER PERDITA DI UTILIZZO, DATI O PROFITTI, DERIVANTI DA O IN QUALSIASI MODO CONNESSI ALL'USO O ALL'IMPOSSIBILITÀ DI UTILIZZARE LE INFORMAZIONI E LA GRAFICA CORRELATA CONTENUTA NEL PRESENTE DOCUMENTO, CHE SI TRATTI DI CONTRATTO, ILLECITO, NEGLIGENZA, RESPONSABILITÀ RIGOROSA O ALTRO, ANCHE SE MICROSOFT O UNO DEI SUOI FORNITORI È STATO INFORMATO DELLA POSSIBILITÀ DI DANNI.