Xin Maro ẩn cột !

[win-sun]

- Mình đã tìm hiểu nhiều topic về ẩn cột có điều kiện nhưng chưa thấy thỏa đáng, anh chị xem giúp nếu sử dụng maro để ẩn các cột mà tại hàng thứ 11 (total) bằng 0. mình sử dụng cho bảng chấm công để in ra giấy cho tiện, mình không muốn in hết các cột rỗng. cảm ơn mọi người.

 

[Hai Lúa Miền Tây]

- Mình đã tìm hiểu nhiều topic về ẩn cột có điều kiện nhưng chưa thấy thỏa đáng, anh chị xem giúp nếu sử dụng maro để ẩn các cột mà tại hàng thứ 11 (total) bằng 0. mình sử dụng cho bảng chấm công để in ra giấy cho tiện, mình không muốn in hết các cột rỗng. cảm ơn mọi người.

Bạn chạy thử code sau:

Sub Ancot()
Application.ScreenUpdating = False
 Dim Col As Range
  
  For Each Col In Range("a11:ac11")
    If Col <> 0 Then
        Col.EntireColumn.Hidden = False
      Else
        Col.EntireColumn.Hidden = True
    End If
  Next Col
  
Application.ScreenUpdating = True
End Sub