Jak posouvat určený list nebo všechny listy na začátek v aplikaci Excel?
Tento článek vám ukáže způsob posouvání zadaného listu nebo všech listů do horního řádku sešitu v aplikaci Excel.
Posuňte zadaný list nebo všechny listy nahoru pomocí kódu VBA
Posuňte zadaný list nebo všechny listy nahoru pomocí kódu VBA
Chcete-li posunout zadaný list nebo všechny listy do horního řádku v aplikaci Excel, postupujte takto.
1. V listu, který potřebujete posunout nahoru, stiskněte Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte kód VBA do okna Kód.
Kód VBA: Posuňte zadaný list nahoru
Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub
Pro posouvání všech listů nahoru v aktuálním sešitu použijte následující kód VBA.
Kód VBA: Posuňte všechny listy nahoru
Sub Select_A1_On_Activeworkbook()
Dim xSheet As Worksheet
For Each xSheet In ActiveWorkbook.Sheets
xSheet.Activate
ActiveSheet.Range("A1").Select
Next
ActiveWorkbook.Worksheets(1).Activate
End Sub
3. Po zadání kódu VBA do okna Kód stiskněte tlačítko F5 klíč ke spuštění kódu.
Poté se aktivní list nebo všechny listy v aktuálním sešitu okamžitě posunou nahoru.
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!