Excel'deki sayfalar arasında geçiş yapmak için klavye kısayolu

Excel 2007'de çalışma sayfaları arasında geçiş yapan bir klavye kısayolu var mı?

Ctrl+ PgUpsola gitmek için.

Ctrl+ PgDnsağa hareket etmek için.

İlk veya Son Sayfayı Etkinleştirmek için VBA Makroları ve Özel Klavye Kısayolu

Gerçek bir klavye kısayolunun ilk veya son çalışma sayfasına atlamasını istiyorsanız, bu kodu "KİŞİSEL" çalışma kitabındaki bir modüle yerleştirin:

Sub ToFirstSheet()
    Sheets(1).Activate
End Sub

Sub ToLastSheet()
    Sheets(Sheets.Count).Activate
End Sub

Geliştirici Sekmesi> Makrolar'a gidin. Bu makrolara göz atın (ToFirstSheet ve ToLastSheet). Birini seçin, Seçenekler'i tıklayın ve bir klavye kısayolu atayın. Diğeri için de aynısını yapın.

Bunu "KİŞİSEL" çalışma kitabına kaydederek herhangi bir Excel dosyasında mevcut olacaktır.

Önceki veya Sonraki Sayfayı Etkinleştirmek için Yerleşik Klavye Kısayolları

Bir çalışma sayfasını sola veya sağa atlamak için şu varsayılan klavye kısayollarını kullanabilirsiniz:

Ctrl+PgUp

Ctrl+PgDn

Önceki veya Sonraki Sayfayı Etkinleştirecek VBA Makroları

VBA kullanarak aynı işlemi nasıl yapacağınız aşağıda açıklanmıştır:

Sub ToPreviousSheet()
    If ActiveSheet.Index = 1 Then
        ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Activate
    Else
        ActiveWorkbook.Worksheets(ActiveSheet.Index - 1).Activate
    End If
End Sub

Sub ToNextSheet()
    If ActiveSheet.Index = ActiveWorkbook.Worksheets.Count Then
        ActiveWorkbook.Worksheets(1).Activate
    Else
        ActiveWorkbook.Worksheets(ActiveSheet.Index + 1).Activate
    End If
End Sub

Önceki veya Sonraki Sayfayı Döndürmek için VBA İşlevleri

Önceki veya sonraki çalışma sayfası nesnesini almak istiyorsanız bu işlevi kullanın:

Function GetPreviousSheet(ByVal targetSheet As Worksheet) As Worksheet
    Dim targetBook As Workbook
    Set targetBook = targetSheet.Parent

    If targetSheet.Index = 1 Then
        Set GetPreviousSheet = targetBook.Worksheets(targetBook.Worksheets.Count)
    Else
        Set GetPreviousSheet = targetBook.Worksheets(targetSheet.Index - 1)
    End If
End Function

Function GetNextSheet(ByVal targetSheet As Worksheet) As Worksheet
    Dim targetBook As Workbook
    Set targetBook = targetSheet.Parent

    If targetSheet.Index = targetBook.Worksheets.Count Then
        Set GetNextSheet = targetBook.Worksheets(1)
    Else
        Set GetNextSheet = targetBook.Worksheets(targetSheet.Index + 1)
    End If
End Function

Bunun gibi işlevleri kullanın:

Sub EXAMPLE()
    MsgBox "Previous Sheet:  " & GetPreviousSheet(ActiveSheet).Name
    MsgBox "Next Sheet:  " & GetNextSheet(ActiveSheet).Name
    GetNextSheet(ActiveSheet).Activate
End Sub

Goİletişim kutusuna gitmek için hızlandırıcı tuşlarını da kullanabilirsiniz . Daha sonra foo!A1"foo" adlı sayfada sol üst hücreye gitmek gibi bir şey yazabilirsiniz . Sayfa yukarı ve sayfa aşağı genellikle daha hızlıdır. Çok sayıda iyi adlandırılmış sayfanız varsa (ör. 20+), bu daha hızlı olabilir. Sayfalarınızda tablolar adlandırdıysanız Go da iyi çalışır.

F5 tuşuna basmak normalde Goiletişim kutusunu açar .