Přejít k hlavnímu obsahu

Jak vybrat konkrétní list na základě hodnoty buňky na jiném listu v aplikaci Excel?

Předpokládejme, že máte rozevírací seznam pro ověření dat, který obsahuje všechny názvy listů, a chcete automaticky vybrat nebo přeskočit na odpovídající list na základě názvu listu, který jste vybrali v rozevíracím seznamu, co můžete udělat? A co tak automaticky přeskočit na určitý list po zadání názvu listu do určené buňky? Tento článek vám ukáže několik metod, jak toho dosáhnout.

Vyberte konkrétní list na základě výběru z rozevíracího seznamu pomocí kódu VBA
Vyberte konkrétní list založený na hodnotě buňky pomocí kódu VBA
Pomocí Kutools pro Excel snadno vytvoříte index listů a přejdete na určitý list


Vyberte konkrétní list na základě výběru z rozevíracího seznamu pomocí kódu VBA

Například rozevírací seznam vyhledá v buňce A2 listu8. Když je v rozevíracím seznamu vybrán název listu, můžete spustit níže uvedený kód VBA a vybrat nebo přeskočit na odpovídající list.

1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace V levém panelu dvakrát klikněte na název listu (list obsahující rozevírací seznam, ze kterého vyberete názvy listů), poté zkopírujte a vložte níže uvedený kód VBA do okna Code.

Kód VBA: Vyberte konkrétní list na základě výběru z rozevíracího seznamu

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Not (Application.Intersect(Range("A2"), Target) Is Nothing) Then _
        ThisWorkbook.Sheets(Target.Value).Activate
End Sub

Poznámka: Můžete změnit „A2“ na svou vlastní buňku.

3. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Od této chvíle, když v rozevíracím seznamu Listu 8 vyberete název listu, bude tento list vybrán automaticky.


Vyberte konkrétní list založený na hodnotě buňky pomocí kódu VBA

Pokud chcete přeskočit na určitý list po zadání názvu listu do buňky (buňka A1 v listu1), můžete zkusit následující kód VBA.

1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace V levém panelu poklepejte na název listu (list, který zadáte do názvu listu), poté zkopírujte a vložte níže uvedený kód VBA do okna Code. Viz snímek obrazovky:

Kód VBA: vyberte konkrétní list na základě hodnoty buňky

Sub ActivateSheetsByValue()
    On Error Resume Next
    ThisWorkbook.Sheets(Worksheets("Sheet1").Range("A1").Value).Activate
End Sub

3. Vraťte se do listu a do buňky A1 zadejte název listu, který chcete vybrat, a aktivujte okno s kódem, poté spusťte kód stisknutím klávesy F5.

Pokud buňka A1 v Listu1 obsahuje název listu „List8“, po spuštění kódu VBA okamžitě přejde na List8.


Pomocí Kutools pro Excel snadno vytvoříte index listů a přejdete na určitý list

Pokud chcete jen rychle vybrat nebo přejít na konkrétní list, můžete zkusit Vytvořte seznam názvů listů užitečnost Kutools pro Excel. Pomocí tohoto nástroje můžete snadno vytvořit index listu a poté rychle přejít na určitý list kliknutím na název listu.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools Plus > Pracovní list > Vytvořte seznam názvů listů. Viz snímek obrazovky:

2. V Vytvořte seznam názvů listů dialogové okno vyberte Obsahuje seznam hypertextových odkazů možnost v Styly indexů listů sekce; zadejte název indexu listu do Zadejte název listu pro rejstřík listů krabice; Vybrat Před všechny listy v Vložit rejstřík listů v rozevíracím seznamu. Poté klikněte na ikonu OK .

Poznámka: zkontrolovat Obsahuje tlačítka a makra možnost, získáte index listu s tlačítkem makra. Viz snímek obrazovky:

V listu Rejstřík můžete kliknutím na název určitého listu přejít na tento list automaticky.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Pomocí Kutools pro Excel snadno vytvoříte index listů a přejdete na určitý list

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

karta kte 201905


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I have generated a table that lists the name of every sheet in my workbook. I have a macro whereby I select the cell with a particular sheet name, hit the form control button and that sheet is made visible and active. I want to expand on this. For example I have 3 sheets named 107A, 107B, 107C When I select 107 in my index table, I want the macro to open every sheet that begins with 107 I have a macro that will find and unhide sheets with a name Like *107* but I have not succeeded in modifying that to look for the sheet name listed in the active cell. Can you help?
This comment was minimized by the moderator on the site
Hi,
Sorry can't help you with that. Thank you for your comment.
This comment was minimized by the moderator on the site
I would like to know how to make a command button when i have hidden tabs. I have a drop down list of names and each name has a dedicated form i would like to choose the name on the list and the sheet for that person is displayed
This comment was minimized by the moderator on the site
Please upload a video regarding this as it will be much easier to understand.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations