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
Oszlopok elrejtése egy adott dátum alapján a Kutools for Excel alkalmazással
Oszlopok automatikus elrejtése egy adott dátum alapján VBA kóddalA 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.
Oszlopok elrejtése egy adott dátum alapján a Kutools for Excel alkalmazássalHa 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:
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 az Ingyenes letöltés Kutools for Excel most gombra!
