Jak przewinąć określony arkusz lub wszystkie arkusze do góry w programie Excel?

W tym artykule pokażemy metodę przewijania określonego arkusza lub wszystkich arkuszy do górnego wiersza skoroszytu w programie Excel.

Przewiń określony arkusz lub wszystkie arkusze do góry za pomocą kodu VBA

---

Przewiń określony arkusz lub wszystkie arkusze do góry za pomocą kodu VBA

Aby przewinąć określony arkusz lub wszystkie arkusze do górnego wiersza w programie Excel, wykonaj następujące czynności.

1. W arkuszu, który musisz przewinąć do góry, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej kod VBA do okna Code.

Kod VBA: Przewiń określony arkusz do góry

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

Aby przewinąć wszystkie arkusze do góry w bieżącym skoroszycie, zastosuj następujący kod VBA.

Kod VBA: Przewiń wszystkie arkusze do góry

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 wpisaniu kodu VBA w oknie Kod należy nacisnąć F5 klucz do uruchomienia kodu.

Następnie aktywny arkusz roboczy lub wszystkie arkusze w bieżącym skoroszycie są natychmiast przewijane do góry.