Přejít k hlavnímu obsahu

 Jak vždy při otevření sešitu na buňce A1?

Jak všichni víme, při otevření sešitu se zobrazí pozice buňky, kam jste ji naposledy uložili a zavřeli. Jak můžete vždy otevírat sešit s každým listem v konkrétní buňce A1? Tento článek bude hovořit o některých způsobech řešení.

Vždy otevřete sešit s každým listem v buňce A1 pomocí kódu VBA

Vždy otevřete sešit na konkrétním listu a buňce A1 pomocí kódu VBA


šipka modrá pravá bublina Vždy otevřete sešit s každým listem v buňce A1 pomocí kódu VBA

Například vždy chcete, aby se sešit otevřel v buňce A1 každého listu bez ohledu na to, kde jste byli v sešitu, když byl naposledy uzavřen. Postupujte prosím následovně:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno. Vlevo Projekt-VBAProjekt v podokně poklepejte Tato pracovní kniha otevřete prázdný modul a poté zkopírujte a vložte následující kód do modulu, viz screenshot:

Kód VBA: Vždy otevřete sešit s každým listem v buňce A1:

Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub

dokument vždy otevřen na A1 1

2. Poté zavřete tento kód a klikněte na Soubor > Uložit jako uložit sešit jako Sešit se zvýšeným makra Excel formát, viz screenshot:

dokument vždy otevřen na A1 2

3. Od této chvíle při příštím otevření tohoto sešitu klikněte prosím Povolit obsah Chcete-li aktivovat kód a přepínat mezi listy, můžete vidět, že každý list je automaticky v buňce A1.

dokument vždy otevřen na A1 3


šipka modrá pravá bublina Vždy otevřete sešit na konkrétním listu a buňce A1 pomocí kódu VBA

Pokud při každém spuštění sešitu potřebujete pokaždé otevřít konkrétní list v buňce A1, může vám pomoci následující kód VBA.

Například vždycky chci při otevření sešitu přejít na List1 v buňce A1.

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno. Vlevo Projekt-VBAProjekt v podokně poklepejte Tato pracovní kniha otevřete prázdný modul a poté zkopírujte a vložte následující kód do modulu, viz screenshot:

Kód VBA: Vždy otevřete sešit se specifickým listem v buňce A1:

Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub

dokument vždy otevřen na A1 4

Poznámka: Ve výše uvedeném kódu, Sheet1 a A1 jsou odkaz na list a buňku, do kterého chcete přejít při otevření sešitu. Můžete je podle potřeby změnit.

2. Poté zavřete tento kód a klikněte na Soubor > Uložit jako uložit sešit jako Sešit se zvýšeným makra Excel formátu, od nynějška při příštím otevření tohoto sešitu klikněte prosím Povolit obsah aktivovat kód a automaticky přejde do Listu 1 v buňce A1.

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations