Tôi có sử dụng đoạn code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AR4]) Is Nothing Then
Dim Cls As Range, Rws As Long
Columns("AL:AN").Hidden = False
Rws = [D8].CurrentRegion.Rows.Count
For Each Cls In [AL6].Resize(, 3)
If Month(Cls.Value) <> Target.Value Then
Cls.EntireColumn.Hidden = True
End If
Next Cls
End If
End Sub
Với mục tiêu là ẩn cột theo điều kiện từng tháng . nhưng code chạy không theo ý muốn - Nhưng sửa mãi không được - Kính mong nhận được sự hỗ trợ của quý thầy cô và các bạn (Mọi chi tiết xin được diễn giải trong File đính kèm) - Xin trân trọng cảm ơn.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [AR4]) Is Nothing Then
Dim Cls As Range, Rws As Long
Columns("AL:AN").Hidden = False
Rws = [D8].CurrentRegion.Rows.Count
For Each Cls In [AL6].Resize(, 3)
If Month(Cls.Value) <> Target.Value Then
Cls.EntireColumn.Hidden = True
End If
Next Cls
End If
End Sub
Với mục tiêu là ẩn cột theo điều kiện từng tháng . nhưng code chạy không theo ý muốn - Nhưng sửa mãi không được - Kính mong nhận được sự hỗ trợ của quý thầy cô và các bạn (Mọi chi tiết xin được diễn giải trong File đính kèm) - Xin trân trọng cảm ơn.