Excel VBA - Hàm lấy Url và Email trong Hyperlink

Sử dụng hàm do người dùng định nghĩa (UDF) này để hiển thị địa chỉ liên kết hoặc địa chỉ email thực tế từ các ô chứa liên kết trong Excel. Hàm này rất đơn giản để sử dụng, bạn chỉ cần đưa tham chiếu ô chứa liên kết vào đối số phạm vi và nhấn Enter. Đối số văn bản mặc định là tùy chọn và hiển thị bất cứ điều gì bạn muốn nếu ô mà bạn chỉ đến không chứa liên kết.

Hàm này rất hữu ích khi bạn cần chuyển đổi một danh sách địa chỉ email đã nhập, các liên kết đã nhập hoặc một truy vấn web chứa nhiều liên kết từ các liên kết hiển thị thành các giá trị thực sự của các liên kết. Bạn cũng có thể dễ dàng và nhanh chóng chuyển đổi danh sách các địa chỉ email ở dạng liên kết (với tiền tố "mailto:") thành địa chỉ email ở dạng văn bản.

Nơi cài đặt macro: Module

UDF để hiển thị liên kết thực tế / địa chỉ email từ các liên kết trong Excel

Function SHOWLINK(cell As Range, Optional Default As Variant)

    'Hàm này sẽ hiển thị tất cả các liên kết dưới dạng văn bản và hiển thị đầy đủ địa chỉ http trong siêu liên kết

    'Hàm này cũng tự động phát hiện nếu liên kết là địa chỉ Email và hiển thị chính xác

    If (cell.Range("A1").Hyperlinks.Count <> 1) Then

        If IsMissing(Default) Then

            SHOWLINK = "Not a Link"

        Else

            SHOWLINK = Default

        End If

    Else

        If Left(cell.Range("A1").Hyperlinks(1).Address, 7) = "mailto:" Then

            SHOWLINK = Right(cell.Range("A1").Hyperlinks(1).Address, Len(cell.Range("A1").Hyperlinks(1).Address) - 7)

        Else

            SHOWLINK = cell.Range("A1").Hyperlinks(1).Address

        End If

    End If

End Function