Ânr cột theo điều kiên (1 người xem)

[Excel365]

Nhờ các anh / chị giúp em làm code ẩn , hiện cột theo điều kiện.
Trân trọng cảm ơn

 

[nghiaphuc]

Nhờ các anh / chị giúp em làm code ẩn , hiện cột theo điều kiện.
Trân trọng cảm ơn

Bạn sử dụng code sau:
[GPECODE=vb]Sub HideColumns()
Dim Cll As Range
With ActiveSheet
For Each Cll In .Range(.[K6], .[IV6].End(xlToLeft))
Cll.EntireColumn.Hidden = (Cll = 0)
Next
End With
End Sub[/GPECODE]
Sau đó đặt phím tắt cho Macro này. Khi cần áp dụng cho sheet nào thì bạn đứng ở sheet đó và nhấn phím tắt gọi code. Hoặc bạn cũng có thể tạo 1 nút lệnh, Assign macro cho nó là code HideColumns, sau đó copy và dán nút lệnh này qua các sheet cần áp dụng code.

 

[Excel365]

Bạn sử dụng code sau:
[GPECODE=vb]Sub HideColumns()
Dim Cll As Range
With ActiveSheet
For Each Cll In .Range(.[K6], .[IV6].End(xlToLeft))
Cll.EntireColumn.Hidden = (Cll = 0)
Next
End With
End Sub[/GPECODE]
Sau đó đặt phím tắt cho Macro này. Khi cần áp dụng cho sheet nào thì bạn đứng ở sheet đó và nhấn phím tắt gọi code. Hoặc bạn cũng có thể tạo 1 nút lệnh, Assign macro cho nó là code HideColumns, sau đó copy và dán nút lệnh này qua các sheet cần áp dụng code.

Cám ơn anh rất nhiều.
Vậy nếu mình muốn nó hiện ra thì sao anh.

 

[nghiaphuc]

Cám ơn anh rất nhiều.
Vậy nếu mình muốn nó hiện ra thì sao anh.

Ý bạn là muốn hiện tất cả các cột từ K trở đi? Nếu đúng vậy thì chỉ cần câu lệnh này thôi:

ActiveSheet.[K:IV].EntireColumn.Hidden = False

 

[Excel365]

Ý bạn là muốn hiện tất cả các cột từ K trở đi? Nếu đúng vậy thì chỉ cần câu lệnh này thôi:

ActiveSheet.[K:IV].EntireColumn.Hidden = False

Em chỉ muốn ẩn / hiện từ Cột K cho đến cột AB thì mình điều chỉnh cột lại làm sao anh?
ActiveSheet.[K:IV].EntireColumn.Hidden = False
Chỗ em tô màu đỏ có nghĩa là gì vậy anh?
Với lại, mình có thể đưa vào 1 Button mà khi bấm thì nó ẩn, hoặc hiện lên ko?

 

[nghiaphuc]

Em chỉ muốn ẩn / hiện từ Cột K cho đến cột AB thì mình điều chỉnh cột lại làm sao anh?
ActiveSheet.[K:IV].EntireColumn.Hidden = False
Chỗ em tô màu đỏ có nghĩa là gì vậy anh?
Với lại, mình có thể đưa vào 1 Button mà khi bấm thì nó ẩn, hoặc hiện lên ko?

Chỗ màu đỏ nghĩa là từ cột K đến cột IV của sheet hiện hành. Nếu bạn chỉ muốn hiện các cột từ K đến AB thì sửa IV thành AB là được.

 

[Excel365]

Chỗ màu đỏ nghĩa là từ cột K đến cột IV của sheet hiện hành. Nếu bạn chỉ muốn hiện các cột từ K đến AB thì sửa IV thành AB là được.

Em cũng có thử điều chỉnh lại thành cột AB nhwg không được anh ơi. Nếu mình muốn lồng vào 1 Button vùa là ẩn, vừa là hiện cột luôn thì sao anh?

 

[nghiaphuc]

Em cũng có thử điều chỉnh lại thành cột AB nhwg không được anh ơi. Nếu mình muốn lồng vào 1 Button vùa là ẩn, vừa là hiện cột luôn thì sao anh?

Tôi sử dụng 1 Checkbox và sử dụng code sau:
[GPECODE=vb]Private Sub CheckBox1_Click()
Dim Cll As Range
Application.ScreenUpdating = False
With ActiveSheet
If CheckBox1 Then
For Each Cll In .[K6:AB6]
Cll.EntireColumn.Hidden = (Cll = 0)
Next
Else
.[K:AB].EntireColumn.Hidden = False
End If
End With
Application.ScreenUpdating = True
End Sub[/GPECODE]
Bạn tham khảo trên sheet PV nhé.