Hoe verberg je kolommen in Excel automatisch op basis van de datum?
Stel dat u een reeks gegevens heeft in een werkblad en de kolommen automatisch wilt verbergen op basis van een specifieke datum. Bijvoorbeeld: zodra u de datum 16-5-2016 in een cel invoert, worden direct alle kolommen verborgen met datums die vóór deze datum vallen, zoals in de onderstaande schermafbeelding is te zien. Dit artikel biedt handige trucs om dit probleem op te lossen.
Kolommen automatisch verbergen op basis van een specifieke datum met VBA-code
Kolommen verbergen op basis van een specifieke datum met Kutools voor Excel
Kolommen automatisch verbergen op basis van een specifieke datum met VBA-code
Om deze taak uit te voeren, helpt de volgende VBA-code u op weg. Volg deze stappen:
1. Selecteer het blad waarvan u kolommen wilt verbergen op basis van de datum, klik er met de rechtermuisknop op en kies Code weergeven in het contextmenu om het venster Microsoft Visual Basic for Applications te openen. Kopieer en plak vervolgens de volgende code in de module:
VBA-code: Kolommen automatisch verbergen op basis van een specifieke datum:
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. Voer daarna de code Opslaan en sluiten uit, keer terug naar het werkblad en zodra u een datum invoert in cel K4, worden kolommen met een eerdere datum dan de opgegeven datum automatisch verborgen.
Opmerking: In de bovenstaande code is K4 de cel met de specifieke datum op basis waarvan u kolommen wilt verbergen, en zijn A1:I1 de rijcellen die de gebruikte datums bevatten.
Kolommen verbergen op basis van een specifieke datum met Kutools voor Excel
Bent u niet bekend met code? Gebruik dan de handige tool Kutools voor Excel! Met de functie Specifieke cellen selecteren voert u deze taak eenvoudig uit.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer de datumkoppen en klik op Kutools > Selecteren > Specifieke cellen selecteren, zie schermafbeelding:
2. Selecteer in het verschijnende dialoogvenster Specifieke cellen selecteren de optie Gehele kolom bij Selecteer type, kies vervolgens een criterium zoals Kleiner dan in de vervolgkeuzelijst Specificeer type en voer de datum in het aangrenzende tekstvak in op basis waarvan u kolommen wilt verbergen. Zie schermafbeelding:
3. Klik daarna op OK om in één keer de kolom te selecteren waarvan de datum kleiner is dan 5/16/2016. Zie schermafbeelding:
4. Klik met de rechtermuisknop op een willekeurige geselecteerde kolomkop en kies Verbergen om de geselecteerde kolommen naar wens te verbergen. Zie schermafbeelding:
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins