Cách ẩn hiện rows có ô trống (gấp) (1 người xem)

[longdpph00858]

Tình hình là em có 1 file muốn dùng VBA ẩn hàng từ số 16 đến 22 (thuộc sheet DOANH SO) nếu Range("B16:B22") trống. nhưng nếu có dữ liệu thì tự động hiện hàng đó lên. và không có thì ẩn nó đi, em thuộc loại chưa biết gì về VBA và chỉ đang lần mò học thôi. Mong các sư phụ giúp cho em cái. nói thêm là em chỉ làm nó ẩn đi được mà ko tự hiện lên đc.hix
Xin vui lòng xem file ví dụ của em

 

[leonguyenz]

Tình hình là em có 1 file muốn dùng VBA ẩn hàng từ số 16 đến 22 (thuộc sheet DOANH SO) nếu Range("B16:B22") trống. nhưng nếu có dữ liệu thì tự động hiện hàng đó lên. và không có thì ẩn nó đi, em thuộc loại chưa biết gì về VBA và chỉ đang lần mò học thôi. Mong các sư phụ giúp cho em cái. nói thêm là em chỉ làm nó ẩn đi được mà ko tự hiện lên đc.hix
Xin vui lòng xem file ví dụ của em

Tạo 1 ComandButton, sửa Name thành CmB và Caption là Show hoặc Hide, chèn đoạn code này vào:
[gpecode=vb]
Private Sub CmB_Click()
On Error Resume Next
Sheet4.Range("B16:B22").SpecialCells(4).EntireRow.Hidden = _
(CmB.Caption = "Hide")
CmB.Caption = IIf(CmB.Caption = "Show", "Hide", "Show")
End Sub
[/gpecode]

 

[longdpph00858]

Tạo 1 ComandButton, sửa Name thành CmB và Caption là Show hoặc Hide, chèn đoạn code này vào:
[gpecode=vb]
Private Sub CmB_Click()
On Error Resume Next
Sheet4.Range("B16:B22").SpecialCells(4).EntireRow.Hidden = _
(CmB.Caption = "Hide")
CmB.Caption = IIf(CmB.Caption = "Show", "Hide", "Show")
End Sub
[/gpecode]

Cảm ơn bác nhiều nhưng vẫn chưa được bác à, em muốn nó tự động ẩn và hiện khi có dữ liệu mà không phải nhấn nút gì hết, nhưng ở đây có dữ liệu nó cũng không hiện lên được.

 

[leonguyenz]

Cảm ơn bác nhiều nhưng vẫn chưa được bác à, em muốn nó tự động ẩn và hiện khi có dữ liệu mà không phải nhấn nút gì hết, nhưng ở đây có dữ liệu nó cũng không hiện lên được.

Khi bạn chưa nhập gì hết thì B16:B22 rỗng, nếu tự động ẩn hết dòng 16:22 thì bạn nhập chỗ nào?

 

[nginh]

Tình hình là em có 1 file muốn dùng VBA ẩn hàng từ số 16 đến 22 (thuộc sheet DOANH SO) nếu Range("B16:B22") trống. nhưng nếu có dữ liệu thì tự động hiện hàng đó lên. và không có thì ẩn nó đi, em thuộc loại chưa biết gì về VBA và chỉ đang lần mò học thôi. Mong các sư phụ giúp cho em cái. nói thêm là em chỉ làm nó ẩn đi được mà ko tự hiện lên đc.hix
Xin vui lòng xem file ví dụ của em

Bạn xem file đính kèm

 

[chuot0106]

Khi bạn chưa nhập gì hết thì B16:B22 rỗng, nếu tự động ẩn hết dòng 16:22 thì bạn nhập chỗ nào?

Người ta nhập bằng Form mà anh!

 

[longdpph00858]

Bạn xem file đính kèm

Rất cảm ơn bác @nginh và bác@leonguyenz rất đúng ý em.!