Page 229 - Ms Excel 2010

Chương 8. Phím tắt va ̀ Thủ thuật

.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

Bấm 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 trang tính khác trong sổla ̀ m viêc ̣ và sau

́
đó chọn lại trang tinh 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 trang tinh kèm theo số chỉ
́
́
mục của trang tinh trong bảng tính (trang tinh đầ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 trang
tính 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 ý, nếu bạn có thiết lập Hyperlink base (siêu liên kết cơ sở) trong sổla ̀ m viêc ̣ 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 sổla ̀ m viêc ̣ 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.

Trang 229

Tải miễn phí tại: Webtietkiem.com