hàm hyperlink (1 người xem)

[tuyenkk]

Xin chào các anh chị và các bạn,
tôi hiện có 1 bảng tính gồm 2 sheet. sheet "Tình trạng bàn giao" và "tình trạng lỗi".
Để gắn link từng căn thì mình làm được (ví dụ: ấn vào căn 401 (ô B6) của "Tình trạng bàn giao" sẽ link sang ô D5 của "tình trạng lỗi") nhưng với số lượng lớn như này thì hơi lâu.
Xin tư vấn của mọi người để có thể làm nhanh hơn! xin chân thành cảm ơn!

 

[be_09]

Xin chào các anh chị và các bạn,
tôi hiện có 1 bảng tính gồm 2 sheet. sheet "Tình trạng bàn giao" và "tình trạng lỗi".
Để gắn link từng căn thì mình làm được (ví dụ: ấn vào căn 401 (ô B6) của "Tình trạng bàn giao" sẽ link sang ô D5 của "tình trạng lỗi") nhưng với số lượng lớn như này thì hơi lâu.
Xin tư vấn của mọi người để có thể làm nhanh hơn! xin chân thành cảm ơn!

Chưa hiểu bạn muốn làm cái gì, theo tôi thì chả cần Link mà nên thiết kế lại bảng tính rồi dùng Pivottable để hợp kết quả.

 

[nguyenthuy13388]

Xin chào các anh chị và các bạn,
tôi hiện có 1 bảng tính gồm 2 sheet. sheet "Tình trạng bàn giao" và "tình trạng lỗi".
Để gắn link từng căn thì mình làm được (ví dụ: ấn vào căn 401 (ô B6) của "Tình trạng bàn giao" sẽ link sang ô D5 của "tình trạng lỗi") nhưng với số lượng lớn như này thì hơi lâu.
Xin tư vấn của mọi người để có thể làm nhanh hơn! xin chân thành cảm ơn!

Dungf VBA đi bạn:

Sub tao_hyperlink()
Dim Rng As Range, Arr As Range, i as long

With Sheet1
    Set Arr = .Range("B6:W38")
    For Each Rng In Arr
        If Rng.Value <> "" Then
            i = i + 1
            .Hyperlinks.Add Anchor:=Rng, Address:="", SubAddress:="'" & Sheet2.Name & "'!D" & 4 + i
        End If
    Next
End With

End Sub

 

[tuyenkk]

Dungf VBA đi bạn:

Sub tao_hyperlink()
Dim Rng As Range, Arr As Range, i as long

With Sheet1
    Set Arr = .Range("B6:W38")
    For Each Rng In Arr
        If Rng.Value <> "" Then
            i = i + 1
            .Hyperlinks.Add Anchor:=Rng, Address:="", SubAddress:="'" & Sheet2.Name & "'!D" & 4 + i
        End If
    Next
End With

End Sub

xin cảm ơn!