Tạo liên kết giữa các Sheet trong cùng workbook? (1 người xem)

[koyama]

Dear all,

Mình có thấy hướng dẫn tạo các liên kết worksheet trong cùng workbook bằng hàm VBA theo hướng dẫn của anh Trần Thanh Phong ở đây

Vấn đề là khi mình chạy code thì không thể trở về sheet Index được.

Nhờ mọi người coi giùm đoạn code và hướng dẫn để khắc phục lỗi này.

Thanks all.

Private Sub Worksheet_Activate()
  Dim wSheet As Worksheet
  Dim lCount As Long
  lCount = 1
      
With Me
   .Columns(1).ClearContents
   .Cells(1, 1) = "INDEX"
End With

For Each wSheet In Worksheets
   If wSheet.Name <> Me.Name Then
     lCount = lCount + 1
     With wSheet
         .Range("A1").Name = "Start" & wSheet.Index
         .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
          "Index", TextToDisplay:="Back to Index"
     End With
     Me.Hyperlinks.Add Anchor:=Me.Cells(lCount, 1), Address:="", SubAddress:= _
     "Start" & wSheet.Index, TextToDisplay:=wSheet.Name
  End If    
Next wSheet
End Sub

 

[Lequocvan]

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Integer
M = 1
With ActiveSheet
.Columns(1).ClearContents
.Cells(1, 1) = "DANH SACH TEN SHEET"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
M = M + 1
With wSheet
.Range("H1").Name = "Start" & wSheet.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:="Index", TextToDisplay:="TRO VE TRANG CHINH"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="", SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub

 

[koyama]

Cám ơn bạn nhiều vì đã sửa giúp mình