Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet automatikusan elrejteni az oszlopokat a dátum alapján az Excelben?

Tegyük fel, hogy van egy adattartományom egy munkalapon, most automatikusan el akarom rejteni az oszlopokat egy adott dátum alapján. Például, amikor beírom a dátumot 5. Egy cellába, azonnal el akarom rejteni azokat az oszlopokat, amelyek dátuma ennél a dátumnál rövidebb, mint a következő képernyőkép látható. Ez a cikk néhány trükköt mutat be a megoldáshoz.

doc elrejti az oszlopokat dátum szerint

Oszlopok automatikus elrejtése egy adott dátum alapján VBA kóddal

Oszlopok elrejtése egy adott dátum alapján a Kutools for Excel alkalmazással


nyíl kék jobb buborék Oszlopok automatikus elrejtése egy adott dátum alapján VBA kóddal

A feladat végrehajtásához a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Válassza ki azt a lapfület, amelyet el akar rejteni dátum szerint, és kattintson a jobb gombbal a kiválasztáshoz Kód megtekintése a helyi menüből a Microsoft Visual Basic for Applications ablakot, majd másolja és illessze be a következő kódot a modulba:

VBA kód: Oszlopok automatikus elrejtése adott dátum alapján:

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 elrejti az oszlopokat dátum szerint

2. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és most, amikor beírja a dátumot a cellába K4, az oszlopok, amelyek dátuma kisebb, mint ez a dátum, automatikusan el lesznek rejtve.

Megjegyzések: A fenti kódban K4 az a dátumcella, amely alapján el akarja rejteni az oszlopokat, A1: I1 a sorcellák tartalmazzák a használt dátumot.


nyíl kék jobb buborék Oszlopok elrejtése egy adott dátum alapján a Kutools for Excel alkalmazással

Ha nem ismeri a kódot, itt van egy hasznos eszköz-Kutools for Excel, Annak Válassza a Specifikus cellák lehetőséget segédprogrammal, könnyedén befejezheti ezt a munkát.

Kutools for Excel : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki a dátumfejléceket, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget, lásd a képernyőképet:

2. A kiugrott Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza ki Teljes oszlop tól Kiválasztás típusa, majd válassza ki a kritériumokat, például Kevesebb mint tól Konkrét típus legördülő lista, és írja be a dátumot a következő szövegmezőbe, amely alapján el szeretné rejteni az oszlopokat, lásd a képernyőképet:

doc elrejti az oszlopokat dátum szerint

3. Kattintson a gombra Ok gombra, az adott oszlopokat, amelyek dátuma kevesebb, mint 5., egyszerre választják ki, lásd a képernyőképet:

doc elrejti az oszlopokat dátum szerint

4. Ezután kattintson a jobb gombbal bármelyik kijelölt oszlopfejlécre, és válassza a lehetőséget elrejt a kiválasztott oszlopok elrejtéséhez szükség szerint. Lásd a képernyőképet:

doc elrejti az oszlopokat dátum szerint

Kattintson az Ingyenes letöltés Kutools for Excel most gombra!


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
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.