Phím tắt để chuyển giữa các trang tính trong Excel

Excel 2007 có phím tắt chuyển đổi giữa các trang tính không?

Ctrl+ PgUpđể di chuyển sang trái.

Ctrl+ PgDnđể di chuyển sang phải.

Macro VBA và Phím tắt bàn phím tùy chỉnh để kích hoạt trang đầu tiên hoặc trang cuối

Nếu bạn muốn một phím tắt thực tế để chuyển đến bảng tính đầu tiên hoặc cuối cùng, hãy đặt mã này vào một mô-đun trong sổ làm việc "CÁ NHÂN":

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

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

Chuyển đến Tab Nhà phát triển> Macro. Duyệt đến các macro này (ToFirstSheet và ToLastSheet). Chọn một, bấm Tùy chọn và gán phím tắt. Làm tương tự cho người khác.

Bằng cách lưu nó vào sổ làm việc "CÁ NHÂN", nó sẽ có sẵn trong bất kỳ tệp Excel nào.

Phím tắt tích hợp trong bàn phím để kích hoạt Bảng trước hoặc Bảng tiếp theo

Để nhảy một bảng tính sang trái hoặc phải, bạn có thể sử dụng các phím tắt mặc định này:

Ctrl+PgUp

Ctrl+PgDn

Macro VBA để kích hoạt tờ trước hoặc trang tiếp theo

Đây là cách thực hiện tương tự bằng VBA, hãy thử điều này:

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

Các hàm VBA để trả về trang trước hoặc trang tiếp theo

Sử dụng chức năng này nếu bạn muốn lấy đối tượng trang tính trước hoặc tiếp theo:

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

Sử dụng các chức năng như thế này:

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

Bạn cũng có thể sử dụng các phím tăng tốc để vào Gohộp thoại. Sau đó, bạn có thể nhập một cái gì đó như foo!A1điều hướng đến ô trên cùng bên trái trong trang tính có tên "foo". Trong khi trang lên và xuống trang thường nhanh hơn. Nếu bạn có một số lượng lớn (ví dụ: 20+) tờ được đặt tên tốt, việc này có thể nhanh hơn. Go cũng hoạt động tốt nếu bạn có bảng được đặt tên trong trang tính của bạn.

Nhấn F5 thường sẽ mở Gohộp thoại.