Hur gömmer jag kolumner automatiskt baserat på datum i Excel?

Antag att jag har en rad data i ett kalkylblad, nu vill jag automatiskt dölja kolumnerna baserat på ett visst datum. När jag till exempel anger datum 5/16/2016 i en cell vill jag dölja kolumnerna vilket datum är mindre än detta specifika datum omedelbart som följande skärmdump visas. Denna artikel kommer att introducera några knep för att lösa det.

Dölj automatiskt kolumner baserat på ett visst datum med VBA-kod

Dölj kolumner baserat på ett visst datum med Kutools för Excel

Dölj automatiskt kolumner baserat på ett visst datum med VBA-kod

För att slutföra denna uppgift kan följande VBA-kod hjälpa dig, gör så här:

1. Välj arkfliken som du vill dölja efter datum och högerklicka för att välja Visa kod från snabbmenyn för att gå till Microsoft Visual Basic för applikationer och kopiera och klistra sedan in följande kod i modulen:

VBA-kod: Dölj kolumner automatiskt baserat på specifikt 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. Spara och stäng sedan den här koden, gå tillbaka till kalkylbladet och nu, när du anger ett datum i cellen K4, kommer kolumner med datum tidigare än det angivna datumet att döljas automatiskt.

Anmärkningar: I ovanstående kod, K4 är den specifika datumcellen som du vill dölja kolumnerna baserat på, A1: I1 är radcellerna det datum du använde.

Dölj kolumner baserat på ett visst datum med Kutools för Excel

Om du inte känner till koden, här är ett praktiskt verktyg-Kutools för Excel, med dess Välj specifika celler verktyg kan du enkelt avsluta det här jobbet.

När du har installerat Kutools för Excel, gör så här:

1. Välj datumrubriker och klicka Kutools > Välja > Välj specifika celler, se skärmdump:

2. I poppade ut Välj specifika celler dialogrutan väljer du Hela kolumnen från Urvalstypoch välj sedan kriterierna, t.ex. Mindre än från Specifik typ rullgardinsmeny och ange datumet i bredvid textrutan som du vill dölja kolumner baserat på, se skärmdump:

3. Och klicka sedan på Ok -knappen, de specifika kolumnerna med datum som är mindre än 5-16-2016 väljs samtidigt, se skärmdump:

4. Högerklicka sedan på en vald kolumnrubrik och välj Dölja för att dölja dessa valda kolumner efter behov. Se skärmdump: