Комбінація клавіш для переключення між аркушами в Excel

14

Чи є у Excel 2007 комбінація клавіш, яка перемикається між робочими листами?

microsoft-excel keyboard-shortcuts microsoft-excel-2007

— Торо
джерело

20

Ctrl+ PgUpрухатися ліворуч.

Ctrl+ PgDnрухатися праворуч.

— Дматиг
джерело

Це стосується і Excel 2013 =)

— Metafaniel

а на macbook без pgup та pgdown?

— theonlygusti

Я бажаю , щоб вони були краще ярлик, як Page Upі Page Downзавжди важко знайти в різних ноутбуках і не дуже зручно розміщені на клавіатурі.

— Cricrazy

3

Макроси VBA та ярлик спеціальної клавіатури для активації першого чи останнього аркуша

Якщо ви хочете, щоб фактична комбінація клавіш перейшла на перший або останній робочий аркуш, введіть цей код у модуль у робочій книжці "ОСОБА":

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

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

Перейдіть на вкладку Developer> Macros. Перейдіть до цих макросів (ToFirstSheet і ToLastSheet). Виберіть його, натисніть Опції та призначте ярлик клавіатури. Зробіть те ж саме для інших.

Збереживши це у робочій книжці "ОСОБА", воно буде доступне у будь-якому файлі Excel.

Вбудовані комбінації клавіш для активації попереднього чи наступного аркуша

Для переходу одного робочого аркуша вліво або вправо ви можете скористатися цими комбінаціями клавіш за замовчуванням:

Ctrl+PgUp

Ctrl+PgDn

Макроси VBA для активації попереднього чи наступного аркуша

Ось як це зробити за допомогою VBA, спробуйте це:

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

Функції VBA для повернення попереднього чи наступного аркуша

Використовуйте цю функцію, якщо ви бажаєте отримати попередній або наступний об'єкт робочого аркуша:

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

Використовуйте такі функції:

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

— ChrisB
джерело

Як я можу отримати наступний та попередній аркуш? Я хочу зробити Sub ToPreviousSheetі ToNextSheet?

— theonlygusti

Використовуйте для цього аркуш аркуша. Я оновлю свою відповідь, щоб включити цю.

— ChrisB

1

Ви також можете скористатися клавішами прискорювача, щоб перейти до Goдіалогового вікна. Потім ви можете ввести щось на кшталт foo!A1навігації до лівої верхньої комірки на аркуші, названому "foo". Хоча сторінки вгору та сторінки вниз, як правило, швидше. Якщо у вас є велика кількість (наприклад, 20+) добре названих аркушів, це може бути швидше. Go також добре працює, якщо ви вказали таблиці на своїх аркушах.

Натискання клавіші F5 зазвичай відкриває Goдіалогове вікно.

— Джеромі Англім
джерело