Unhide cột, dòng theo điều kiện (1 người xem)

[satthuvae]

Em chào Anh/Chị trên diễn đàn, e có một báo cáo thường xuyên theo tháng, nhưng làm thủ công lọc.
Em không có kinh nghiệm viết Marco, nhờ Anh/Chị xem giùm em.

Cột F24 đến cột U24, nếu mà giá trị trả về 0 thì hide toàn bộ cột có giá trị bằng 0, như hiện tại file e gửi J24 đến U24 giá trị bằng 0, e muốn tự động Hide đi à.

Tương tự nếu V7 đến V24, nếu giá trị trả về 0 thì sẽ hide dòng đó đi à.

Cám ơn Anh/Chị.

 

[excel_lv1.5]

Em chào Anh/Chị trên diễn đàn, e có một báo cáo thường xuyên theo tháng, nhưng làm thủ công lọc.
Em không có kinh nghiệm viết Marco, nhờ Anh/Chị xem giùm em.

Cột F24 đến cột U24, nếu mà giá trị trả về 0 thì hide toàn bộ cột có giá trị bằng 0, như hiện tại file e gửi J24 đến U24 giá trị bằng 0, e muốn tự động Hide đi à.

Tương tự nếu V7 đến V24, nếu giá trị trả về 0 thì sẽ hide dòng đó đi à.

Cám ơn Anh/Chị.

Bạn chạy code này:

Sub hicol()
Dim i As Long, cll As Range, rng1 As Range, rng2 As Range, wf As WorksheetFunction
Set rng1 = [F6:U6]: Set wf = WorksheetFunction: Set rng2 = Range("V7:V" & [v100000].End(xlUp).Row)
For Each cll In rng1
    If wf.Sum(Range(cll.Offset(1), cll.Offset(Rows.Count - 6))) = 0 Then cll.EntireColumn.Hidden = True
Next
For Each cll In rng2
    If cll = 0 Then cll.EntireRow.Hidden = True
Next
End Sub

 

[satthuvae]

E chạy được rùi à, Cám ơn "excel_lv1.5 rất nhiều à.

Xin làm phiền bạn một chút là khi mình tại hide đi rùi, nhưng muốn quay trở về ban đầu ấn nút Unhide thêm điều kiện gì nữa trong Marco, mong bạn tạo giúp mình.

Cám ơn Bạn.

 

[Ba Tê]

Xin làm phiền bạn một chút là khi mình tại hide đi rùi, nhưng muốn quay trở về ban đầu ấn nút Unhide thêm điều kiện gì nữa trong Marco

Bạn xem file.

 

[satthuvae]

Bạn xem file.

Dạ được rùi à. E cám ơn Anh "Ba Tê" nhiều à.