Tự động ẩn hiện hàng

[hoanhtuanx3c]

Kính gửi các anh chị em trên diễn đàn. Em có gửi file nhờ mọi người giúp đỡ. Em có bảng theo dõi đổ bê tông như file gửi. Số dòng trong cột "Stt" sẽ thay đổi theo khối lượng bê tông.Giờ em muốn số hàng hiển thị theo khối lượng bê tông cho trước dòng nào không có thì ẩn đi được không a. Xin cảm ơn mọi người đã quan tâm.

 

[viehoai]

Kính gửi các anh chị em trên diễn đàn. Em có gửi file nhờ mọi người giúp đỡ. Em có bảng theo dõi đổ bê tông như file gửi. Số dòng trong cột "Stt" sẽ thay đổi theo khối lượng bê tông.Giờ em muốn số hàng hiển thị theo khối lượng bê tông cho trước dòng nào không có thì ẩn đi được không a. Xin cảm ơn mọi người đã quan tâm.

Ẩn hàng có điều kiện thì en rằng dùng VBA thôi. Nếu vậy bạn mở tại box lập trình bạn à

 

[hoanhtuanx3c]

Cảm ơn bạn đã quan tâm. Mình đặt cột phụ rồi filter thủ công cũng được nhưng như thế hơi mất công vì " lỡ quên". Mình thấy có người làm được nên hỏi anh em trên diễn đàn ai biết thì học hỏi thêm. Nhưng dù sao cũng cảm ơn bạn nhé.

 

[Kiều Mạnh]

kính gửi các anh chị em trên diễn đàn. Em có gửi file nhờ mọi người giúp đỡ. Em có bảng theo dõi đổ bê tông như file gửi. Số dòng trong cột "stt" sẽ thay đổi theo khối lượng bê tông.giờ em muốn số hàng hiển thị theo khối lượng bê tông cho trước dòng nào không có thì ẩn đi được không a. Xin cảm ơn mọi người đã quan tâm.

bạn thử coi xem đúng ý ko nha có gì hồi âm lại ta làm tiêp

 

[hoanhtuanx3c]

Gần đúng bác ơi! Nhưng em muốn mình không phải nhấn nút ẩn hiện nữa mà nó tự động ẩn hiện theo khối lượng bê tông luôn thì làm được không bác???

 

[Kiều Mạnh]

Gần đúng bác ơi! Nhưng em muốn mình không phải nhấn nút ẩn hiện nữa mà nó tự động ẩn hiện theo khối lượng bê tông luôn thì làm được không bác???

bạn nói chi tiết thêm một tí nữa mình chưa hiểu lắm nếu được mình làm cho

 

[hoanhtuanx3c]

Cảm ơn bạn đã nhiệt tình quan tâm. Ý mình là khi " Kl bê tông " thay đổi thì dòng Stt sẽ thay đổi theo. ở đây mình đặt điều kiện cho dòng này rồi nhưng mình tạo một bảng lớn hơn số dòng trong cột Stt. Vì thế mình muốn ẩn(hoặc bung ra ) các dòng mà Stt khác ký tự trống.

 

[Quang_Hải]

bạn nói chi tiết thêm một tí nữa mình chưa hiểu lắm nếu được mình làm cho

Tức là người ta cần sự kiện Change tại ô N36 đó. Không xài nút bấm nữa, thay đổi chỗ này code chạy luôn.

 

[Quang_Hải]

Cảm ơn bạn đã nhiệt tình quan tâm. Ý mình là khi " Kl bê tông " thay đổi thì dòng Stt sẽ thay đổi theo. ở đây mình đặt điều kiện cho dòng này rồi nhưng mình tạo một bảng lớn hơn số dòng trong cột Stt. Vì thế mình muốn ẩn(hoặc bung ra ) các dòng mà Stt khác ký tự trống.

Không thấy KieuManh code tiếp nên hơi ngứa tay
Bạn thay code này vào chỗ code cũ thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$N$36" Then
   Range("$I$35:$I$85").AutoFilter 1, "<>"
End If
End Sub

 

[hoanhtuanx3c]

Hơi phiền bạn một xí nhưng mình gà vấn đề code quá. Bạn hướng dẫn cách sử dụng luôn được không( cách đưa và chạy code như thế nào)? Xin cảm ơn

 

[Quang_Hải]

Hơi phiền bạn một xí nhưng mình gà vấn đề code quá. Bạn hướng dẫn cách sử dụng luôn được không( cách đưa và chạy code như thế nào)? Xin cảm ơn

Bạn mở cái file ở bài 4 lên. Bấm Alt F11 thì sẽ thấy code. Thay code mới vào. Mỗi lần bạn thay đổi gì đó tại N36 thì code tự chạy

 

[hoanhtuanx3c]

Mỗi lần tắt rồi mở file lên lại phải nạp code hả bác. Nếu em không nạp lại thì nó không hiểu???

 

[Kiều Mạnh]

Mỗi lần tắt rồi mở file lên lại phải nạp code hả bác. Nếu em không nạp lại thì nó không hiểu???

thì bạn copy code bài 9 vào khi mở file lên gõ vào cells N36 một cái là nó ra thôi mà không lẽ khó khăn vậy sao
Mình mượn code của anh hải chế thêm một tí nữa cho bạn nè coi xem được chưa nếu chưa được chỗ nào thì mô tả chi tiết ta làm tiếp nha... mình cũng đang luyện code mà vô tư đi...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$N$36" Then
        If Target <> "" Then
           Range("$I$35:$I$85").AutoFilter 1, "<>"
           Target.Select
        Else
           Range("$I$35:$I$85").AutoFilter
        End If
    End If
End Sub