Viết lại nút Link hiện tên File trong sheet (1 người xem)

[lhthai]

Chào các Anh mượn code trên diễn đàn của anh ndu96081631
http://www.giaiphapexcel.com/forum/...-folder-cho-trước-và-tạo-Hyperlink&highlight=
Nhờ các anh viết lại nút link file sao có kết quả giống trong sheet
Các anh xem file đính kèm

 

[lhthai]

Có cách nào Add link vào sheet không

Sub Link()
Dim Arr, i As Long, n As Long, Count As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.FileSystemObject")
    Arr = FilesFoldersList(Sheet1.TextBox1, True, "*.*", True)
        Count = UBound(Arr) + 1
        Range("B20:G65536").Clear
        With Range("B20").Offset(i)
          .Offset(, 0) = i + 1
          .Offset(, 6).Hyperlinks.Add .Offset(, 1), Arr(i), , , "Click mo File"
        End With
End Sub

 

[lhthai]

Có cách nào Add link vào sheet không

Sub Link()
Dim Arr, i As Long, n As Long, Count As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.FileSystemObject")
    Arr = FilesFoldersList(Sheet1.TextBox1, True, "*.*", True)
        Count = UBound(Arr) + 1
        Range("B20:G65536").Clear
        With Range("B20").Offset(i)
          .Offset(, 0) = i + 1
          .Offset(, 6).Hyperlinks.Add .Offset(, 1), Arr(i), , , "Click mo File"
        End With
End Sub

Anh nào biết chỉ dùm nha.

 

[be_09]

Bạn tải File trên ở đâu thì vào đấy hỏi và nhờ giúp, cùng 1 chủ đề mà bạn mở topic mới thì không ai trả lời vì vi phạm nội quy.

 

[lhthai]

Bạn tải File trên ở đâu thì vào đấy hỏi và nhờ giúp, cùng 1 chủ đề mà bạn mở topic mới thì không ai trả lời vì vi phạm nội quy.

Cám ơn anh Be09 nhắc nhở
Vậy nhờ Admin chuyển vào link sau hoặc xóa bài dùm
http://www.giaiphapexcel.com/forum/s...ink&highlight=