Giấu 2 rows vào 1 row. (2 người xem)

[ExQues]

Tôi có 3 hàng và 2 cột

Hàng 1 là: Năm 2009____500
Hàng 2 là: Tháng 1_____200
Hàng 3 là: Tháng 2_____300

Giải thích: hàng 1 là tiêu đề (năm 2009)____ tổng giá trị của tháng 1 và 2 (500).

Tôi muốn giữ lại hàng tiêu đề, và ở hàng tiêu đề này có cái nút (nút vuông ở giữa có hình tam giác) để khi click vào đó thì nó sẽ giấu đi hoặc xổ ra Tháng 2 và Tháng 3 nhưng vẫn giữ đúng kết quả SUM (500).

Vì sheet của tui là hồ sơ học sinh quản lý theo tháng và năm.

Mong các bạn hướng dẫn, xin cám ơn.

 

[ChanhTQ@]

Bạn thử với macro này xem có tạm được không?

Ô cần nháy double là [c1] & 2 dòng liền dưới nó sẽ ẩn hay hiện tuần tự.

Option Explicit
 Dim An2Hg As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, [c1]) Is Nothing Then
   If An2Hg Then
      Rows("2:3").Hidden = False:         An2Hg = False
   Else
      Rows("2:3").Hidden = True:          An2Hg = True
   End If
 End If
End Sub

 

[sealand]

Nếu chỉ vậy thì có thể dùng Group là được mà. Bạn xem file nhé

 

[TrungChinhs]

Theo mình thì dùng nên Group như seland nhưng thay đổi cách trình bày dữ liệu một chút vd: thêm cột STT hoặc dữ liệu mỗi năm cách nhau 1 dòng (mục đích là để nhận biết mảng) và thêm đoạn code để tự động Group.

 

[lsxinh]

Ô cần nháy double là [c1] & 2 dòng liền dưới nó sẽ ẩn hay hiện tuần tự.

Option Explicit
 Dim An2Hg As Boolean
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Target, [c1]) Is Nothing Then
   If An2Hg Then
      Rows("2:3").Hidden = False:         An2Hg = False
   Else
      Rows("2:3").Hidden = True:          An2Hg = True
   End If
 End If
End Sub

Bác ChanhTQ@ giải thích các dòng code dùm tôi với!

 

[lsxinh]

Nếu chỉ vậy thì có thể dùng Group là được mà. Bạn xem file nhé

Bây giờ tôi mới biết, cái Group của bác sealand hay quá, cái này hay dùng trong nhưng việc gì nhỉ (giúp ẩn nhưng thứ không cần in ra phải không bác?)

 

[sealand]

Ví dụ bạn có 1 trang liệt kê hồ sơ nhiều nhân viên.Bình thường ta cho ẩn hết chi tiết chỉ để dòng Họ tên bằng cách nhấn số 1. Cần xem chi tiết hồ sơ của ai nhấn dấu cộng.

 

[TrungChinhs]

Thêm một cột STT để tự động Group

Sub AutoGroup()
Cells.ClearOutline
With [A3:A1000].SpecialCells(4)
    For i = 1 To .Areas.Count
    .Areas(i).Rows.Group
    Next
End With
End Sub

 

[pubreg]

Nếu chỉ vậy thì có thể dùng Group là được mà. Bạn xem file nhé

Cho em hỏi cách làm Groups này như thế nào nhỉ

 

[kellyfe]

bạn nhấn ctrl + shift + → chọn dòng hay cột. muốn trở lại nhấn ctrl + shift + ←. Chúc bạn thành công