Excel'de belirtilen bir sayfayı veya tüm sayfaları en üste nasıl kaydırabilirim?

Bu makale, Excel'de bir çalışma kitabında belirtilen bir sayfayı veya tüm sayfaları en üst satıra kaydırma yöntemini gösterecektir.

VBA kodu ile belirtilen bir sayfayı veya tüm sayfaları en üste kaydırın

---

VBA kodu ile belirtilen bir sayfayı veya tüm sayfaları en üste kaydırın

Excel'de belirtilen bir sayfayı veya tüm sayfaları en üst sıraya kaydırmak için lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasında yukarı kaydırmanız gerekir, lütfen Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Belirtilen bir çalışma sayfasını en üste kaydırın

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

Mevcut çalışma kitabında tüm çalışma sayfalarını en üste kaydırmak için lütfen aşağıdaki VBA kodunu uygulayın.

VBA kodu: Tüm çalışma sayfalarını en üste kaydırın

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. Kod penceresine VBA kodunu girdikten sonra, lütfen F5 kodu çalıştırmak için anahtar.

Daha sonra aktif çalışma sayfası veya mevcut çalışma kitabındaki tüm çalışma sayfaları hemen en üste kaydırılır.