Sådan ruller du et bestemt ark eller alle ark til toppen i Excel?

Denne artikel viser metoden til at rulle et bestemt ark eller alle arkene til den øverste række i en projektmappe i Excel.

Rul et angivet ark eller alle ark til toppen med VBA-kode

---

Rul et angivet ark eller alle ark til toppen med VBA-kode

For at rulle et specificeret ark eller alle ark til øverste række i Excel, gør du som følger.

1. I regnearket skal du rulle til toppen, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.

VBA-kode: Rul et angivet regneark til toppen

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

For at rulle alle regneark til toppen i den aktuelle projektmappe, skal du anvende følgende VBA-kode.

VBA-kode: Rul alle regneark til toppen

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. Når du har indtastet VBA-kode i vinduet Kode, skal du trykke på F5 nøgle for at køre koden.

Derefter rulles det aktive regneark eller alle regneark i den aktuelle projektmappe straks til toppen.