Hoe kolommen automatisch op basis van datum in Excel te verbergen?
Stel dat ik een reeks gegevens heb in een werkblad, en nu wil ik de kolommen automatisch verbergen op basis van een specifieke datum. Bijvoorbeeld, wanneer ik de datum 16/5/2016 in een cel invoer, wil ik de kolommen die een datum hebben die kleiner is dan deze specifieke datum onmiddellijk verbergen, zoals in de volgende schermafbeelding wordt getoond. Dit artikel introduceert enkele 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 te voltooien, kan de volgende VBA-code u helpen. Volg de onderstaande stappen:
1. Selecteer het werkbladtabblad dat u wilt verbergen op basis van datum, klik met de rechtermuisknop en kies Venster Code uit het contextmenu om naar het Microsoft Visual Basic for Applications-venster te gaan, en kopieer en plak vervolgens de volgende code in de Module:
VBA-code: Kolommen automatisch verbergen op basis van 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. Sla daarna de code op en sluit deze, ga terug naar het werkblad, en nu, wanneer u een datum invoert in cel K4, worden kolommen met datums eerder dan de opgegeven datum automatisch verborgen.
Opmerking: In de bovenstaande code is K4 de specifieke datumcel waarop u de kolommen wilt verbergen, A1:I1 zijn de rijcellen die de datum bevatten die u gebruikt.
Kolommen verbergen op basis van een specifieke datum met Kutools voor Excel
Als u niet bekend bent met code, hier is een handig hulpmiddel - Kutools voor Excel, met de functie Specifieke cellen selecteren kunt u deze taak eenvoudig voltooien.
Nadat u Kutools voor Excel hebt geïnstalleerd, volgt u de volgende stappen:
1. Selecteer de datumkoppen, en klik op Kutools > Selecteren > Specifieke cellen selecteren, zie schermafbeelding:
2. In het pop-upvenster Specifieke cellen selecteren, selecteert u Volledige kolom van het Selectietype, en kies vervolgens de criteria, zoals Kleiner dan uit de lijst Specificeer type, en voer de datum in het tekstvak ernaast in waarop u de kolommen wilt verbergen, zie schermafbeelding:
3. Klik vervolgens op de knop OK, de specifieke kolommen waarvan de datum kleiner is dan 16/5/2016 worden meteen geselecteerd, zie schermafbeelding:
4. Klik met de rechtermuisknop op een van de geselecteerde kolomkoppen, en selecteer Verbergen om de geselecteerde kolommen te verbergen zoals u nodig heeft. Zie schermafbeelding:
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen