Xin giúp: Chỉ lập danh sách Hyperlink sheet với những sheet hiện bằng VBA

[hoangfe3o4]

Các bác cho em xin code lập danh sách hyperlink sheet với những sheet hiện
Ví dụ: Em có 5 sheet: Ds hyperlink, danh sach lop, sheet 1, sheet 2, sheet3
bây giờ em muốn lập danh sách hyperlink tại cột B2 của Sheet" Ds hyperlink" nó hiện: Hyperlink sheet1, sheet2, sheet 3
và khi em hide sheet 3 thì tại danh sách hyperlink chỉ còn hiện hyperlink của: sheet 1 và sheet 2.
Em xin trân thành cám ơn ạ!

 

[quanluu]

Các bác cho em xin code lập danh sách hyperlink sheet với những sheet hiện
Ví dụ: Em có 5 sheet: Ds hyperlink, danh sach lop, sheet 1, sheet 2, sheet3
bây giờ em muốn lập danh sách hyperlink tại cột B2 của Sheet" Ds hyperlink" nó hiện: Hyperlink sheet1, sheet2, sheet 3
và khi em hide sheet 3 thì tại danh sách hyperlink chỉ còn hiện hyperlink của: sheet 1 và sheet 2.
Em xin trân thành cám ơn ạ!

Bạn đã thử viết code hyperlink cho nhưng sheet không ẩn chưa? theo mình nghĩ là khi bạn ẩn 1 sheet thì không nhất thiết bắt sự kiện ẩn sheet để tạo lại hyperlink mà có thể tạo lại hyperlink khi sheet hyperlink active sẽ đơn giản hơn.

 

[TongDe]

Bài bản là đây...
Xào nấu lại là theo ý bạn...

 

[hoangfe3o4]

Bài bản là đây...
Xào nấu lại là theo ý bạn...

Bài của bác hay quá ạ. Ngoài cái tạo MucLucSheetsheet còn có chức năng tạo sheet từ file chung và xóa sheet nữa ạ. đồng thời không hyperlink với sheet ẩn.
Tuy nhiên ở MucLucSheetsheet vẫn có tên của sheet ẩn. bác có thể làm thế nào xóa nó được không ạ.
Ví dụ em ẩn sheet 51O1T thì MucLucSheetsheet hiện thế này thôi ạ.

DanhSachLop

6A2

7B8

12C

Em cám ơn ạ.

Bài đã được tự động gộp: 5/7/19

Bạn đã thử viết code hyperlink cho nhưng sheet không ẩn chưa? theo mình nghĩ là khi bạn ẩn 1 sheet thì không nhất thiết bắt sự kiện ẩn sheet để tạo lại hyperlink mà có thể tạo lại hyperlink khi sheet hyperlink active sẽ đơn giản hơn.

Em làm mấy chục sheet bác ạ.
Còn code hyperlink sheet tất cả các sheet thì em có được như sau

Sub CreateLinksToAllSheets()

Dim sh As Worksheet

Dim cell As Range

For Each sh In ActiveWorkbook.Worksheets

If ActiveSheet.Name <> sh.Name Then

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _

"'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name

ActiveCell.Offset(1, 0).Select

End If

Next sh

End Sub

Nhưng em chỉ muốn tạo Danh sách hyperlink với sheet hiện thôi ạ.
Bác giúp em với ạ.
Thanks!

 

[TongDe]

Việc tạo lại sheet mới quá dễ dàng ... lại update được dữ liệu...
Hide làm chi cho xung khắc tên sau này..
Không thích sheet nào cứ delete đi thôi ...
Hoặc có thể tạo thêm sheet mới ...nhưng nhớ chừa ô A1 ra để back to index...
Trở về trang mục lục là tự có list mới ,,,

 

[hoangfe3o4]

Việc tạo lại sheet mới quá dễ dàng ... lại update được dữ liệu...
Hide làm chi cho xung khắc tên sau này..
Không thích sheet nào cứ delete đi thôi ...
Hoặc có thể tạo thêm sheet mới ...nhưng nhớ chừa ô A1 ra để back to index...
Trở về trang mục lục là tự có list mới ,,,

Em tạo cơ sở dữ liệu của 1 khóa của 1 trường trên 1 file.
Có khoảng hơn 60 lớp(mỗi lớp 1 sheet) và có 6 khoa bộ môn (mỗi bộ môn có hơn 10 lớp)
Ý em ở đây là định khi chia sẽ cho khoa nào thì sẽ ẩn các lớp của khoa khác và nó sẽ tự động tạo Danh sách lớp hyperlink của các lớp được chia sẻ.
P/s: E cũng tìm được code sheet ẩn hiện nhanh rồi ạ. Nhưng e vẫn chỉ phân vân cái tự động tạo Danh sách lớp hyperlink của các lớp được chia sẻ( những sheet hiện) thôi ạ.

 

[TongDe]

Xào nấu la chuyện của bạn mà ...
Gợi ý:
- Chừa lại các lớp muốn share file
- Delete luôn sheet DanhSachLop ( Remove module TaoMoi() ...)
- Save as dưới tên khác
- Gởi file cho họ xài..
- Pass cho excel không ngăn được dân tò mò đâu !

 

[hoangfe3o4]

Xào nấu la chuyện của bạn mà ...
Gợi ý:
- Chừa lại các lớp muốn share file
- Delete luôn sheet DanhSachLop ( Remove module TaoMoi() ...)
- Save as dưới tên khác
- Gởi file cho họ xài..
- Pass cho excel không ngăn được dân tò mò đâu !

Vâng ạ. Em cám ơn bác ạ.