Hướng dẫn hyperlinks theo sheet

[Hải Đăng SG]

Chào Anh, Chị.

Nhờ Anh, Chị giúp Hyperlinks hàng loạt theo tên sheet với.

Sheet Sum mình có danh sách 8 sheet. Mình muốn hyperlinks tự động sau cho khi nhấp vào A2-A9 thì sẽ tự động links đến sheet đó tại vị trí A1.

Cám ơn.

 

[hvnhpro]

Chào Anh, Chị.

Nhờ Anh, Chị giúp Hyperlinks hàng loạt theo tên sheet với.

Sheet Sum mình có danh sách 8 sheet. Mình muốn hyperlinks tự động sau cho khi nhấp vào A2-A9 thì sẽ tự động links đến sheet đó tại vị trí A1.

Cám ơn.

Sub mucluc()
Sheets("Sum").Columns(1).Select
Selection.ClearContents

[a1].Value = "Sheet"
For i = 2 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 1).Select
Cells(i, 1).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
 'Them nut Home vao cac Sheet
 Sheets(i).Select
 Columns(1).Insert
   Range("A1").Select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Sum'!A1", TextToDisplay:="Home"
   
   Sheets("Sum").Select
Next i
End Sub

Bạn thử code này xem sao (code của bạn Huong Le trong diễn đàn)

 

[Hải Đăng SG]

Sub mucluc()
Sheets("Sum").Columns(1).Select
Selection.ClearContents

[a1].Value = "Sheet"
For i = 2 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Cells(i, 1).Select
Cells(i, 1).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
 'Them nut Home vao cac Sheet
 Sheets(i).Select
 Columns(1).Insert
   Range("A1").Select
    ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'Sum'!A1", TextToDisplay:="Home"
  
   Sheets("Sum").Select
Next i
End Sub

Bạn thử code này xem sao (code của bạn Huong Le trong diễn đàn)

nếu đổi cột A thành hàng số 2 thì sửa code như thế nào vậy bạn

 

[huhumalu]

=HYPERLINK("#'"&A2&"'!A1",A2)

Sao không dùng vầy cho khỏe.

 

[hvnhpro]

nếu đổi cột A thành hàng số 2 thì sửa code như thế nào vậy bạn

Nếu bạn chưa biết gì về vba thì dùng công thức như bài #4 của bạn huhumalu

 

[Hải Đăng SG]

=HYPERLINK("#'"&A2&"'!A1",A2)

Sao không dùng vầy cho khỏe.

Nếu bạn chưa biết gì về vba thì dùng công thức như bài #4 của bạn huhumalu

Có cách nào không dùng thêm cột khác không, làm trực tiếp trên cột A luôn