Các bác giúp em : chủ đề ẩn cột theo điều kiện, nhưng với các cột đã Merge lại theo nhóm

Chia sẻ bởi:hands

★★★★★

‹ Hỗ trợ công thức tìm vị trí,... Nhờ sửa code Worksheet_SelectionChange ›

Quảng cáo

Em chào các bác,
Em có file theo đính kèm
Tại ô B2, em muốn tạo 1 droplist theo level: Level 3, level 4, …
Mỗi khi chọn level tại B2, ví dụ level 3, tự động Level 3 từ F2 tới AC2 được giữ lại, còn tất cả các cột khác bị ẩn đi.
Sau khi xoá ô B2 ( B2 = "") thì các tất cả các cột đc unhide

Em nhờ các bác giúp ạ

1- Dropdown list tại B2: Bạn tự làm bằng chức năng DataValidation nhé
2- Hide cột
Dùng cái worksheet_Change event có sẵn, thêm phần hide/unhide theo điều kiện thay đổi ô B2

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range, lc&
Cells.EntireColumn.AutoFit
Columns("D:D").ColumnWidth = 63.43
If Target.Address(0, 0) = "B2" Then
lc = Cells(4, 1000).End(xlToLeft).Column
Range("F3", Cells(3, lc)).EntireColumn.Hidden = True
For Each cell In Range("F3", Cells(3, lc))
If cell.MergeCells = True Then
With cell.MergeArea.Cells(1, 1)
If .Value = Target Then
.MergeArea.EntireColumn.Hidden = False
Exit Sub
End If
End With
End If
Next
Range("F3", Cells(3, lc)).EntireColumn.Hidden = False
End If
End Sub

www.giaiphapexcel.com/diendan/threads/c%C3%A1c-b%C3%A1c-gi%C3%BAp-em-ch%E1%BB%A7-%C4%91%E1%BB%81-%E1%BA%A9n-c%E1%BB%99t-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n-nh%C6%B0ng-v%E1%BB%9Bi-c%C3%A1c-c%E1%BB%99t-%C4%91%C3%A3-merge-l%E1%BA%A1i-theo-nh%C3%B3m.165300/