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

deltaco

Thành viên mới
Tham gia ngày
21 Tháng chín 2018
Bài viết
25
Được thích
0
Điểm
163
Tuổi
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 !
 

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,512
Được thích
2,362
Điểm
360
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

LamNA

Thành viên tích cực
Tham gia ngày
3 Tháng sáu 2014
Bài viết
891
Được thích
707
Điểm
560
Nơi ở
Sóc Trăng
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

be09

TNMT_Đồng Nai
Tham gia ngày
9 Tháng tư 2011
Bài viết
8,870
Được thích
8,549
Điểm
560
Tuổi
62
Nơi ở
Biên Hòa, Đồng Nai
Lần chỉnh sửa cuối:

LamNA

Thành viên tích cực
Tham gia ngày
3 Tháng sáu 2014
Bài viết
891
Được thích
707
Điểm
560
Nơi ở
Sóc Trăng
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

xuanhiencp

Thành viên mới
Tham gia ngày
3 Tháng một 2017
Bài viết
25
Được thích
3
Điểm
165
Tuổi
32
Đúng chuẩn, đang lúc làm vấn đề này thì gặp ngay người cùng ý tưởng
 

deltaco

Thành viên mới
Tham gia ngày
21 Tháng chín 2018
Bài viết
25
Được thích
0
Điểm
163
Tuổi
24
em cảm ơn các bác ạ.
 
Top Bottom