在Excel中的工作表之间切换的键盘快捷键

Excel 2007是否具有在工作表之间切换的键盘快捷键？

Ctrl+ PgUp向左移动。

Ctrl+ PgDn向右移动。

VBA宏和自定义键盘快捷方式可以激活第一张或最后一张纸

如果希望实际的键盘快捷方式跳转到第一个或最后一个工作表，请将此代码放入“ PERSONAL”工作簿的模块中：

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

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

转到开发者标签>宏。浏览到这些宏（ToFirstSheet和ToLastSheet）。选择一个，单击选项，然后分配一个键盘快捷键。另一个做同样的事情。

通过将其保存到“ PERSONAL”工作簿，它将在任何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

您也可以使用加速键进入Go对话框。然后，您可以输入类似于foo!A1导航到名为“ foo”的工作表左上角的单元格的内容。虽然向上翻页和向下翻页通常更快。如果您有大量（例如20多个）命名良好的工作表，这可能会更快。如果您在工作表中命名了表格，那么Go也可以很好地工作。

按F5通常会打开Go对话框。