Code Tạo Hyperlink trong file Excel (1 người xem)

[pth_gpex]

Mình có 1 file excel với 1 sheet TH. Trong quá trình mình làm mình tạo ra các sheet khác với tên KH1, KH2, KH3.
Ở sheet TH mình có 1 cột đã điền tên KH1, KH2, KH3 từ trên xuống.
Mình cần 1 đoạn code chạy để tạo ra hyperlink từ các ô đã điền này tương ứng với các sheet KH1, KH2, KH3.
Đoạn code mở rộng khi cột ở sheet TH này ngày càng nhiều giá trị được điền vào.
Các bạn có thể giúp mình với!
Cảm ơn rất nhiều!

 

[Lê Duy Thương]

Mình có 1 file excel với 1 sheet TH. Trong quá trình mình làm mình tạo ra các sheet khác với tên KH1, KH2, KH3.
Ở sheet TH mình có 1 cột đã điền tên KH1, KH2, KH3 từ trên xuống.
Mình cần 1 đoạn code chạy để tạo ra hyperlink từ các ô đã điền này tương ứng với các sheet KH1, KH2, KH3.
Đoạn code mở rộng khi cột ở sheet TH này ngày càng nhiều giá trị được điền vào.
Các bạn có thể giúp mình với!
Cảm ơn rất nhiều!

đây là code bạn cần "GPE code"

Function GetSh()
  Dim Temp()
  ActiveWorkbook.Names.Add String(240, "z"), "=SUBSTITUTE(GET.WORKBOOK(1),""[""&GET.WORKBOOK(16)&""]"","""")"
  Temp = Evaluate("Transpose(" & String(240, "z") & ")")
  Temp = WorksheetFunction.Transpose(Temp)
  ActiveWorkbook.Names(String(240, "z")).Delete
  GetSh = Temp
End Function

Sub Auto_Open()
  Sheets("TH").Activate
  Range("A2:A1000").CLEAR
  ActiveWorkbook.Names.Add "Link", "=INDIRECT(""'""&INDIRECT(""A""&CELL(""Row""))&""'!A1"")"
  Range("A1").Resize(Sheets.Count).Value = WorksheetFunction.Transpose(GetSh)
  Range("A1").Hyperlinks.Add Range("A1"), "", "TH!A1"
  Sheets.FillAcrossSheets Range("A1")
  With Range([A2], [A65536].End(xlUp))
    .Hyperlinks.Add .Cells, "", "Link"
  End With
End Sub

bạn chép vào module nhé