Lập Trình VBA, Microsoft Excel

Hàm tạo hyperlink với nhiều files

Đã đăng bởi admin
Hàm tạo Hyperlink với nhiều files
15
Nov

Đôi khi bạn cần tạo hyperlink trong Excel để liên kết đến nhiều file cho tiện quản lý. Việc tạo hyperlink cho nhiều file sẽ tốn rất nhiều thời gian và dễ nhàm chán. Ước gì có Hàm tạo hyperlink với nhiều files thì hay biết mấy nhỉ ^_^!

Điều này cũng sẽ khá đơn giản khi bản biết VBA. Bạn có thể tham gia khóa học Lập Trình VBA Cơ Bản để có thể tự mình tạo ra những tiện ích giúp bạn giải quyết công việc nhanh hơn. Nếu các bạn chưa sẵn sàng để học thể có thể sử dụng sản phẩm đã có sẵn dưới đây.

Xây dựng Hàm tạo hypelink với nhiều files

Các bước xây dựng cũng giống như tạo ra Hàm lấy đường dẫn của files chỉ khác nhau ở đoạn code bên trong. Cho nên nếu các bạn chưa biết cách chèn hàm thì hãy xem lại bài trên nhé.

Các bạn hãy cope code sau vào Module trong VBA.

Dim FD As FileDialog
Dim Add As String
Function HYPELINKS() As String
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    Add = Application.ThisCell.Offset(1, 0).Address
    FD.AllowMultiSelect = True
    If FD.Show Then
        HYPELINKS = ""
        If FD.SelectedItems.Count > 1 Then
            Evaluate "GET_FILE_PATH()"
        End If
    End If
End Function
Sub GET_FILE_PATH()
    Dim Cell As Range
    Dim Arr() As String
    ReDim Arr(1 To FD.SelectedItems.Count) As String
    For i = 1 To FD.SelectedItems.Count
        Arr(i) = FD.SelectedItems(i)
    Next
    Range(Add).Resize(UBound(Arr), 1) = WorksheetFunction.Transpose(Arr)
    For Each Cell In Range(Add).Resize(UBound(Arr), 1)
        Cell.Hyperlinks.Add Cell, Cell.Value
    Next
End Sub

Sau khi chèn, các bạn sẽ có đoạn code như hình bên dưới:

Chèn code vào Module
Chèn code vào Module

Và bây giờ các bạn thể thể nhập =HYPERLINKS() trong Excel và nhấn Enter để chọn file cần tạo Hyperlink rồi nhấn OK.

Video hướng dẫn hàm tạo hyperlink với nhiều files:

Tài liệu thực hành:

Link tải tài liệu thực hành ngay tại đây: https://drive.google.com/file/d/1l4ujV8F42CwrBRjEP3Lo9u6C9p4ca9oC/view?usp=sharing

Link dự phòng: https://drive.google.com/file/d/1-gbdjRXNLk7RJoqMsFsnW4UZehSutFyk/view?usp=sharing

Danh sách các video Thủ Thuật Excel VBA

Các bạn có thể tham khảo thêm các bài viết về Excel hoặc VBA.

 

Mời bạn đánh giá
admin