Dùng 1 Sheet để display nội dung của Sheet khác

[luckyboy1310]

Các anh chị và thầy cô ơi. Em có 1 vấn đề nan giải cả tuần nay. Chả là em có 1 file báo cáo sl bill bán ra hàng tháng, nay cần phải làm tổng hợp thành 12 tháng, nhưng ngặt nỗi dữ liệu nó quá lớn nên giờ em muốn tạo 1 sheet(tạm gọi là sheet hiển thị) và trong sheet này em sẽ dùng code để gọi các sheet khác (1 sheet tương ứng với 1 tháng)
- Trong sheet HIEN THỊ em sẽ tạo 1 cái list tháng. Khi e chọn tháng nào đó thì code chọn đúng sheet tháng tương ứng và copy toàn bộ qua sheet HIEN THI.

P/S: Tất cả các sheet đều ẩn hết trừ sheet hiển thị. Khj ta gọi sheet nào thì sheet đó hiển lên còn những sheet còn lại đều ẩn

Các thầy cô - anh chị ráng giúp em với. em chân thành cảm ơn

 

[ptm0412]

Bạn có thể tham khảo tuyệt chiêu số 7: Tạo chỉ mục cho các Sheet trong Workbook
Tuy nhiên để thêm mục ẩn sheet, hiện sheet thì sẽ làm khác 1 chút.

Code module, dùng cho các rectangle back, quay lại sheet "Hien Thi":

Sub Hien()
  Application.ScreenUpdating = False
  Nm = ActiveSheet.Name
  With Sheets("Hien thi")
    .Visible = True
    .Activate
  End With
  Sheets(Nm).Visible = False
Application.ScreenUpdating = True
End Sub

Code của sheet Hienthi, dùng để gọi sheet tương ứng:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$5" Then
  Application.ScreenUpdating = False
  Nm = ActiveSheet.Name
  Sheets("THANG " & Target).Visible = True
  Sheets("THANG " & Target).Activate
  Sheets(Nm).Visible = False
  Application.ScreenUpdating = True
End If
End Sub