Chào mừng bạn đọc đã ghé thăm Blog của tôi, mỗi ngày bạn sẽ học được 1 mẹo nhỏ trên Blog này -Tác giả đang bổ sung và hoàn thiện Blog - Xin bạn đọc vui lòng không hỏi sự cố bằng nhắn tin qua điện thoại di động - Tác giả nhận cung cấp CD gồm các bài viết hướng dẫn chi tiết cách làm Blog và các đoạn mã nguồn tới bạn đọc - Tác giả nhận cung cấp CD hướng dẫn làm các trò Ảo thuật tới bạn đọc cả nước, nhận dạy ảo thuật đơn giản, Tin học, cài đặt chương trình cho máy tính tại nhà riêng. Cảm ơn bạn đã đọc những thông tin này

Thứ Bảy, ngày 17 tháng 4 năm 2010

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.

0 nhận xét:

Đăng nhận xét

Bạn có ý kiến hay thắc mắc về bài viết --> Hãy để lại nhận xét bên dưới !

Phản hồi của bạn luôn được đánh giá cao. Tôi sẽ cố gắng trả lời sớm nhất có thể.
Nhắc bạn:
1. Vui lòng đừng Spam ! Tôi sẽ xóa ngay lập tức nếu phát hiện.
2. Các bài comment phải nghiêm túc, không dung tục.
3. Nội dung phải liên quan tới chủ đề bài viết.
4. Hãy để lại tên của bạn khi bạn post bài comment, để mình có thể dễ dàng trả lời comment của bạn khi cần.
5.Đối với những thắc mắc không liên quan đến bài viết này, bạn vui lòng để lại câu hỏi ở đây --> PC Help

Thân chào,
Admin

Trang trước Trang sau Trang chủ