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

  • Thread starter Thread starter koyama
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

koyama

Thành viên chính thức
Tham gia
16/6/11
Bài viết
52
Được thích
8
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.
PHP:
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
 
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
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Cám ơn bạn nhiều vì đã sửa giúp mình
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom