[Help] Cho em hỏi về vấn đề Hyperlink (1 người xem)

[loves27]

Kính chào toàn thể các Anh/Chị trong gia đình GPE!
Em có 1 vấn đề đang thắc mắc và không biết làm thể nào.
Các anh chị xem giúp em có cách nào khi mình click vào hyperlink thì sẽ tự động chuyển sang sheet kế và tự động copy đoạn text mà mình vừa nhấp vào không ạ.
Các Anh/Chị xem qua file giúp em với.
Chân thành cảm ơn các Anh/Chị đã quan tâm.

 

[giangleloi]

Kính chào toàn thể các Anh/Chị trong gia đình GPE!
Em có 1 vấn đề đang thắc mắc và không biết làm thể nào.
Các anh chị xem giúp em có cách nào khi mình click vào hyperlink thì sẽ tự động chuyển sang sheet kế và tự động copy đoạn text mà mình vừa nhấp vào không ạ.

Nhìn tiêu đề cứ tưởng hỏi thành viên Hyperlink đang lấp ló ở topic này

 

[HyperLink]

Kính chào toàn thể các Anh/Chị trong gia đình GPE!
Em có 1 vấn đề đang thắc mắc và không biết làm thể nào.
Các anh chị xem giúp em có cách nào khi mình click vào hyperlink thì sẽ tự động chuyển sang sheet kế và tự động copy đoạn text mà mình vừa nhấp vào không ạ.
Các Anh/Chị xem qua file giúp em với.
Chân thành cảm ơn các Anh/Chị đã quan tâm.

còn các code 222, 333, ... thì vị trí liên kết cũng giống với 111 luôn hả ?

 

[loves27]

còn các code 222, 333, ... thì vị trí liên kết cũng giống với 111 luôn hả ?

dạ đúng rồi anh ơi, vì em làm mẫu cái 111 thôi ạ

 

[giangleloi]

dạ đúng rồi anh ơi, vì em làm mẫu cái 111 thôi ạ

Thử đoạn code này vào sheet1 xem sao:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
   Sheet2.[C4] = Hyperlinks(1).Range.Value
End Sub

 

[HyperLink]

dạ đúng rồi anh ơi, vì em làm mẫu cái 111 thôi ạ

cái này đâu cần phải cài hyperlink cho từng code mà bạn có thể dùng sự kiện Double click của sheet

 

[loves27]

cái này đâu cần phải cài hyperlink cho từng code mà bạn có thể dùng sự kiện Double click của sheet

Cái này mình chỉnh ở đâu vậy anh

Thử đoạn code này vào sheet1 xem sao:
Code:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Sheet2.[C4] = Hyperlinks(1).Range.Value
End Sub

Cám ơn anh nhiều ạ

 

[loves27]

anh Hyperlink ơi, sao em dùng marco của anh nhưng vẫn không chạy được, anh giúp em với ạ

 

[HyperLink]

anh Hyperlink ơi, sao em dùng marco của anh nhưng vẫn không chạy được, anh giúp em với ạ

code mình đặt tại sheet1, áp dụng cho vùng A5 đến A1000, khi bạn Double click trong vùng đó thì code sẽ chạy (nhớ click Enable Content khi mở file nhé)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A5:A1000")) Is Nothing Then
    If Target <> "" Then
    Cancel = True
        With ThisWorkbook.Sheets("Sheet2")
            .Select
            .Range("C4") = Target.Value
        End With
    End If
    End If
End Sub

 

[loves27]

code mình đặt tại sheet1, áp dụng cho vùng A5 đến A1000, khi bạn Double click trong vùng đó thì code sẽ chạy (nhớ click Enable Content khi mở file nhé)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A5:A1000")) Is Nothing Then
    If Target <> "" Then
    Cancel = True
        With ThisWorkbook.Sheets("Sheet2")
            .Select
            .Range("C4") = Target.Value
        End With
    End If
    End If
End Sub

Em làm được rồi ạ, cám ơn anh rất nhiều