Come nascondere automaticamente le colonne in base alla data in Excel?
Supponiamo di avere un intervallo di dati in un foglio di lavoro e ora voglio nascondere le colonne in base a una data specifica in modo automatico. Ad esempio, quando inserisco la data 16/5/2016 in una cella, voglio nascondere immediatamente le colonne con date precedenti a questa data specifica, come mostrato nello screenshot seguente. Questo articolo introdurrà alcuni trucchi per risolvere il problema.
Nascondere automaticamente le colonne in base a una data specifica con il codice VBA
Nascondere le colonne in base a una data specifica con Kutools per Excel
Nascondere automaticamente le colonne in base a una data specifica con il codice VBA
Per completare questo compito, il seguente codice VBA potrebbe esserti utile, procedi come segue:
1. Seleziona la scheda del foglio che desideri nascondere in base alla data, fai clic con il pulsante destro del mouse e scegli Visualizza Codice dal menu contestuale per andare alla finestra Microsoft Visual Basic for Applications, quindi copia e incolla il seguente codice nel Modulo:
Codice VBA: Nascondere automaticamente le colonne in base a una data specifica:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Quindi salva e chiudi questo codice, torna al foglio di lavoro, e ora, quando inserisci una data nella cella K4, le colonne con date precedenti alla data specificata verranno nascoste automaticamente.
Nota: Nel codice sopra, K4 è la cella della data specifica in base alla quale vuoi nascondere le colonne; A1:I1 sono le celle della riga che contengono la data utilizzata.
Nascondere le colonne in base a una data specifica con Kutools per Excel
Se non sei familiare con il codice, ecco uno strumento pratico - Kutools per Excel, con la sua funzione Seleziona Celle Specifiche, puoi completare questo lavoro con facilità.
Dopo aver installato Kutools per Excel, procedi come segue:
1. Seleziona le intestazioni delle date e fai clic su Kutools > Seleziona > Seleziona Celle Specifiche, vedi screenshot:
2. Nella finestra di dialogo Seleziona Celle Specifiche visualizzata, seleziona Colonna intera dal tipo di selezione, quindi scegli i criteri, come Minore di dall'elenco a discesa Tipo specifico, e inserisci la data nella casella di testo successiva in base alla quale vuoi nascondere le colonne, vedi screenshot:
3. Quindi fai clic sul pulsante Ok, le colonne specifiche con date precedenti al 16/5/2016 verranno selezionate immediatamente, vedi screenshot:
4. Fai quindi clic con il pulsante destro del mouse su una qualsiasi intestazione di colonna selezionata e seleziona Nascondi per nascondere queste colonne selezionate secondo necessità. Vedi screenshot:
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in