Tạo mục lục tự động trong Excel

Hôm nay 17 tháng 4 năm 2010 chúng ta cùng trao đổi và học tiếp nội dung
1-Hướng dẫn tạo mục lục tự động trong Excel.
Thông thường bạn chỉ nghe thấy người ta nói tạo mục mục tự động trong Word chứ ít nghe thấy tạo mục lục tự động trong Excel. Giả sử bạn có một bảng tính gồm 10 Sheet có các tên khác nhau bạn muốn tạo một mục lục tự động để nhảy tới các Sheet, thông thường bạn phải tạo Bookmark sau đó tạo siêu liên kết trong Excel rất mất thời gian mà lại không chuyên nghiệp tí nào. Để tạo mục lục tự động trong Excel bạn làm theo hướng dẫn sau đây:
+Khởi động Excel và tạo bảng tính.
+Đổi tên các Sheet lần lượt là: Mục lục, Lớp Tin K1, Tin K2, Tin ….K10
+Nháy chuột phải vào Sheet có tên là Mục lục chọn View code.

+Nháy vào Sheet1 ở bên trái.
+Chép đoạn mã dưới đây vào.
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "Muc luc"
.Cells(1, 1).Name = "Index"
End With

For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
M = M + 1
With wSheet
.Range("H1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="Tro ve Muc luc"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub
4. Nhấn Alt + Q và nháy vào File \ Save để ghi lại.
5. Từ Excel, bạn nháy vào Tool > Macro > Security.
+Nháy vào nhãn Security Level đánh dấu vào mục Low (not recommended)…..

+Bấm OK.

Vì trong file Excel của bạn có dùng Macro, nên đôi khi mức Macro Security ở mức high, đoạn lệnh của bạn sẽ không có tác dụng. Nếu bạn chọn Mediup, bạn sẽ được nhắc là chạy macro không. Trong trường hợp này, bạn chọn Enable Macro để thấy tác dụng.
5. Nhấn Ctrl + W để đóng lại Workbook và mở lại Workbook này.
Chú ý: Mục A1 bạn có thể thay bằng bất kỳ chữ cái nào ví dụ: C1, D1, E1, F1, H1, G1 đây là vị trí sẽ xuất hiện dòng chữ Tro ve Muc luc (trở về mục lục đầu tiên) ở các Sheet.
Bài học tạm dừng ở đây.
Tác giả đã hoàn thành chương trình Quản lý cán bộ, quản lý đảng viên bạn nào cần học để làm phần mềm này xin liên hệ với tác giả theo Email, điện thoại trên Blog này. Tác giả nhận dạy các chương trình tham khảo trên Blog để biết thêm chi tiết.

Số người xem bài này

Posted in: Excel