Tạo chỉ mục siêu liên kết của tất cả các bảng tính trong Workbook
Hãy tiến thêm một bước nữa để Macro liệt kê tất cả các Trang tính trong Sổ làm việc và tạo một menu siêu liên kết cho từng trang tính trong sổ làm việc. Đây là một công cụ tiết kiệm thời gian tuyệt vời cho những người có nhiều trang tính và đang cố gắng tạo menu các siêu liên kết đến từng trang theo cách thủ công.
Để sử dụng macro, chỉ cần thay thế từ Sheet1 (nó xuất hiện hai lần) trong mã bằng tên tab nơi bạn muốn kết quả. Đảm bảo rằng không có bất kỳ thông tin quan trọng nào trên tab đầu ra vì nó xóa dữ liệu của chúng trước khi ghi vào đó. Sau khi macro chạy, danh sách mọi trang tính có siêu liên kết đến từng trang tính sẽ được tạo.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws As WorksheetDim x As Integerx = 1Trang tính ("Trang 1"). Phạm vi ("A: A"). XóaĐối với mỗi ws trong WorksheetsTrang tính ("Trang 1"). Ô (x, 1). ChọnActiveSheet.Hyperlinks.Add _Anchor: = Selection, Address: = "", SubAddress: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Tuần tiếp theoKết thúc Sub |
