Group and Outline bằng VBA ?

[TrungChinhs]

Chào các bạn !
Tôi đang thử Group and Outline bằng VBA nhưng đang gặp khó khăn về câu lệnh để chọn Group (dấu +) hoặc Outline (dấu -) hoặc câu lệnh để ẩn - hiện số dòng trong nhóm đang chọn. Nhờ các bạn viết giúp tôi câu lệnh để thực hiện yêu cầu này. Ví dụ và yêu cầu cụ thể trong file đính kèm. Thanks!

 

[cadafi]

Anh dùng thử code bên dưới xem sao, tuy chưa hoàn toàn như ý anh yêu cầu, nhưng tạm ổn, sẽ cố gắng chỉnh sửa thêm sau nhé anh:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Offset(1, 0).EntireRow.Hidden = True Then
      Me.Outline.ShowLevels (Target.EntireRow.OutlineLevel + 1)
Else: Me.Outline.ShowLevels (Target.EntireRow.OutlineLevel)
End If
End Sub