Jak uzamknout polohu listu, aby byla vždy viditelná v sešitu aplikace Excel?
Pokud je v sešitu více listů, při přepnutí na poslední jeden list se první list skryje na panelu karet listu, jak je znázorněno níže. Nyní chcete uzamknout polohu hlavního listu, aby byla vždy viditelná, jak to zvládnete?
 |
 |
 |
Zamkněte polohu listu pomocí VBA
Zamkněte polohu listu pomocí VBA
Zde vám představím dva kódy VBA, které vám pomohou zvládnout tuto práci.
Přejít na list
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro Windows.
2. cvaknutí Vložit > Modul, poté zkopírujte a vložte pod kód do skriptu.
VBA: Přejít na hlavní list
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End SubPoznámka: V části kódu Tabulky („Mistr“). Aktivovat, můžete změnit Mistr na libovolný název listu, jak potřebujete.
3. Poté tento kód uložte a vraťte se zpět do sešitu kliknutím Vývojka > makra.
4. V Makro v dialogovém okně vyberte kódové jméno, které jste právě vložili, klikněte možnosti, vytvořte zástupce pro spuštění tohoto kódu.
5. cvaknutí OK a zavřete Makro dialog.
Od této chvíle, když stisknete vytvořenou zkratku, bude hlavní list aktivován bez ohledu na to, který list použijete.
List mějte vždy vepředu
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro Windows.
2. Dvojklik Tato pracovní kniha z Projekt-VBAProjekt podokno a zkopírujte a vložte níže uvedený kód do skriptu.
VBA: Udržujte list vždy vpředu
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
Dim xSheet As Worksheet
Application.EnableEvents = False
Set xSheet = Sheets("master")
If Sh.Name <> xSheet.Name Then
Sh.Move , xSheet
xSheet.Activate
Sh.Activate
End If
Application.EnableEvents = True
End Sub
3. Uložte kód a zavřete okno VBA. Od této chvíle, ať klepnete na kterýkoli list, vzorový list vždy zůstane v přední části panelu karet.
 |
|
 |
Poznámka: Ve výše uvedeném kódu "mistr" je název listu, který chcete ponechat viditelný, změňte jej podle potřeby.
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!
