Giúp em cách hide cột bằng VBA

[tuyenbui]

Các anh chị giúp em với, trong ô D1 khi em nhập tài khoản 111 (sổ quỹ tiền mặt) sau dó nhấn vào nút commanbutom thì bảng tính bình thường, khi em chọn tài khoản 112 (sổ quỹ tiền gửi ngân hàng) rồi nhấn nút commanbutom thì bảng tính tự hide cột C, anh chị nào chỉ em cách thực hiện bằng BVA với, em biết BVA làm được nhưng kiến thức về BVA thì em không có ( ai chỉ em code thì em ap dụng dc thôi), tương tự trong bảng tính khác của em tại dòng thứ 6, khi em lick vào commanbutton thì dựa vào dòng thứ 6, từ cột A đến cột M (A6:M6) nếu ô nào trống nó sẽ tự hide cột đó luôn.
Các anh chị pro chỉ dùm em với, em cảm ơn nhìu

http://www.giaiphapexcel.com/forum/showthread.php?do=post_thanks_add&p=143864

 

[hoa35ktxd]

Bạn tham khảo cái này xem nhé

Sub hide()
    Range("A6:M6").Select
    Dim Ran As Range
    For Each Ran In Selection
        If Ran.Value = "" Then
            Columns(Ran.Column).EntireColumn.Hidden = True
        End If
    Next
End Sub

 

[tuyenbui]

Anh ơi không được rồi, nó hide nhưng khi em chọn tài khoản khác ( các ô trống lúc nãy giờ đã có số liệu) thì khi nhấn vào commanbutton lẽ ra nó phại hiện ra lại nhưng nó lại không hiện ra lun mà vãn hide những cột cũ, giúp em với...

 

[hoa35ktxd]

Trời, code kia chỉ mang tính tổng quát, làm sao mà tôi biết được bạn đang làm gì trên file của bạn để mà code cho tất cả các thao tác đó.
Mấu chốt ở đây là bạn muốn ẩn cột, trường hợp muốn nó hiển thị trở lại thì phải sửa Code đi chứ, khi chọn tài khoản khác bạn cho tất cả các cột hiển thị lên:
Columns(SoThuTuCuaCot).EntireColumn.Hidden = false

 

[tuyenbui]

cảm ơn bạn rất nhiều, mình đã làm được rồi...