Cách tạo siêu liên kết đến một ô có thể thay đổi?

[tuanmetal32]

Em đang lập danh sách hồ sơ và gặp trường hợp như này mong mọi người giúp đỡ
(e có đưa file ở link:
https://www.dropbox.com/s/90zlppozn426icu/Hyperlink.xls )

Em tạo hyperlink để khi click thì sẽ nhảy đến ô mong muốn, nhưng khi chèn thêm dòng thì bị mất hyperlink, em muốn dùng hàm nào đó kết hợp với hyperlink để tìm được vị trí ô mới khi bị thêm bớt hàng thì làm thế nào mong mọi người giúp đỡ.

 

[nghiaphuc]

Em đang lập danh sách hồ sơ và gặp trường hợp như này mong mọi người giúp đỡ
(e có đưa file ở link:
https://www.dropbox.com/s/90zlppozn426icu/Hyperlink.xls )

Em tạo hyperlink để khi click thì sẽ nhảy đến ô mong muốn, nhưng khi chèn thêm dòng thì bị mất hyperlink, em muốn dùng hàm nào đó kết hợp với hyperlink để tìm được vị trí ô mới khi bị thêm bớt hàng thì làm thế nào mong mọi người giúp đỡ.

Bạn đặt cho vùng liên kết là 1 name gì đó, sau đó hyperlink đến name này.

 

[tuanmetal32]

Bạn đặt cho vùng liên kết là 1 name gì đó, sau đó hyperlink đến name này.

Thực ra trong sheet của mình có rất nhiều vùng như thế, và mình thường xuyên phải chêm thêm hàng hoặc cột, chỉ có tên công trình và hạng mục ở 2 bảng là giống nhau thôi, liệu có cách nào kết hợp giữa vlookup và hyperlink không ? ( ý mình là hàm nào tìm được vị trí ô có dữ liệu giống ở bảng trên cùng rồi đưa hyperlink đến ô đó ấy)

 

[nghiaphuc]

Thực ra trong sheet của mình có rất nhiều vùng như thế, và mình thường xuyên phải chêm thêm hàng hoặc cột, chỉ có tên công trình và hạng mục ở 2 bảng là giống nhau thôi, liệu có cách nào kết hợp giữa vlookup và hyperlink không ? ( ý mình là hàm nào tìm được vị trí ô có dữ liệu giống ở bảng trên cùng rồi đưa hyperlink đến ô đó ấy)

Không dùng hàm được thì ta dùng code vậy:
[GPECODE=vb]Sub CreateHyperLink()
Dim Cll As Range, Place As Range
On Error Resume Next
For Each Cll In Sheet1.[A2:A10000]
If Cll = "" Then Exit For
Set Place = Sheet1.Cells.Find(Cll, Cll, xlValues, xlWhole)
If Place.Address <> Cll.Address Then
Sheet1.Hyperlinks.Add Cll.Offset(, 2), "", Place.Address, , "Click here"
Else
Cll.Offset(, 2).ClearContents
End If
Next
End Sub[/GPECODE]

 

[tuanmetal32]

Không dùng hàm được thì ta dùng code vậy

Cảm ơn bác nghiaphuc nhiều, chúc sức khỏe.

 

[nhapmon]

Em đang lập danh sách hồ sơ và gặp trường hợp như này mong mọi người giúp đỡ
Em tạo hyperlink để khi click thì sẽ nhảy đến ô mong muốn, nhưng khi chèn thêm dòng thì bị mất hyperlink, em muốn dùng hàm nào đó kết hợp với hyperlink để tìm được vị trí ô mới khi bị thêm bớt hàng thì làm thế nào mong mọi người giúp đỡ.

góp vui
C2=HYPERLINK("[Copy of Hyperlink.xls]Sheet1!F"&MATCH(B2,F:F,0),"Den " &A2)
với Copy of Hyperlink.xls là tên file của bạn

 

[tuanmetal32]

góp vui
C2=HYPERLINK("[Copy of Hyperlink.xls]Sheet1!F"&MATCH(B2,F:F,0),"Den " &A2)
với Copy of Hyperlink.xls là tên file của bạn

Với em thế này có vẻ ổn )