Come filtrare i dati semplicemente facendo clic sul contenuto della cella in Excel?
Normalmente, in Excel, puoi applicare la funzione Filtro per filtrare i dati in base alle tue necessità. Ma, in questo articolo, parlerò di come filtrare i dati semplicemente facendo clic su un valore di cella. Prendi i seguenti dati come esempio, quando faccio doppio clic sulla cella A2, tutti i record corrispondenti basati su questo valore cliccato verranno filtrati contemporaneamente come mostrato nell'immagine sottostante.
Filtra i dati semplicemente facendo clic su un valore di cella con codice VBA
Filtra i dati semplicemente facendo clic su un valore di cella con codice VBA
Qui, fornirò un codice VBA per filtrare i dati facendo clic su una cella, per favore fai come segue:
1. Innanzitutto, dai ai tuoi dati un nome di intervallo, inserisci un nome di intervallo nel file Nome casellae premere Entra chiave, vedi screenshot:
2. Fare clic con il pulsante destro del mouse sulla scheda del foglio che si desidera filtrare facendo clic sulla cella, quindi scegliere Visualizza codice dal menu contestuale e nel file Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: filtra i dati facendo clic sul valore della cella:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
Note:: Nel codice sopra, i miei dati è il nome dell'intervallo che hai creato per il tuo intervallo di dati, modificalo secondo le tue necessità.
3. Quindi salva e chiudi la finestra del codice, ora, quando fai doppio clic su qualsiasi cella dell'intervallo di dati che desideri filtrare, i record corrispondenti verranno filtrati come mostrato nella seguente schermata:
Altri articoli correlati:
Come modificare il valore della cella facendo clic sulla cella?
Come ordinare i dati delle colonne facendo clic sull'intestazione in Excel?
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
