Xin Code tự động ẩn cột theo điều kiện chọn (Không dùng biện pháp đánh dấu mầu) (1 người xem)

[le_vis]

Nhờ các bạn xem File đính kèm và cho xin code tự động ẩn cột theo điều kiện chọn (Không dùng cách đánh dầu bằng mầu) Xin chân thành Cảm ơn các bạn

Dung lượng bị hết làm cách nào để tải được File đính kèm các bạn ơi ?

 

[HungQuoc49]

Nhờ các bạn xem File đính kèm và cho xin code tự động ẩn cột theo điều kiện chọn (Không dùng cách đánh dầu bằng mầu) Xin chân thành Cảm ơn các bạn

Dung lượng bị hết làm cách nào để tải được File đính kèm các bạn ơi ?

Up file lên 1 trang nào đó, dán đường dẫn lên

 

[le_vis]

Gửi HungQuoc49

Up file lên 1 trang nào đó, dán đường dẫn lên

Mình không biết cách up qua trang nào đó.
nhờ bạn được không ?

 

[HungQuoc49]

Mình không biết cách up qua trang nào đó.
nhờ bạn được không ?

le_vis Hết dung lượng nên nhờ gửi file đính kèm

Nhờ các thành viên xem file và hỗ trợ giúp.

 

[HungQuoc49]

Chạy thử code này
Chuột phải vào sheet tab T_quay, view code. Dán code dưới đây vào

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r
r = UsedRange.Rows.Count
If Target.Address = "$AH$4" Then
If Target.Value = "kso3" Then Range("F:AC").Columns.Hidden = False

If Target.Value = "kso2" Then
Range("F:AC").Columns.Hidden = False
Range("V8", "AC" & r).ClearContents
Range("V:AC").Columns.Hidden = True
End If

If Target.Value = "kso1" Then
Range("F:AC").Columns.Hidden = False
Range("N8", "AC" & r).ClearContents
Range("N:AC").Columns.Hidden = True
End If

End If
End Sub

 

[le_vis]

Cảm ơn bạn QuocHung49 nhiều - Code chạy tốt, Xin cảm ơn