Jak skrýt nebo zobrazit sloupce na základě výběru rozevíracího seznamu v aplikaci Excel?

Při používání aplikace Excel můžete skrýt nebo zobrazit konkrétní sloupce na základě výběru z rozevíracího seznamu. Například pokud v rozevíracím seznamu vyberete Ne, sloupec C až I bude skrytý, ale pokud vyberete Ano, skryté sloupce C až I budou skryté. Viz níže zobrazený snímek obrazovky.
V tomto článku vám ukážeme metodu VBA pro skrytí nebo odkrytí sloupců na základě výběru rozevíracího seznamu v aplikaci Excel.

Skrýt nebo zobrazit sloupce na základě výběru z rozevíracího seznamu v aplikaci Excel

Skrýt nebo zobrazit sloupce na základě výběru z rozevíracího seznamu v aplikaci Excel

Jak bylo uvedeno výše, pro skrytí nebo odkrytí sloupců C až I na základě výběru z rozevíracího seznamu postupujte takto.

1. Nejprve vytvořte rozevírací seznam s Ano a Ne, které potřebujete.

2. Poté stiskněte Další + F11 k otevření Microsoft Visual Basic pro aplikaci okno.

3. Poklepejte na název aktuálního otevřeného listu v Projekt VBA sekce otevřete editor kódu.

4. Poté zkopírujte a vložte pod kód VBA do editoru kódu.

Kód VBA: skrýt nebo zobrazit sloupce na základě výběru z rozevíracího seznamu

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
    If Target.Column = 2 And Target.Row = 3 Then
        If Target.Value = "No" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "Yes" Then
            Application.Columns("C:I").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

Pozor: Ve výše uvedeném kódu je sloupec = 2 a řádek = 3 odkazem na buňku rozevíracího seznamu a rozsah C: I jsou sloupce, které chcete skrýt nebo zobrazit, prosím změňte je podle svých potřeb.

5. lis Další + Q současně opustíte Microsoft Visual Basic pro aplikaci okno.

Od této chvíle, když v rozevíracím seznamu vyberete Ne, budou všechny zadané sloupce skryty.

Pokud ale v rozevíracím seznamu vyberete Ano, zobrazí se okamžitě všechny skryté sloupce.

Odemkněte kouzlo Excelu s Kutools AI

• Chytré provedení: Provádějte operace s buňkami, analyzujte data a vytvářejte grafy – to vše pomocí jednoduchých příkazů.
• Vlastní vzorce: Vytvářejte přizpůsobené vzorce pro zefektivnění vašich pracovních postupů.
• Kódování VBA: Napište a implementujte kód VBA bez námahy.
• Výklad vzorce: Snadno porozumíte složitým vzorcům.
• Překlad textu: Prolomte jazykové bariéry ve svých tabulkách.

Vylepšete své možnosti aplikace Excel pomocí nástrojů založených na umělé inteligenci. Stáhnout nyní a zažijte efektivitu jako nikdy předtím!

Související články:

• Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?
• Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
• Jak vytvořit kalendář rozevíracího seznamu v aplikaci Excel?
• Jak vytvořit vyhledávací rozevírací seznam v aplikaci Excel?
• Jak vytvořit rozevírací seznam s více výběry nebo hodnotami v aplikaci Excel?