Tvorba a sdílení vlastních seznamů

Uživatelé běžně používají přednastavené řady čísel, datumů, dnů v týdnu nebo měsíců. Kromě nich si můžeme vytvořit vlastní posloupnosti (např. anglická jména dnů, měsíců, označení krajů a měst apod.), které urychlí tvorbu zažitých, často používaných, po sobě jdoucích hodnot.

Vlastní seznamy

Tvorba vlastních seznamů je ukryta v nastavení Excelu, dle verze se liší postup.

  • 2003: Nástroje > Možnosti > Vlastní seznamy
  • 2007: Office tlačítko > Možnosti aplikace Excel > Upravit vlastní seznamy
  • 2010 a vyšší: Soubor > Možnosti > Upřesnit > Upravit vlastní seznamy
Soubor - Možnosti
Soubor – Možnosti

V okně Vlastní seznamy zvolíme NOVÝ SEZNAM, v pravé části okna napíšeme hodnoty seznamu za sebou oddělené čárkami, nebo pod sebou. Pokud je hodnot více a jsou zapsané v poli buněk na listu, lze je označit v kolonce Importovat seznam z buněk a potvrdit volbou Importovat.

Takové řady jsou uloženy v nastavení profilu uživatele počítače a fungují ve všech souborech Excelu.

Vlastní seznamy
Vlastní seznamy

Možnost přenosu nastavení

Pokud chcete zálohovat nastavení řad pro pozdější použití, nebo je chcete sdílet s jinými uživateli, existují jisté možnosti. Samotné řady nejsou uloženy v nějakém souboru, který by se dal snadno kopírovat. Následující postup je určen jen pro pokročilé uživatele.

Nalezení v registru

Nastavení vlastních seznamů je uloženo v registru.

  1. Spusťte regedit
  2. Najděte HKEY_CURRENT_USER\Software\Microsoft\Office\15.0\Excel\Options
    • číslo verze za \Office\ je odvozeno od verze MS Office, 15.0 je Office 2013
  3. Klíč SmartList obsahuje informace o vlastních seznamech
  4. Nastavení Options jde exportovat, vytvořit .reg soubor a na jiných počítač klíč importovat

Uložení pomocí makra

Pomocí tohoto kódu vytvoříme makro, které po spuštění souboru přidá hodnoty zapsané ve sloupci A počínaje buňkou A1 (z listu s názvem „seznam“) do nastavení vlastních seznamů. Ukázkový soubor s makrem si můžete stáhnout zde.

1
2
3
4
5
Sub Auto_Open()
    On Error Resume Next
    Application.AddCustomList _
        ListArray:=Sheets("seznam").Range("A1", Range("A1").End(xlDown))
End Sub

Pokud vám návod pomohl, staňte se fanoušky na Facebooku a doporučte tyto stránky vašim známým, může se jim také hodit.

Leave a Comment

Vaše e-mailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

Scroll to Top