Předpokládejme, že mám v listu řadu dat, teď chci automaticky skrýt sloupce na základě konkrétního data. Například když zadám datum 5/16/2016 do buňky, chci okamžitě skrýt sloupce, jejichž datum je menší než toto konkrétní datum, jak ukazuje následující snímek obrazovky. Tento článek představí některé triky pro jeho řešení.
Automaticky skryjte sloupce na základě konkrétního data pomocí kódu VBA
Skrýt sloupce na základě konkrétního data pomocí Kutools pro Excel
Automaticky skryjte sloupce na základě konkrétního data pomocí kódu VBAK dokončení tohoto úkolu vám může pomoci následující kód VBA, postupujte takto:
1. Vyberte kartu listu, kterou chcete skrýt podle data, a klikněte pravým tlačítkem a vyberte ji Zobrazit kód z kontextového menu přejděte do Microsoft Visual Basic pro aplikace okno a poté zkopírujte a vložte následující kód do modulu:
Kód VBA: Automaticky skrýt sloupce na základě konkrétního data:
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. Poté tento kód uložte a zavřete, vraťte se do listu a nyní, když zadáte datum do buňky K4, sloupce, jejichž datum je menší než toto konkrétní datum, budou automaticky skryty.
Poznámka: Ve výše uvedeném kódu, K4 je konkrétní buňka data, na které chcete skrýt sloupce, A1: I1 je řádek buňky obsahují datum, které jste použili.
Skrýt sloupce na základě konkrétního data pomocí Kutools pro ExcelPokud nejste obeznámeni s kódem, zde je praktický nástroj -Kutools pro Excel, S jeho Vyberte konkrétní buňky nástroj, můžete tuto práci snadno dokončit.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně:
1. Vyberte záhlaví data a klikněte na Kutools > vybrat > Vyberte konkrétní buňky, viz screenshot:
2. Ve vyskočené Vyberte konkrétní buňky dialogové okno vyberte Celý sloupec z Typ výběrua poté vyberte kritéria, například Méně než z Specifický typ rozevírací seznam a zadejte datum do dalšího textového pole, na kterém chcete skrýt sloupce, viz screenshot:
3. A pak klikněte na tlačítko Ok tlačítko, najednou jsou vybrány konkrétní sloupce, jejichž datum je menší než 5/16/2016, viz screenshot:
4. Poté klikněte pravým tlačítkem na libovolné vybrané záhlaví sloupce a vyberte Skrýt skrýt tyto vybrané sloupce podle potřeby. Viz snímek obrazovky:
Klikněte na Stažení zdarma Kutools pro Excel hned teď!
