Làm cách nào để khóa vị trí trang tính để luôn hiển thị trong Sổ làm việc Excel?
Nếu có nhiều trang tính trong một sổ làm việc, khi bạn chuyển sang trang cuối cùng, trang đầu tiên sẽ bị ẩn trong thanh tab trang tính như hình dưới đây. Bây giờ bạn muốn khóa vị trí của trang tính chính để luôn hiển thị, bạn có thể xử lý như thế nào?
Khóa vị trí trang tính bằng VBA
Khóa vị trí trang tính bằng VBA
Ở đây tôi giới thiệu hai mã VBA để bạn xử lý công việc này.
Chuyển đến trang tính
1. nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic dành cho Windows.
2. nhấp chuột Chèn > Mô-đun, sau đó sao chép và dán mã bên dưới vào tập lệnh.
VBA: Chuyển đến trang tính chính
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End Sub
Chú thích: Trong đoạn mã của Trang tính ("Chính"). Kích hoạt, bạn có thể thay đổi Bậc thầy đến bất kỳ tên trang tính nào bạn cần.
3. Sau đó lưu mã này, và quay lại sổ làm việc, bấm Nhà phát triển > Macros.
4. bên trong Macro hộp thoại, chọn tên mã bạn đã chèn ngay bây giờ, nhấp vào Các lựa chọn, tạo một lối tắt để chạy mã này.
5. nhấp chuột OK và đóng Macro thoại.
Từ bây giờ, trong khi bạn nhấn phím tắt bạn đã tạo, trang tính chính đã được kích hoạt cho bất kỳ trang tính nào bạn sử dụng.
Giữ trang tính luôn ở phía trước
1. nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic dành cho Windows.
2. Nhấn đúp chuột Sổ làm việc này từ Dự án-VBAProject và sao chép và dán mã bên dưới vào tập lệnh.
VBA: Luôn giữ trang tính ở phía trước
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
Dim xSheet As Worksheet
Application.EnableEvents = False
Set xSheet = Sheets("master")
If Sh.Name <> xSheet.Name Then
Sh.Move , xSheet
xSheet.Activate
Sh.Activate
End If
Application.EnableEvents = True
End Sub
3. Lưu mã và đóng cửa sổ VBA. Từ bây giờ, bất kỳ trang tính nào bạn nhấp vào, trang tính chính luôn ở phía trước thanh tab.
Lưu ý: Trong đoạn mã trên, "bậc thầy" là tên trang tính bạn muốn hiển thị, hãy thay đổi nó khi bạn cần.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!