VBA Ẩn cột theo điều kiện

Dear Anh/Chị,
Giúp em cái code VBA ẩn cột giúp em.
1 code chung hoặc 2 code riêng cũng được.
Mục đích : muốn khi chạy code:
1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)
Cám ơn mợi người giúp đỡ.

Em thấy cứ ngồi bấm nút nó cho nó ẩn, hiện cũng vui vui … :D:D:D
Sub An_hiencot()
Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:BM4")
For Each Cll In Rng
If Cll = Empty Then
If Rng1 Is Nothing Then
Set Rng1 = Cll
Else
Set Rng1 = Union(Rng1, Cll)
End If
End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

www.giaiphapexcel.com/diendan/threads/vba-%E1%BA%A8n-c%E1%BB%99t-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n.131604/

Khóa học SprinGO phù hợp

Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM

Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...

Xem khóa học