Jak naplnit pole se seznamem daty pojmenovaného rozsahu v aplikaci Excel?
Můžete určit pole se seznamem (ovládací prvek ActiveX) s daty určitého rozsahu přidáním rozsahu do vlastností ListFillRange pole se seznamem. Ale víte, jak naplnit pole se seznamem daty pojmenovaného rozsahu v aplikaci Excel? Například jste pojmenovali rozsah buněk v listu a nyní je třeba zadat tento název rozsahu do pole se seznamem. Když vyberete název rozsahu v jednom poli se seznamem, všechny hodnoty buněk v tomto pojmenovaném rozsahu se automaticky vyplní v jiném poli se seznamem. Tento článek představí metodu VBA k vyřešení tohoto problému.
Naplňte pole se seznamem daty pojmenovaného rozsahu kódem VBA
Naplňte pole se seznamem daty pojmenovaného rozsahu kódem VBA
Při vyplňování pole se seznamem daty pojmenovaného rozsahu v aplikaci Excel postupujte takto.
1. Vyberte prosím v záhlaví celé záhlaví (v tomto případě vyberu A1: E1) a poté zadejte název do Název Box jak je ukázáno níže.
2. Vyberte data každého sloupce kromě jeho záhlaví a poté sloupec pojmenujte samostatně v Název Box. Viz snímek obrazovky:
V tomto případě jsem samostatně pojmenoval rozsah A2: A8, B2: B8, C2: C8, D2: D8 a E2: E8 jako Date, Shop, Items, Sales a Weekday.
3. Poté kliknutím vložte pole se seznamem Vývojka > Vložit > Rozbalovací seznam (ovládací prvek ActiveX). Viz snímek obrazovky:
4. Opakujte krok 3 a vložte další kombinované pole do listu.
5. Klepněte pravým tlačítkem myši na kartu list a poté klepněte na Zobrazit kód z kontextové nabídky. Viz snímek obrazovky:
6. V otvoru Microsoft Visual Basic pro aplikace zkopírujte a vložte pod kód VBA do okna Kód.
Kód VBA: Naplňte rozbalovací seznam daty pojmenovaného rozsahu
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Poznámka: V kódu je ComboBox1 název pole se seznamem, ve kterém budete uvádět všechny názvy rozsahů, a ComboBox2 je název pole se seznamem, do kterého budou vyplněna data zadaného pojmenovaného rozsahu. „Záhlaví“ je název rozsahu, který jste vytvořili v kroku 1.
7. Vypněte návrhový režim kliknutím Vývojka > Režim návrhu.
8. Aktivujte kód kliknutím na libovolnou buňku v listu. Klikněte na tlačítko se šipkou v prvním poli se seznamem a uvidíte, že všechny pojmenované rozsahy jsou uvedeny uvnitř. Viz screenshot:
Při výběru pojmenovaného rozsahu v prvním poli se seznamem se odpovídající data buňky naplní do druhého pole se seznamem, jak je ukázáno níže:
Snadné vytváření rozevíracího seznamu se zaškrtávacími políčky v aplikaci Excel:
Projekt Rozevírací seznam se zaškrtávacími políčky užitečnost Kutools pro Excel vám pomůže snadno vytvořit rozevírací seznam se zaškrtávacími políčky v zadaném rozsahu, aktuálním listu, aktuálním sešitu nebo všech otevřených sešitech podle vašich potřeb.
Stáhněte si a vyzkoušejte to hned! (30denní bezplatná trasa)
Související články:
- Jak kopírovat hodnotu pole se seznamem do aktivní buňky v aplikaci Excel?
- Jak zobrazit formát data ve výstupu pole se seznamem v aplikaci Excel?
- Jak zabránit nebo zakázat psaní v poli se seznamem v aplikaci Excel?
- Jak naplnit pole se seznamem se zadanými daty v otevřeném sešitu?
- Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace 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!