VBA Ẩn cột theo điều kiện

[MeThuongNho]

Dear Anh/Chị,
Giúp em cái code VBA ẩn cột giúp em.
1 code chung hoặc 2 code riêng cũng được.
Mục đích : muốn khi chạy code:
1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)
Cám ơn mợi người giúp đỡ.

 

[befaint]

1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.
2. Sẽ hiện ra lại các cột từ C:BM (tất cả các cột)

Còn chữ nào trong đầu chưa viết ra thì mình viết hết ra đi...

 

[MeThuongNho]

Còn chữ nào trong đầu chưa viết ra thì mình viết hết ra đi...

Là sao befaint ,
Mình không hiểu ý bạn ?

 

[giaiphap]

Là sao befaint ,
Mình không hiểu ý bạn ?

Là còn trường hợp nào nửa không hay giúp xong lại phát sinh nửa?

 

[PacificPR]

Em thấy cứ ngồi bấm nút nó cho nó ẩn, hiện cũng vui vui ...

Sub An_hiencot()
    Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:BM4")
For Each Cll In Rng
    If Cll = Empty Then
        If Rng1 Is Nothing Then
            Set Rng1 = Cll
        Else
            Set Rng1 = Union(Rng1, Cll)
        End If
    End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

 

[befaint]

không hiểu ý ?

Nghĩa là tất cả =0 hay thằng nào =0 thì ẩn?

 

[MeThuongNho]

Nghĩa là tất cả =0 hay thằng nào =0 thì ẩn?

=0 thì sẽ ẩn,
Cám ơn befaint,
File ví dụ mình chạy được rồi.

 

[ndu96081631]

Nếu giải quyết bài này mà không dùng vòng lập thì sao?

 

[NguyenNgocThuHien]

Nếu giải quyết bài này mà không dùng vòng lập thì sao?

Dùng cái thuộc tính "ô đặc biệt" để tìm các ô rỗng.

 

[ndu96081631]

Dùng cái thuộc tính "ô đặc biệt" để tìm các ô rỗng.

Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

 

[NguyenNgocThuHien]

Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

Không chơi kiểu dùng ô phụ?

 

[MeThuongNho]

Chính xác là cái này nhưng giờ "nâng cấp độ khó" là: vùng chọn có chứa công thức, tức số 0 mà ta nhìn thấy là giá trị do công thức trả về
Vậy phải mần... răng?

Mình không đưa về 0 mà đưa về 1 cái cụ thể "k" nào cũng được anh ndu96081631, sẽ khỏi vất vả cái code về rỗng or 0.
File của befaint em mà đk như này : OK rồi anh.

1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.

-- 1. Nếu h em làm điều kiện =K thì code sao anh.
--2. Ngược lại nếu em muốn ẩn cột >0 thì code sửa lại như thế nào ah.
Trân trọng!

 

[ndu96081631]

Mình không đưa về 0 mà đưa về 1 cái cụ thể "k" nào cũng được anh ndu96081631, sẽ khỏi vất vả cái code về rỗng or 0.
File của befaint em mà đk như này : OK rồi anh.

1. Sẽ ẩn các cột từ C: BM với đk các cell từ C4:BM4 mà =0 sẽ ẩn.

-- 1. Nếu h em làm điều kiện =K thì code sao anh.
--2. Ngược lại nếu em muốn ẩn cột >0 thì code sửa lại như thế nào ah.
Trân trọng!

Code bạn có rồi, chỉ sửa lại điều kiện trong phát biểu IF thôi mà

 

[Do Nam Trung]

Em thấy cứ ngồi bấm nút nó cho nó ẩn, hiện cũng vui vui ...

Sub An_hiencot()
    Dim Rng As Range, Rng1 As Range
Set Rng = Range("C4:BM4")
For Each Cll In Rng
    If Cll = Empty Then
        If Rng1 Is Nothing Then
            Set Rng1 = Cll
        Else
            Set Rng1 = Union(Rng1, Cll)
        End If
    End If
Next
Rng1.EntireColumn.Hidden = Not Rng1.EntireColumn.Hidden
End Sub

Code chạy Ok ,Trong trường hợp Chen nó vào CommandButton thì phải sửa lại như thế nào,để nút CommandButton hiện nên chữ AN và HIEN....?

 

[PacificPR]

Code chạy Ok ,Trong trường hợp Chen nó vào CommandButton thì phải sửa lại như thế nào,để nút CommandButton hiện nên chữ AN và HIEN....?

Code ở Bài 6 đó bạn

 

[maiban116]

em có 1 file mà không biết cách tạo code ẩn cột có khoảng trắng nhờ các bác hướng dẫn hay tạo hộ em cái code ẩn cột rỗng . em gửi file lên nhờ các bác xem dùm. em xin cảm ơn

 

[MeThuongNho]

em có 1 file mà không biết cách tạo code ẩn cột có khoảng trắng nhờ các bác hướng dẫn hay tạo hộ em cái code ẩn cột rỗng . em gửi file lên nhờ các bác xem dùm. em xin cảm ơn

Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

 

[maiban116]

Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

Cám ơn bạn rất nhiều file bạn gửi đãđáp ứng đúng yêu cầu của mình

 

[maiban1986]

Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

xin hỏi bác chỉ dẫn hộ em làm với các sheet khác thì làm như thế nào ạ

 

[maiban1986]

Sử dụng code bài #.6 được mà bạn.
File mình không ẩn cột A(thấy fill đỏ nên mình để lại), bạn xem file nha.

xin bạn hướng dẫn làm với các sheet khác