Vanita ha chiesto se esiste un modo per selezionare le celle contenenti un colore specifico. Portare a termine l’attività è facile se stai usando Excel 2003. Segui questi passaggi:

  1. Premere Ctrl + F per visualizzare la scheda Trova della finestra di dialogo Trova e sostituisci. (Vedi figura 1.)

  2. Assicurati che non ci sia nulla nella casella Trova.

  3. Fare clic su Formato. Potrebbe essere necessario fare clic su Opzioni per visualizzare il pulsante Formato. Excel visualizza la finestra di dialogo Trova formato.

  4. Assicurati che sia visualizzata la scheda Motivi. (Vedi figura 2.)

  5. Scegli tra i colori disponibili il colore che desideri trovare.

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

  7. Fare clic su Trova tutto. La finestra di dialogo Trova e sostituisci si espande per mostrare gli indirizzi di tutte le celle formattate con il colore specificato nel passaggio 5. (Vedi figura 3.)

  8. Fare clic su uno degli indirizzi di cella nella parte inferiore della finestra di dialogo. Excel seleziona la cella all’interno del foglio di lavoro effettivo.

  9. Premi Ctrl + A. Vengono selezionati tutti gli indirizzi all’interno della finestra di dialogo.

  10. Fare clic su Chiudi. Vengono selezionate tutte le celle del colore desiderato.

Se si utilizza Excel 97, Excel 2000 o Excel 2002, l’unico modo per selezionare celle di un colore particolare è utilizzare una macro. Considera la macro mostrata qui:

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

Per utilizzare la macro, seleziona un intervallo di celle prima di eseguirla. La macro quindi passa attraverso ogni cella selezionata e confronta il suo colore con il colore specificato in lColor. Se viene trovata una corrispondenza, la cella viene aggiunta a un gruppo di selezione. Al termine, la macro seleziona solo le celle corrispondenti e quindi esce.

Se desideri scoprire altre soluzioni basate su macro, puoi fare riferimento al seguente articolo della Microsoft Knowledge Base:

http://support.microsoft.com/kb/142122

_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 (2396) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Finding Cells Filled with a Particular Color.