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.
Oszlopok automatikus elrejtése egy adott dátum alapján VBA kóddal
Az oszlopok elrejtése egy adott dátum alapján a Kutools for Excel segítségével
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
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.
Az oszlopok elrejtése egy adott dátum alapján a Kutools for Excel segítségével
Ha nem ismeri a kódot, itt van egy hasznos eszköz-Kutools az Excel számára, Annak Válassza a Specifikus cellák lehetőséget segédprogrammal, könnyedén befejezheti ezt a munkát.
| Kutools az Excel számára : 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 az Excel számára, 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:
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:
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:
Kattintson a Kutools ingyenes letöltése az Excelhez gombra most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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 naponta több száz kattintással csökkenti az egér kattintását!
