Viết code tự động Hyperlink từ cell có tọa độ cho trước để Hyperlink đến Sheet khác (1 người xem)

[thanhthat]

Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

Ví dụ: tại Sheet1 Cột B Cột C
Sheet2 b3
Sheet3 d4
Sheet4 e5
Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
(Như File đính kèm bên dưới)
Cám ơn các Bạn!

 

[quanluu]

Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

Ví dụ: tại Sheet1 Cột B Cột C
Sheet2 b3
Sheet3 d4
Sheet4 e5
Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
(Như File đính kèm bên dưới)
Cám ơn các Bạn!

Vấn đề bài của bạn là bạn sẽ nhập tên sheet và địa chỉ thủ công hay chạy sub lấy tên sheet rùi điền địa chỉ thủ công, sau đó chạy sub hyperlink?

 

[vu_tuan_manh_linh]

Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

Ví dụ: tại Sheet1 Cột B Cột C
Sheet2 b3
Sheet3 d4
Sheet4 e5
Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
(Như File đính kèm bên dưới)
Cám ơn các Bạn!

Dùng thử đoạn code sau nhé bạn!

Sub TaoHyperLink()
Dim i, LastRw
LastRw = Range("B65536").End(xlUp).Row
For i = 3 To LastRw
    Cells(i, 3).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value & "!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value
Next
End Sub

 

[thanhthat]

Vấn đề bài của bạn là bạn sẽ nhập tên sheet và địa chỉ thủ công hay chạy sub lấy tên sheet rùi điền địa chỉ thủ công, sau đó chạy sub hyperlink?

em nhập thủ công tên sheet và tọa độ anh ạ, khi nhập xong tên sheet và tọa độ cần đến là tự động tạo hyperlink.
Cám ơn Anh.

 

[thanhthat]

Dùng thử đoạn code sau nhé bạn!

Sub TaoHyperLink()
Dim i, LastRw
LastRw = Range("B65536").End(xlUp).Row
For i = 3 To LastRw
    Cells(i, 3).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value & "!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value
Next
End Sub

Hay quá anh ơi, em làm mãi mà không được.
Cám ơn Anh nhiều !

 

[thanhthat]

Dùng thử đoạn code sau nhé bạn!

Sub TaoHyperLink()
Dim i, LastRw
LastRw = Range("B65536").End(xlUp).Row
For i = 3 To LastRw
    Cells(i, 3).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value & "!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value
Next
End Sub

Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.

 

[vu_tuan_manh_linh]

Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.

Chỉnh sửa code một chút là được thôi bạn!

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Cells(i, 2).Value & "'!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value

 

[quanluu]

Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.

thế thì thử thế này coi, hoặc là tên sheet bạn nhập tay ko đúng.

[COLOR=#0000BB][FONT=monospace][I]Sub TaoHyperLink[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]()
[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Dim i[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]LastRw
LastRw [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Range[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"B65536"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]End[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]xlUp[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Row
[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]For [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]i [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]= [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3 To LastRw
    Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]i[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Select
    ActiveSheet[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Hyperlinks[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I].[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Add Anchor[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Selection[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Address[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]""[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]SubAddress[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#ff0000][FONT=monospace][I]"'"[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I] & [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]i[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]2[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#DD0000][FONT=monospace][I]"'!" [/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]& [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]i[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]TextToDisplay[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]:=[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Cells[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]([/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]i[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I], [/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]3[/I][/FONT][/COLOR][COLOR=#007700][FONT=monospace][I]).[/I][/FONT][/COLOR][COLOR=#0000BB][FONT=monospace][I]Value
Next
End Sub  
[/I][/FONT][/COLOR]

 

[thanhthat]

Chỉnh sửa code một chút là được thôi bạn!

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Cells(i, 2).Value & "'!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value

Cám ơn Anh, thật nhanh và chính xác !

 

[thanhthat]

Chào các Bạn !

Nhờ các Bạn code giúp mình nhập liệu vào các Sheet dựa trên cột có Tên Sheet và tọa độ đến các sheet tương ứng để nhập dữ liệu vào cell (File đính kèm).

Cám ơn !

 

[quanluu]

Chào các Bạn !

Nhờ các Bạn code giúp mình nhập liệu vào các Sheet dựa trên cột có Tên Sheet và tọa độ đến các sheet tương ứng để nhập dữ liệu vào cell (File đính kèm).

Cám ơn !

Cái này có liên quan gì đến hyperlink đâu bạn

Sub run()
Dim i As Integer, sh As String, rang As String
    For i = 4 To Range("B65000").End(3).Row
        sh = Cells(i, 2): rang = Cells(i, 3)
        Sheets(sh).Range(rang).Value = Cells(i, 4)
    Next
End Sub