Lấy Đường dẫn cụ thể từ các HYPERLINK trong một cột

[ledungddk]

Chào các anh,
Em có một cột trong Excel chứa các Hyperlink. Trong các ô hiển thị nội dung của ScreenTip. Giờ e muốn lấy tất cả các đường dẫn một cách nhanh nhất cho rất nhiều Hyperlink thì phải làm sao được ạ.
Ví dụ: Trong 1 ô của cột hiển thị Open file , làm sao để lấy được đường dẫn chính xác của nó là: D:\\congviec\tailieu\sododaunoi.pdf mà không phải làm thủ công từng ô một?

 

[VMH0307]

Chào các anh,
Em có một cột trong Excel chứa các Hyperlink. Trong các ô hiển thị nội dung của ScreenTip. Giờ e muốn lấy tất cả các đường dẫn một cách nhanh nhất cho rất nhiều Hyperlink thì phải làm sao được ạ.
Ví dụ: Trong 1 ô của cột hiển thị Open file , làm sao để lấy được đường dẫn chính xác của nó là: D:\\congviec\tailieu\sododaunoi.pdf mà không phải làm thủ công từng ô một?

Bạn đang thực hiện lấy hyperlink bằng cách nào, nếu sử dụng Insert hypelink, thì trong mục Text to display không nhập gì cả là được theo ý bạn rồi.

 

[ledungddk]

Bạn đang thực hiện lấy hyperlink bằng cách nào, nếu sử dụng Insert hypelink, thì trong mục Text to display không nhập gì cả là được theo ý bạn rồi.

Đúng là như thế, nhưng bạn xem filevđính kèm phía dưới. Có rất nhiều Link đã nhập nội dung vào Text to display, nếu làm thủ công xóa đi nội dung sẽ rất lâu. Có cách nào nhanh hơn k bạn nhỉ? hlep me help me@@

 

[ndu96081631]

Đúng là như thế, nhưng bạn xem filevđính kèm phía dưới. Có rất nhiều Link đã nhập nội dung vào Text to display, nếu làm thủ công xóa đi nội dung sẽ rất lâu. Có cách nào nhanh hơn k bạn nhỉ? hlep me help me@@

Tôi nghĩ chỉ có cách dùng VBA thôi. Kiểu vầy:

Sub ShowURL()
  Dim rng As Object, cel As Range
  Set rng = Selection
  If TypeOf rng Is Range Then
    For Each cel In rng
      If cel.Hyperlinks.Count Then cel.Value = cel.Hyperlinks(1).Address
    Next
  End If
End Sub

Quét chọn vùng dữ liệu rồi chạy code trên

 

[adua29]

tôi nghĩ chỉ có cách dùng vba thôi. Kiểu vầy:

sub showurl()
  dim rng as object, cel as range
  set rng = selection
  if typeof rng is range then
    for each cel in rng
      if cel.hyperlinks.count then cel.value = cel.hyperlinks(1).address
    next
  end if
end sub

quét chọn vùng dữ liệu rồi chạy code trên

sub trên có thể chuyển thành hàm được không ạ?
Em muốn lấy đường dẫn hyperlink của một cell đã insert hyperlink

 

[ndu96081631]

sub trên có thể chuyển thành hàm được không ạ?
Em muốn lấy đường dẫn hyperlink của một cell đã insert hyperlink

Thế thì càng dễ:

Function GetURL(ByVal Cel As Range) As String
  If Cel.Hyperlinks.Count Then
    GetURL = Cel.Hyperlinks(1).Address
  End If
End Function

 

[adua29]

Em đã thử hàm GetURL tuy nhiên hàm chỉ đưa ra đường dẫn, tên file
Nếu cần lấy cả tên ổ đĩa, đường dẫn, tên file thì phải sửa hàm như thế nào ạ

 

[ndu96081631]

Em đã thử hàm GetURL tuy nhiên hàm chỉ đưa ra đường dẫn, tên file
Nếu cần lấy cả tên ổ đĩa, đường dẫn, tên file thì phải sửa hàm như thế nào ạ

Tôi test thấy có ký tự ổ đĩa đàng hoàng à nha! Trên file của bạn thế nào tôi không biết đâu

 

[adua29]

Em chèn một hiperlink có địa chỉ e:\New Text Document.DIC Khi dùng hàm GetURL nó cho ra kết quả ..\..\..\New Text Document.DIC
Trường hợp văn bản để ở thư mục con trong nhiều cấp thư mục
Hàm GetURL cho ra kết quả ..\..\VAN BAN LUU TRU\2003\BAO CAO\BIOU BAO CAO THUC HIEN KE HOACH.xls
nó bỏ mất phần đầu "E:\VAN BAN VAN PHONG\" anh ạ
Nhờ anh xử lý giúp em lỗi này

 

[tranngochoan]

Thế thì càng dễ:

Function GetURL(ByVal Cel As Range) As String
  If Cel.Hyperlinks.Count Then
    GetURL = Cel.Hyperlinks(1).Address
  End If
End Function

Chào Anh.
Em có một đoạn text D:\CONG VIEC\KH-KT HAMA\2018\I.BOT.BG-LS\1.GOI ATGT\1.BAN VE, giờ muốn chuyển nó thành link thì làm sao được hả anh?
Mong anh chỉ em với

 

[ndu96081631]

Chào Anh.
Em có một đoạn text D:\CONG VIEC\KH-KT HAMA\2018\I.BOT.BG-LS\1.GOI ATGT\1.BAN VE, giờ muốn chuyển nó thành link thì làm sao được hả anh?
Mong anh chỉ em với

Nghiên cứu hàm HYPERLINK thử xem

 

[rowants]

Nghiên cứu hàm HYPERLINK thử xem

nếu muốn lấy địa chỉ từ thanh formula thì làm thế nào ạ. e ko dùng hyperlink mà muốn nhấn 1 nút là hiện đường dẫn của nó lên được khong ạ.

ví dụ như này ạ. sau khi chọn ô a3 và nhấn nút thì ô c3 sẽ hiện ra đường dẫn ấy ạ. tương tự sau mỗi lần chọn ô a3,a4,b3,b4 thì lần lượt các ô c3,c4,d3,d4 sẽ hiện ra đường dẫn của file gốc ạ. em làm vậy để mục đích là chọn 1 ô, nhấn nút là sẽ mở file excell có đường dẫn như ở các ô c3,c4,d3,d4 ạ. cảm ơn anh nhiều