Jak vymazat závislou buňku rozevíracího seznamu po výběru změny v aplikaci Excel?
Pro závislý rozevírací seznam, když se změní hodnota nadřazeného rozevíracího seznamu, bude vybraná hodnota ve druhém neplatná. Po výběru změny v prvním musíte neplatnou hodnotu ručně odstranit z druhého rozevíracího seznamu. V tomto článku vám ukážu metodu automatického vymazání závislé buňky rozevíracího seznamu po výběru změny v aplikaci Excel.
Po vybrání změny pomocí kódu VBA vymažte závislou buňku rozevíracího seznamu
Po vybrání změny pomocí kódu VBA vymažte závislou buňku rozevíracího seznamu
Následující kód VBA vám pomůže vymazat závislý rozevírací seznam po výběru změny v aplikaci Excel.
1. Klikněte pravým tlačítkem na kartu list, která obsahuje závislý rozevírací seznam, který automaticky vymažete, a poté vyberte Zobrazit kód z kontextové nabídky.
2. V otvoru Microsoft Visual Basic pro aplikace okno, zkopírujte pod kód VBA do okna.
Kód VBA: Vymazat závislou buňku rozevíracího seznamu po výběru změny
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 2018/06/04
Application.EnableEvents = False
If Target.Column = 5 And Target.Validation.Type = 3 Then
Target.Offset(0, 1).Value = ""
End If
Application.EnableEvents = True
End Sub
Poznámka: V kódu je číslo 5 číslo sloupce, které obsahuje nadřazený rozevírací seznam. V tomto případě se můj rodič rozevírací seznam najde ve sloupci E.
3. zmáčkni Další + Q klávesy pro zavření Microsoft Visual Basic pro aplikace okno.
Od této chvíle, když budou provedeny změny v nadřazeném rozevíracím seznamu, bude obsah druhého rozevíracího seznamu automaticky vymazán. Viz screenshot:
Související články:
- Jak vytvořit závislé kaskádové rozevírací seznamy v aplikaci Excel?
- Jak vytvořit dynamické kaskádové seznamy v aplikaci Excel?
- 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!