Hur rullar du ett angivet ark eller alla ark till toppen i Excel?

Den här artikeln visar hur du rullar ett visst ark eller alla ark till den översta raden i en arbetsbok i Excel.

Rulla ett angivet ark eller alla ark till toppen med VBA-kod

---

Rulla ett angivet ark eller alla ark till toppen med VBA-kod

För att bläddra i ett angivet ark eller alla ark till översta raden i Excel, gör så här.

1. I kalkylbladet måste du bläddra till toppen, tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra sedan in VBA-kod i kodfönstret.

VBA-kod: Rulla ett angivet kalkylblad till toppen

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

För att bläddra alla kalkylblad till toppen i aktuell arbetsbok, använd följande VBA-kod.

VBA-kod: Rulla alla kalkylblad till 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 angett VBA-kod i kodfönstret, tryck på F5 för att köra koden.

Sedan rullas det aktiva kalkylbladet eller alla kalkylblad i den aktuella arbetsboken direkt uppåt.