Workbook. Bảng chỉ mục này sẽđược tạo lại mỗi khi Worksheet lưu chỉ mục được chọn.
Đoạn mã này phải được đặt trong Private Module của Sheet chứa chỉ mục. Chèn một Worksheet mới vào Workbook và đặt tên cho nó là Index chẳng hạn. Nhấp chuột phải vào tên Worksheet vừa tạo và chọn ViewCode từ trình đơn ngữ cảnh hoặc nhấn tổ hợp phím Alt+F11.
Nhập đoạn mã VBA sau vào cửa sổ Code:
Private Sub Worksheet_Activate() Dim wSheet As Worksheet
Dim lCount As Long lCount = 1
With Me
.Columns(1).ClearContents .Cells(1, 1) = "INDEX" End With
For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then
lCount = lCount + 1 With wSheet
.Range("A1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _ SubAddress:= "Index", TextToDisplay:="Back to Index" End With
Me.Hyperlinks.Add Anchor:=Me.Cells(lCount, 1), Address:="", _ SubAddress:= "Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If
Next wSheet End Sub
Nhấn tổ hợp phím Alt+Qđể thoát VBE và trở về cửa sổ bảng tính, sau đó lưu bảng tính lại.
Để chạy đoạn mã vừa tạo, bạn dùng chuột chọn sang Worksheet khác trong Workbook và sau đó chọn lại Worksheet Indexđể kích hoạt sự kiện Worksheet_Activate.
Lưu ý rằng, đoạn mã sẽ các đặt tên (Name) cho các ô A1 ở mỗi Worksheet kèm theo số chỉ
mục của Worksheet trong bảng tính (Worksheet đầu tiên có chỉ mục là 1, kế đó là 2, 3…. n). Điều này bảo đảm rằng ô A1 trên mỗi trang tính có một tên khác nhau. Nếu ô A1 trên Worksheet của bạn đã được đặt tên, bạn nên cân nhắc đến việc thay đổi ô A1 trong đoạn mã sang một địa chỉ khác phù hợp hơn.
Lưu ý thêm, nếu bạn có thiết lập Hyperlink base (siêu liên kết cơ sở) trong Workbook thì các hyperlink được tạo ra từđoạn mã trên sẽ không thể hoạt động được, do chúng đã liên kết đến các Name trong Workbook hiện hành. Khi thuộc tính Hyperlink baseđược thiết lập thì các siêu liên kết sẽ trỏđến Hyperlink base kết hợp với các Name.
Cách thêm thuộc tính Hyperlink base: Vào Office → Prepare → Properties → Document Properties →chọn Advanced Properties(Excel2003: File → Properties → Summary) và nhập vào khung Hyperlink Base. Ví dụ, nhập vào: http://www.giaiphapExcel.com/