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.

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!