Hoe rijen te verbergen op basis van de datum van vandaag in Excel?
Stel dat u een fruittabel in een werkblad heeft zoals de onderstaande schermafbeelding laat zien, en dat u alle rijen voor of na de huidige datum (6-14-2016) in de tabel moet verbergen. Dit artikel biedt u drie methoden.
Verberg rijen op basis van de datum van vandaag met de filterfunctie
Verberg rijen op basis van de datum van vandaag met VBA-code
Verberg rijen op basis van de datum van vandaag met Kutools voor Excel
Verberg rijen op basis van de datum van vandaag met de filterfunctie
Met de filterfunctie in Excel kunt u eenvoudig alle benodigde rijen filteren en alle ongewenste rijen verbergen op basis van de datum van vandaag.
1. Klik in de tabel op de vervolgkeuzeknop in de kolom Datum en klik vervolgens op Datumfilters > Voor or Na. Zie screenshot:
Opmerkingen:
2. In de Aangepast AutoFilter dialoogvenster, klik op de Datumkiezer naast het vak is na en klik op het Heden knop in de kalender. En klik vervolgens op het OK knop.
Alle rijen vóór de datum van vandaag worden dan onmiddellijk verborgen.
Verberg rijen op basis van de datum van vandaag met VBA-code
U kunt ook VBA-code toepassen om rijen te verbergen op basis van de datum van vandaag in Excel. Ga als volgt te werk.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens de volgende VBA-code in het venster.
VBA-code: verberg rijen op basis van de datum van vandaag in Excel
Private Sub Hidebtn_Click()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Value < Now Then
xCell.EntireRow.Hidden = True
End If
Next
End Sub
3. druk de F5 sleutel, in het opduiken Kutools for Excel dialoogvenster, selecteer de datumbereikkolom en klik vervolgens op het OK knop.
Nu worden alle rijen vóór de datum van vandaag onmiddellijk verborgen.
Opmerkingen:
VBA-code: maak alle verborgen rijen in Excel zichtbaar
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub
Verberg rijen op basis van de datum van vandaag met Kutools voor Excel
Met de Selecteer specifieke cellen nut van Kutools for Excel, kunt u eenvoudig alle rijen voor of na de datum van vandaag selecteren en ze vervolgens handmatig verbergen.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer de datumlijst in uw tabel en klik op Kutools > kies > Selecteer specifieke cellen.
2. In de Selecteer specifieke cellen dialoogvenster, selecteert u het Hele rij optie in het Selectie type sectie en selecteer Minder dan or Groter dan optie (hier selecteer ik de optie Minder dan) in de eerste Specifiek type vervolgkeuzelijst en voer de datum van vandaag in het volgende tekstvak in. Klik ten slotte op het OK knop. Zie screenshot:
3. Vervolgens verschijnt er een dialoogvenster waarin u kunt zien hoeveel rijen er zijn geselecteerd. Klik op OK knop. En u kunt zien dat alle rijen vóór de datum van vandaag zijn geselecteerd, zoals onderstaand screenshot.
4. Klik met de rechtermuisknop op de selectie en klik vervolgens Verbergen in het rechtsklikmenu om alle geselecteerde rijen vóór de datum van vandaag te verbergen.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Gerelateerde artikelen:
- Hoe het selectievakje te verbergen wanneer de rij is verborgen in Excel?
- Hoe rijen of kolommen met een plus- of minteken in Excel te verbergen / zichtbaar te maken?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!