Automatické spuštění makra při otevření sešitu

Důležité :  Tento článek je strojově přeložený – přečtěte si toto upozornění. Anglickou verzi tohoto článku pro referenci najdete tady.

Makro, které jste nahráli chtít spustit automaticky při otevření určitý sešit. Následující postup používá příklad zobrazíte, jak na to. Můžete taky spustit makra při spuštění Excelu automaticky.

Než začnete, ujistěte se, že na pásu karet je zobrazená karta Vývojář. Pokud ne, udělejte toto:

  1. Klikněte na Soubor > Možnosti > Přizpůsobit pás karet.

  2. V podokně Přizpůsobit pás karet v poli Hlavní karty zaškrtněte políčko Vývojář.

  3. Klikněte na OK.

Abyste mohli použít následující příklad ve vašem vlastním sešitě, vytvořte listy pro každý den v měsíci a vhodně pojmenujte ouška těchto listů. Třeba 1. března, 2. března až po 31. března. Když tento sešit otevřete, makro se automaticky spustí a zobrazí ouško listu pro aktuální den v měsíci.

  1. Klikněte na Vývojář > Visual Basic.

Skupina Kód na kartě Vývojář

  1. Klikněte na Insert > Module.

  2. Do modulu vložte tento kód:

    Private Sub Auto_Open()
    Dim vntToday jako varianty
    vntToday = WorksheetFunction.Text (datum, "mmmm dd")
    na Error životopisu Next
    Sheets(vntToday). Vyberte
    Pokud chybová <> 0 potom
    MsgBox "Listu neexistuje,."
    Dalšího
    Range("A1"). Vyberte
    ukončení
    End Sub

  3. Zavřete Visual Basic (nemusíte nic ukládat).

  4. Uložte tento sešit jako Sešit aplikace Excel s podporou maker (*xlsm) a zavřete ho.

Při dalším otevření tohoto sešitu bude vybrané ouško listu pro aktuální den a kurzor bude v buňce A1. Pokud pro daný den neexistuje list, zobrazí se zpráva „List neexistuje.“

Tip : Můžete vytvořit pro každý nadcházející měsíc nový sešit a pro tento nový sešit znovu vytvořit toto makro.

Poznámka : Upozornění ke strojovému překladu: Tento článek přeložil počítačový systém bez zásahu člověka. Společnost Microsoft nabízí tyto strojové překlady proto, aby umožnila uživatelům, kteří nemluví anglicky, získat informace o produktech, službách a technologiích této společnosti. Protože je tento článek strojově přeložený, může obsahovat slovní, syntaktické nebo gramatické chyby.

Sdílení Facebook Facebook Twitter Twitter E-mail E-mail

Byly tyto informace užitečné?

Výborně! Je ještě něco dalšího, co byste nám chtěli dát vědět?

Jak bychom ho mohli vylepšit?

Děkujeme vám za zpětnou vazbu.

×