[hỏi] Tạo nhóm cho các sheet trong excel

Chào các anh chị , em đang phân vân liễu các sheet trong excel liễu có thệ tạo thành các nhóm được không ?
vì một file excel của em có rất nhiều sheet , em muốn tạo thành các nhóm để dệ dàng quạn lý hơn .
mong các anh chi giúp đợ , cảm ơn các anh chỉ nhiều .

Không hiểu ý của chủ topic. Tạo nhóm hay Group Sheets? Khi Group Sheets rồi thì tại Sheets hiện hành ta gõ giá trị vào 1 cell bất kỳ thì các Sheets trong nhóm Group đó sẽ có cùng giá trị - sẽ phản tác dụng!.
Đề nghị chủ topic nói rõ hơn ý đồ của mình.

Theo em hiểu thì chủ topic muốn tạo nhóm sheet dạng như một số sheet thực hiện chức năng A chẳng hạn thì nhóm lại một nhóm, Một số sheet thực hiện chức năng khác thì nhóm lại thành một nhóm. Khi làm việc với từng nhóm thì chỉ kêu tên chung Group của nó thôi. Không biết có đúng không, đề nghị chủ Topic nêu rõ ý đồ hơn.

cảm ơn mõi người .
ý em là tạo các Group đấy . trong group khi mở ra thì có các sheet con.
VD: group ( BEN TRAI ) thì chứa các sheet ( T1 , T2 , T3 ) . còn Group ( BEN PHAI ) thì chứa các Sheet ( P1 , P2 , P3 ) .

khó, cái này mình cũng đang cần

Theo e thì bác tạo một sheet mới, rồi dùng chức năng Hyperlink (Ctrl+K) trong thẻ Insert của Excel để tổng hợp các sheet lại, muốn đến sheet nào chỉ việc click vào đấy.

Muốn giúp đợ nhưng mà mình vận dùng OF 2003.

  Đây là code e sưu tầm được. Về cơ bản thì cái này tạo thêm một sheet Mucluc và tự động tạo liên kết Hyperlink cho các sheet có trong file excel.
  E đang tìm cách để tạo thêm chức năng "Quay về" sheet Mucluc bằng cách thêm vào bảng khi nhấn chuột phải hoặc tạo nút ở trên Ribon để đa dạng hơn cách về lại sheet Mucluc này.
  Sau khi tạo sheet Mucluc thì ta sẽ sắp xếp, nhóm các sheet lại theo chức năng Group trong thẻ Data hoặc trình bày ra một bảng nào đó, miễn sao là dễ quản lý.

[Visual Basic] 纯文本查看 复制代码

Private Sub CreateTableOfContents()
    Dim wsSheet As Worksheet
    Dim ws As Worksheet
    Dim Counter As Long

    On Error Resume Next
    Set wsSheet = Sheets("Mucluc")
    'Kiem tra su ton tai cua Sheet
    On Error GoTo 0
    If wsSheet Is Nothing Then
        'Neu chua co thi them vao vi tri dau tien cua Workbook
        Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))
        wsSheet.Name = "Mucluc"
    End If

    With wsSheet
        .Cells(2, 1) = "DANH SACH CAC SHEET"
        .Cells(2, 1).Name = "Index"
        .Cells(4, 1).Value = "STT"
        .Cells(4, 2).Value = "Ten Sheet"
    End With

    'Merge Cell
    With Range("A2:B2")
        .Merge
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With

    'Set ColumnWidth
    With Columns("A:A")
        .ColumnWidth = 8
        .HorizontalAlignment = xlCenter
    End With

     With Range("A4")
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With

    Columns("B:B").ColumnWidth = 30
    With Range("B4")
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With

    Counter = 1
    For Each ws In Worksheets
        If ws.Name <> wsSheet.Name Then
            'Gan gia tri cot thu tu
            wsSheet.Cells(Counter + 4, 1).Value = Counter
            'Tao lien ket
            wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _
                                            Address:="", _
                                            SubAddress:=ws.Name & "!A1", _
                                            ScreenTip:=ws.Name, _
                                            TextToDisplay:=ws.Name
            'Them nut Quay ve Sheet Muc luc tai moi Sheet
            With ws
                .Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve"
            End With
            Counter = Counter + 1
        End If
    Next ws
   Set xlSheet = Nothing
End Sub

(st)

Cái này nhờ Anh/Em rành VBA chế cháo lại cho bạn đó theo như sau: Giả sử ta có 9 Sheet và muốn chia làm 3 Nhóm. Vậy thì ta sẽ code để ẩn 6 sheet kia đi. Cứ làm lần lượt như vậy cho 3 nhóm là OK ngay.