Cách trích xuất đường link (URL) trong Exel – tự động

2
3



Nếu bạn copy một hyperlink và paste dưới dạng values thì bạn sẽ bị mất hyperlink của từ đang được link, ví dụ với từ “Sales Report” bên dưới là một hyperlink trong exel.

Nguồn:https://baovnexpress.com/

2 COMMENTS

  1. https://blog.hocexcel.online/cach-lay-dia-chi-tu-cac-hyperlink-trong-excel.html

    Sub Extracthyperlinks()
    'Updateby20140318
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "Hoc Excel Online"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
    Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
    Next
    End Sub

    hoặc

    Function HyperLinkText(pRange As Range) As String
    Dim ST1 As String
    Dim ST2 As String
    If pRange.Hyperlinks.Count = 0 Then Exit Function
    ST1 = pRange.Hyperlinks(1).Address
    ST2 = pRange.Hyperlinks(1).SubAddress
    If ST2 <> "" Then ST1 = "[" & ST1 & "]" & ST2
    HyperLinkText = ST1
    End Function
    nguồn: https://www.giaiphapexcel.com/diendan/threads/c%C3%A1ch-l%E1%BA%A5y-%C4%91%C6%B0%E1%BB%9Dng-link-trong-file-excel.7406/

LEAVE A REPLY

Please enter your comment!
Please enter your name here