Tập hợp và triển khai cac sheet trong workbook (1 người xem)

[lampham]

Cho mình hỏi các bạn:
- Làm thế nào có thể tập hợp các tên sheet trong workbook vào một sheet.
- Từ đấy có thể click vào tên sheet để di chuyển tới sheet đó và ngược lại.
Mong các bạn giúp mình, mình đang rất cần mà chưa nghiên cứu được.

 

[tvxdgt]

Cho mình hỏi các bạn:
- Làm thế nào có thể tập hợp các tên sheet trong workbook vào một sheet.
- Từ đấy có thể click vào tên sheet để di chuyển tới sheet đó và ngược lại.
Mong các bạn giúp mình, mình đang rất cần mà chưa nghiên cứu được.

Cách đơn giản nhất không dùng code là bạn tạo đường link Insert Hyperlink. Ví dụ file bạn có sheet1, sheet2, sheet3, sheet4, sheet5 chẳng hạn. Bạn vào sheet1, ví dụ viết các sheet như hình vẽ. Chọn ô A1 bấm Ctrl + K, chọn bookmark chọn sheet2, tương tự như vậy bạn làm các sheet khác.
Còn trường hợp trong workbook có sheet ẩn thì đường dẫn không đến sheet đó được khi đó phải viết đoạn code mới khắc phục được.

 

[nghiaphuc]

Cho mình hỏi các bạn:
- Làm thế nào có thể tập hợp các tên sheet trong workbook vào một sheet.
- Từ đấy có thể click vào tên sheet để di chuyển tới sheet đó và ngược lại.
Mong các bạn giúp mình, mình đang rất cần mà chưa nghiên cứu được.

Tham khảo thêm cách này cho vui:
1. Code trong Sheet Menu:

Private Sub Worksheet_Activate() 'Tạo danh mục các sheet trong Workbook'
    Dim Sh As Worksheet
    [A2:A1000].ClearContents
    For Each Sh In ThisWorkbook.Sheets
        If Sh.Name <> Me.Name Then [A65536].End(xlUp).Offset(1) = Sh.Name
    Next
    [A1].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Kích hoạt liên kết khi chọn tên sheet'
    If Target.Count > 1 Or Target.Column > 1 Or Target.Row = 1 Then Exit Sub
    If Target.Value <> "" Then Sheets(Target.Value).Visible = -1: Sheets(Target.Value).Select
End Sub

2. Code trong ThisWorkbook:

Private Sub Workbook_NewSheet(ByVal Sh As Object) 'Tạo Hyperlink khi thêm sheet'
    ActiveSheet.Hyperlinks.Add Anchor:=[A1], Address:="", SubAddress:="'" & Sheet1.Name & "'!A1", TextToDisplay:="Menu"
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 'Ẩn sheet khi không chọn'
    If Sh.Name <> Sheet1.Name Then Sh.Visible = 2
End Sub

 

[lampham]

cảm ơn bạn nhưng như thế thi hơi thủ công.co cách nào không thủ công thế không?

 

[tvxdgt]

cảm ơn bạn nhưng như thế thi hơi thủ công.co cách nào không thủ công thế không?

Nếu không thủ công bạn chép đoạn code của bạn nghiaphuc. Bạn có thể tham khảo thêm trang này cho nó rỏ hơn. Chúc bạn thành công.

http://www.giaiphapexcel.com/forum/showthread.php?10142-siêu-liên-kết

 

[lampham]

Nếu không thủ công bạn chép đoạn code của bạn nghiaphuc. Bạn có thể tham khảo thêm trang này cho nó rỏ hơn. Chúc bạn thành công.

http://www.giaiphapexcel.com/forum/showthread.php?10142-siêu-liên-kết

Rất cảm ơn bạn.
Mình muốn hỏi thêm:
- Nếu mình muốn thay đổi tên sheet ngay trong mục lục thì làm thế nào tên sheet cũng thay đổi theo có được không?
- Mình đang cần một bộ biểu khung với rất nhiều dữ liệu sẽ thay đổi( ví dụ ngày tháng năm). chỉ cần thay đổi số liệu ở sheet Data thì biểu khung này thay đổi theo, và mình muốn rằng có rất nhiều biểu khung mà không cần truy cập tới sheet chứa biểu khung đó được không
Mong các cao thủ giúp đở
Mình chưa biết gì lập trình

 

[nguyenthixuantieng]

Rất cảm ơn bạn.
Mình muốn hỏi thêm:
- Nếu mình muốn thay đổi tên sheet ngay trong mục lục thì làm thế nào tên sheet cũng thay đổi theo có được không?
- Mình đang cần một bộ biểu khung với rất nhiều dữ liệu sẽ thay đổi( ví dụ ngày tháng năm). chỉ cần thay đổi số liệu ở sheet Data thì biểu khung này thay đổi theo, và mình muốn rằng có rất nhiều biểu khung mà không cần truy cập tới sheet chứa biểu khung đó được không
Mong các cao thủ giúp đở
Mình chưa biết gì lập trình

Bạn nhấp vào tên cần đổi, rồi nhấp phải chuột chon edit hyperlink rồi đổi tên

 

[Emxincacbac]

Giúp mình với mình ko làm được

Tham khảo thêm cách này cho vui:
1. Code trong Sheet Menu:

Private Sub Worksheet_Activate() 'Tạo danh mục các sheet trong Workbook'
    Dim Sh As Worksheet
    [A2:A1000].ClearContents
    For Each Sh In ThisWorkbook.Sheets
        If Sh.Name <> Me.Name Then [A65536].End(xlUp).Offset(1) = Sh.Name
    Next
    [A1].Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Kích hoạt liên kết khi chọn tên sheet'
    If Target.Count > 1 Or Target.Column > 1 Or Target.Row = 1 Then Exit Sub
    If Target.Value <> "" Then Sheets(Target.Value).Visible = -1: Sheets(Target.Value).Select
End Sub

2. Code trong ThisWorkbook:

Private Sub Workbook_NewSheet(ByVal Sh As Object) 'Tạo Hyperlink khi thêm sheet'
    ActiveSheet.Hyperlinks.Add Anchor:=[A1], Address:="", SubAddress:="'" & Sheet1.Name & "'!A1", TextToDisplay:="Menu"
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) 'Ẩn sheet khi không chọn'
    If Sh.Name <> Sheet1.Name Then Sh.Visible = 2
End Sub

Bạn có thể hướng dẫn bằng hình ảnh không ? Cảm ơn bạn nhiều

 

[nghiaphuc]

Bạn có thể hướng dẫn bằng hình ảnh không ? Cảm ơn bạn nhiều

Bạn tải file về, nhấn Alt+F11 và xem code trong 2 đối tượng: ThisWorkbook và Sheet Menu là biết liền à. Còn tác dụng của từng đoạn lệnh thì tôi đã nêu trong bài #3 rồi. Chứ hướng dẫn bằng hình ảnh thì tôi cũng chẳng biết phải làm như thế nào cả.