Cindy ha un foglio di lavoro completamente formattato che utilizza il colore in molte celle.

Alcune celle contengono valori; molti non lo fanno. Ha bisogno di un modo per contare le celle colorate vuote e si chiede se esiste un modo rapido per farlo.

Ci sono alcuni modi per ottenere le informazioni di cui hai bisogno. Un modo è seguire questi passaggi:

  1. Individua il colore che desideri utilizzare per il conteggio.

  2. Premi F5. Excel visualizza la finestra di dialogo Vai a.

  3. Fare clic sul pulsante Speciale. Excel visualizza la finestra di dialogo Vai a speciale.

(Vedi figura 1.)

  1. Seleziona il pulsante di opzione Blanks.

  2. Fare clic su OK. Ora tutte le celle vuote nel foglio di lavoro sono selezionate.

  3. Premi Ctrl + F. Excel visualizza la scheda Trova della finestra di dialogo Trova e sostituisci.

  4. Fare clic sul pulsante Opzioni per espandere la finestra di dialogo. (Vedi figura 2.)

  5. Fare clic sul pulsante Formato. Excel visualizza la finestra di dialogo Trova formato.

  6. Assicurati che la scheda Riempi sia visualizzata. (Vedi figura 3.)

  7. Fare clic sul colore che si desidera cercare. (Questo è il colore che hai determinato nel passaggio 1.)

  8. Fare clic su OK per chiudere la finestra di dialogo Trova formato.

  9. Fare clic su Trova tutto.

Quando esegui questi passaggi, Excel mostra, nella parte inferiore della finestra di dialogo Trova e sostituisci, quante celle ha trovato che corrispondono al tuo colore. Poiché hai iniziato la ricerca con solo celle vuote selezionate, il conteggio risultante è tutte quelle celle vuote che sono riempite con il colore.

Naturalmente, se è necessario determinare questo conteggio diverse volte, questi passaggi possono diventare molto noiosi molto rapidamente. In questi casi è una buona idea usare una macro. La seguente macro passa attraverso ogni cella vuota in qualsiasi intervallo selezionato e verifica se contiene un motivo o un colore ed è vuota. Se le condizioni sono soddisfatte, viene incrementato un contatore per quel colore.

Sub CountBlankColors1()

Dim c As Range     Dim J As Integer     Dim ColorCount(56) As Long

ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         With c.Interior             If .Pattern <> xlNone Then                 If .ColorIndex <> xlNone Then                     If IsEmpty(c) Then                         ColorCount(.ColorIndex) = _                           ColorCount(.ColorIndex) + 1                     End If                 End If             End If         End With     Next c

sTemp = "These are the color counts" & vbCrLf & vbCrLf     For J = 0 To 56         If ColorCount(J) > 0 Then             sTemp = sTemp & "Color " & J & ": " & ColorCount(J) & vbCrLf         End If     Next J

MsgBox sTemp End Sub

Ovviamente potresti non voler contare i diversi colori individualmente.

Invece, potresti voler sapere semplicemente quante celle vuote sono riempite con qualsiasi colore, in aggregato. In quel caso la macro diventa molto più semplice.

Sub CountBlankColors2()

Dim c As Range     Dim x As Long

x = 0     ActiveSheet.Range("a1").CurrentRegion.SpecialCells(xlCellTypeBlanks).Select

For Each c In Selection         If c.Interior.Pattern <> xlNone Then             If c.Interior.ColorIndex <> xlNone Then                 If IsEmpty(c) Then x = x + 1             End If         End If     Next c     MsgBox "Number of colored blank cells: " & x End Sub

Va notato che questi approcci non prendono in considerazione se la cella è colorata tramite l’uso di un formato condizionale o meno.

(In effetti, non tengono affatto conto dei formati condizionali.)

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (12581) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.