Xin giúp đỡ ạ :Tự động lấy tên sheet khi sheet mới được ra

Liên hệ QC

deltaco

Thành viên mới
Tham gia
21/9/18
Bài viết
25
Được thích
0
Dạ, em có ý tưởng là 1 bảng tổng hợp điều khiển là lấy tên các sheet và khi có sheet mới tạo ra thì sheet tổng hợp sẽ tự cập nhập ạ. và em muốn truy cập đến sheet đó thì em chỉ cần click vào sheet tổng hợp. ai biết chỉ giúp em với ạ. Cảm ơn !
 
Dạ, em có ý tưởng là 1 bảng tổng hợp điều khiển là lấy tên các sheet và khi có sheet mới tạo ra thì sheet tổng hợp sẽ tự cập nhập ạ. và em muốn truy cập đến sheet đó thì em chỉ cần click vào sheet tổng hợp. ai biết chỉ giúp em với ạ. Cảm ơn !
Bạn xem file này có đúng không nhé.
 

File đính kèm

  • test.xlsm
    25.4 KB · Đọc: 21
Dạ, em có ý tưởng là 1 bảng tổng hợp điều khiển là lấy tên các sheet và khi có sheet mới tạo ra thì sheet tổng hợp sẽ tự cập nhập ạ. và em muốn truy cập đến sheet đó thì em chỉ cần click vào sheet tổng hợp. ai biết chỉ giúp em với ạ. Cảm ơn !
Bạn thử
 

File đính kèm

  • TaoLinkSheet.xlsm
    14.9 KB · Đọc: 24
Dạ, em có ý tưởng là 1 bảng tổng hợp điều khiển là lấy tên các sheet và khi có sheet mới tạo ra thì sheet tổng hợp sẽ tự cập nhập ạ. và em muốn truy cập đến sheet đó thì em chỉ cần click vào sheet tổng hợp. ai biết chỉ giúp em với ạ. Cảm ơn !
Theo góp ý của bác #be09 mình tạo thêm nút trở về để tiện link với các sheet
Mã:
Private Sub Worksheet_Activate()
  Dim wSheet As Worksheet
  Dim lCount As Long
  lCount = 1
      
With Me
   .Columns(1).ClearContents
   .Cells(1, 1) = "HOME"
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:= _
          "HOME", TextToDisplay:="Tro Ve"
     End With
     Me.Hyperlinks.Add Anchor:=Me.Cells(lCount, 1), Address:="", SubAddress:= _
     "Start" & wSheet.Index, TextToDisplay:=wSheet.Name
  End If
Next wSheet
End Sub
 

File đính kèm

  • TaoLinkSheet2.xlsm
    14.9 KB · Đọc: 19
Đúng chuẩn, đang lúc làm vấn đề này thì gặp ngay người cùng ý tưởng
 
em cảm ơn các bác ạ.
 
Web KT
Back
Top Bottom