Đoạn mã VBA tạo mục lục tự động trong file QLCL GXD rất đơn giản

nguyentheanh

Administrator
Staff member
Đoạn mã VBA tạo mục lục tự động trong file QLCL GXD rất đơn giản

Trong bài này 1 phần là chia sẻ với các bạn đoạn mã VBA (code) nhưng ý lớn hơn là tôi mở ra cánh cửa giúp bạn làm quen với ngôn ngữ lập trình VBA để tự mình mở rộng thêm các chức năng phần mềm QLCL GXD hoặc các file Excel theo ý bạn.

Với phần mềm QLCL GXD hoặc bất kỳ bảng tính Excel nào, khi muốn tạo mục lục các sheet bạn có thể làm như sau:

Bước 1. Bạn chèn thêm 1 sheet và đặt tên là MụcLục (phím tắt Shift+F11 để chèn sheet)

Bước 2. Sau đó kích phải (Right-click) lên cái tên MucLuc và chọn View Code

Bước 3. Copy tất cả đoạn Code này dán vào:

Code:
Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .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("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Back to Index"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub

Bước 4. Bấm Save để lưu file lại

Bước 5. Quay lại cửa sổ vừa dán Code (nếu đã đóng lại bạn ấn phím tắt Alt+F11)
Chạy Macro bạn vừa chép code vào (có cái nút tam giác màu xanh giống nút Play của đầu Video, đài Casste)

Đến đây, khi bạn vào sheet MụcLục, bạn sẽ thấy danh sách tất cả bảng tính trong QLCL GXD hiện ra với đủ link. Nhấp vào Sheet nào mà bạn muốn di chuyển nhanh đến để làm việc...

Các bạn đang muốn bước chân vào thế giới tự động hóa công việc kỳ thú VBA hãy xem video này nhé:
Chúc các bạn thành công.
 
Top