Come nascondere le righe in base al colore delle celle in Excel?
Nel foglio di lavoro di Excel ho un elenco di celle con molti colori diversi. Ora devo nascondere tutte le righe con lo sfondo azzurro chiaro, come mostrato nello screenshot seguente. Come posso eseguire questa operazione in Excel in modo rapido e semplice?
Nascondere righe in base al colore delle celle con codice VBA
Nascondere righe in base al colore delle celle con Kutools per Excel
Nascondere righe in base al colore delle celle con codice VBA
Per nascondere righe in base a un determinato colore di sfondo, il seguente codice VBA potrebbe esserti utile. Segui questi passaggi:
1. Tieni premuto ALT + F11, quindi si aprirà la finestra Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.
Codice VBA: Nascondere righe in base al colore delle celle:
Sub Hidebycolor()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
Else
xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count > 1 Then
MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
GoTo LInput
End If
On Error Resume Next
Application.ScreenUpdating = False
For I = 1 To xRg.Count
If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
xRg.Range("A" & I).EntireRow.Hidden = True
End If
Next 'i
Application.ScreenUpdating = True
End Sub3. Premi quindi il tasto F5 per eseguire il codice. Verrà visualizzata una finestra di dialogo che ti chiederà di selezionare le celle da utilizzare; vedi lo screenshot:
4. Fai quindi clic sul pulsante OK: tutte le righe con celle colorate in azzurro chiaro verranno nascoste immediatamente. Vedi lo screenshot:
Note:
1. Nel codice precedente, il numero 20 presente nello script If xRg.Range(«A» & I).Interior.ColorIndex = 20 Then corrisponde al codice colore; puoi modificarlo in base alle tue esigenze.
2. Se non conosci il codice del colore, applica il seguente codice per ottenere il codice colore che desideri conoscere:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Inserisci quindi la formula:=GetColor(A2) per ottenere il codice colore specifico dello sfondo nella cella A2; sostituisci A2 con altre celle in base alle tue esigenze.
Nascondere righe in base al colore delle celle con Kutools per Excel
Se hai Kutools per Excel, grazie alla sua funzionalità Seleziona celle con formato simile, puoi prima selezionare tutte le celle con il colore specifico e poi nasconderle in un solo clic.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Fai clic su Kutools > Seleziona > Seleziona celle con formato simile; vedi lo screenshot:
2. Nella finestra di dialogo Seleziona celle con formato simile, esegui le seguenti operazioni:
(1.) Fai clic sul pulsante 
per selezionare il Intervallo dati che desideri utilizzare;
(2.) Fai quindi clic sul pulsante Seleziona formato dalla cellaper selezionare la cella con il colore specifico in base al quale desideri nascondere le righe;
(3.) Tutti gli attributi della cella specificata sono elencati nella casella di riepilogo; seleziona semplicemente Colore di Sfondo nella sezione Riempimento.
3. Fai quindi clic sul pulsante Ok: tutte le celle con il colore specifico verranno selezionate contemporaneamente. Dopodiché, fai clic su Home > Formato > Nascondi e mostra > Nascondi righe; vedi lo screenshot:
4. Le celle selezionate con il colore specifico verranno quindi nascoste; vedi lo screenshot:
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Demo: Nascondere righe in base al colore delle celle con Kutools per Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi