Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

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.

doc göm kolumner efter datum 1

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


pil blå höger bubbla 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

doc göm kolumner efter datum 2

2. Spara och stäng sedan den här koden, gå tillbaka till kalkylbladet och nu när du anger datumet i cellen K4, döljs kolumnerna med vilket datum som är mindre än det specifika datumet 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.


pil blå höger bubbla 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.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. 

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:

doc göm kolumner efter datum 4

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:

doc göm kolumner efter datum 5

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:

doc göm kolumner efter datum 6

Klicka på Gratis nedladdning Kutools för Excel nu!


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2019 och 365. Stöder alla språk. Enkel distribution i ditt företag eller organisation. Fullständiga funktioner 30-dagars gratis provperiod. 60-dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50% och minskar hundratals musklick åt dig varje dag!
officetab botten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Seven · 3 years ago
    I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Hello,
    Thanks for the code.
    In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.