Jonathan có một sổ làm việc chứa hơn năm mươi trang tính, một trong số đó được đặt tên là “Chính” và được định vị là tab đầu tiên trong sổ làm việc. Anh ấy liên tục phải quay trở lại “Main”

bảng tính. Để hiển thị trang tính, anh ta phải nhấp lại một tab tại một thời điểm hoặc cuộn hết cỡ sang bên trái của các tab (bằng cách nhấp vào điều khiển ở ngoài cùng bên trái của các tab) rồi chọn “Chính”

chuyển hướng. Phương pháp cuối cùng này là dễ nhất, nhưng vẫn tốn thời gian.

Jonathan tự hỏi liệu có cách nào, giống như đóng băng ngăn, để đóng băng tab trang tính. Anh ấy muốn tab “Chính” luôn hiển thị và các tab ở bên phải của nó để cuộn.

Câu trả lời ngắn gọn là không, không có cách nào trong Excel để đóng băng các tab trang tính. Tuy nhiên, có một số điều bạn có thể làm để đạt được kết quả như mong muốn.

Một giải pháp khả thi là sử dụng siêu liên kết trong trang tính của bạn. Nhiều người thiết lập một hệ thống trong đó trang tính chính của họ có chức năng như một mục lục cho các trang tính khác trong sổ làm việc. Mỗi trang tính được siêu liên kết từ trang tính chính và mỗi trang tính không chính có một siêu liên kết trở lại trang tính chính. Do đó, họ có thể điều hướng rất nhanh giữa các trang tính chính và phụ chỉ bằng cách nhấp vào các siêu liên kết.

Một tùy chọn khác là hãy nhớ rằng bạn có thể nhấp chuột phải vào các điều khiển tab trang tính ở bên trái của các tab ở cuối cửa sổ Excel.

Khi làm như vậy, bạn sẽ nhận được danh sách mười lăm tên trang tính đầu tiên và bạn có thể dễ dàng chọn trang tính “Chính”.

Vẫn còn một tùy chọn khác là thiết lập một macro rất đơn giản luôn hiển thị trang tính “Chính”:

Sub GoToMain()

Sheets("Main").Select End Sub

Bạn có thể gán macro này cho phím tắt hoặc nút trên thanh công cụ để bạn có thể sử dụng nó rất nhanh. Khi chạy, trang tính có tên “Chính” luôn được hiển thị.

Nếu bạn thực sự muốn luôn hiển thị trang tính “Chính” trong khu vực tab, thì bạn phải sử dụng macro sẽ liên tục sắp xếp lại các tab để “Chính” luôn hiển thị.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim sc As Long ' count of sheets     Dim NewPos As Long ' index of serlected sheet

Application.EnableEvents = False     Application.ScreenUpdating = False

If ActiveSheet.Index <> 1 Then         sc = Sheets.Count         NewPos = ActiveSheet.Index         For i = 2 To NewPos - 1             Sheets(2).Move After:=Sheets(sc)

Next i         Sheets(1).Activate         Sheets(2).Activate     End If

Application.ScreenUpdating = True     Application.EnableEvents = True End Sub

Macro này cần phải là một phần của đối tượng ThisWorkbook, vì vậy hãy đảm bảo bạn thêm nó vào vị trí thích hợp trong VBA Editor. Nó luôn di chuyển các trang tính từ vị trí 2 đến bất kỳ trang tính nào mà bạn có để trang tính mong muốn ở vị trí thứ hai. Điều này có nghĩa là trang tính ở vị trí đầu tiên (Chính) không bao giờ di chuyển.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (3178) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: