HồngThái2503
Thành viên mới

- Tham gia
- 20/7/20
- Bài viết
- 2
- Được thích
- 0
Em có đoạn code như sau m.n có thể ghép chung vào làm 1 đc k ạ. Sub hidden()
Sheet3.Range("a:aw").EntireColumn.hidden = False
For i = 3 To 80
If Sheet3.Cells(2, i).Value < 1 Then Sheet3.Columns(i).hidden = True
Next
End Sub
Sub unhidden()
Sheet3.Range("c:cw").EntireColumn.hidden = False
End Sub
.
Sheet3.Range("a:aw").EntireColumn.hidden = False
For i = 3 To 80
If Sheet3.Cells(2, i).Value < 1 Then Sheet3.Columns(i).hidden = True
Next
End Sub
Sub unhidden()
Sheet3.Range("c:cw").EntireColumn.hidden = False
End Sub
.