Nhờ mọi người giúp đỡ về VBA ẩn dòng

[cuongsinh1]

Mình gửi file đính kèm, nội dung cần giúp đỡ mình ghi trong file. Mong mọi người bớt chút thời gian giúp mình. Mình xin trân thành cảm ơn

 

[leonguyenz]

Mình gửi file đính kèm, nội dung cần giúp đỡ mình ghi trong file. Mong mọi người bớt chút thời gian giúp mình. Mình xin trân thành cảm ơn

Tham khảo code này (Alt+F11 để xem)
[gpecode=vb]
Private Sub Worksheet_Activate()
Range("A" & Range("G1") + 1, Range("A" & Range("G1")).End(xlDown)).EntireRow.Hidden = True
End Sub
[/gpecode]

 

[cuongsinh1]

Tham khảo code này (Alt+F11 để xem)
[gpecode=vb]
Private Sub Worksheet_Activate()
Range("A" & Range("G1") + 1, Range("A" & Range("G1")).End(xlDown)).EntireRow.Hidden = True
End Sub
[/gpecode]

Cảm ơn bạn đã giúp đỡ, nhưng nó không được như ý muốn lắm, bạn còn cách nào khác không giúp mình với

 

[leonguyenz]

Cảm ơn bạn đã giúp đỡ, nhưng nó không được như ý muốn lắm, bạn còn cách nào khác không giúp mình với

Bạn nói rõ một chút về ý của bạn xem nào. Như ý của bạn là thao tác như thế nào để ẩn dòng?
Code trên là dùng sự kiện Worksheet_Activate (khi chuyển đến sheet này thì code mới hoạt động).

 

[nghiaphuc]

Cảm ơn bạn đã giúp đỡ, nhưng nó không được như ý muốn lắm, bạn còn cách nào khác không giúp mình với

Cách này thì sao nhỉ:

Private Sub Worksheet_Activate()
    Cells.EntireRow.Hidden = False
    Range([G1] + 1 & ":" & Cells.Rows.Count).EntireRow.Hidden = True
End Sub

 

[cuongsinh1]

Bạn nói rõ một chút về ý của bạn xem nào. Như ý của bạn là thao tác như thế nào để ẩn dòng?
Code trên là dùng sự kiện Worksheet_Activate (khi chuyển đến sheet này thì code mới hoạt động).

Tức là mình muốn khi G1 thay đổi bằng 1 số bất kỳ thì bất cứ lúc nào dòng cũng tự động ẩn đi, code của bạn chỉ ẩn 1 lần đầu tiên, thay đổi = 1 số khác nó không chạy. Cảm ơn bạn!

Cách này thì sao nhỉ:

Private Sub Worksheet_Activate()
    Cells.EntireRow.Hidden = False
    Range([G1] + 1 & ":" & Cells.Rows.Count).EntireRow.Hidden = True
End Sub

Cảm ơn bạn nhiều nhé, đây đúng là cách mình đang cần.

 

[nghiaphuc]

Tức là mình muốn khi G1 thay đổi bằng 1 số bất kỳ thì bất cứ lúc nào dòng cũng tự động ẩn đi, code của bạn chỉ ẩn 1 lần đầu tiên, thay đổi = 1 số khác nó không chạy. Cảm ơn bạn!

Nói chính xác thì code của bạn leonguyenz không phải là chỉ chạy một lần đầu tiên mà chỉ chạy mỗi khi sheet được chọn vì nó gắn với sự kiện Worksheet_Activate (code của tôi cũng vậy thôi). Vấn đề chỉ là trong code của bạn leonguyenz không có câu lệnh Cells.EntireRow.Hidden = False nên các dòng đã ẩn trước đó không được khôi phục trạng thái nếu nó nằm trong vùng không cần ẩn thôi.