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.