Ẩn dòng tự động trong hóa đơn khi thành tiền bằng không (1 người xem)

[yugemosdnah]

Xin chào Forum! Mong mọi người giúp tôi ẩn các dòng trong một danh sách như file đính kèm nhé. Xin cảm ơn mọi người!

 

[ChanhTQ@]

Chỉ có thể là 1 macro

& nó đây bạn, xin mời:

Option Explicit
Sub gpeAnDongGiaTri0()
 Dim Cls As Range, Rng As Range
 
 Set Rng = Range([G6], [G6].End(xlDown))
 Rng.EntireRow.Hidden = False
 For Each Cls In Rng
    If Cls.Value = 0 Then Cls.EntireRow.Hidden = True
 Next Cls
 Randomize
 [c5].Resize(, 5).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub

 

[ninhhai]

Em dán thử marco này vào sự kiện worksheet change trong file của em, nhưng thấy nó chạy châm quá.

 

[yugemosdnah]

Cảm ơn ChanhTQ@ nhưng khi bảng dữ liệu ở sheet chitiet thay đổi thì sheet hoa don không ẩn hiện tương ứng theo.hixx. Bạn giúp mình lần nữa nhé. Nếu như số thứ tự tự động thay đổi cập nhật theo danh sách mới lun thì tuyệt vời nhé ban.

 

[huhumalu]

ChanhTQ@

& nó đây bạn, xin mời:

Option Explicit
Sub gpeAnDongGiaTri0()
 Dim Cls As Range, Rng As Range
 
 Set Rng = Range([G6], [G6].End(xlDown))
 Rng.EntireRow.Hidden = False
 For Each Cls In Rng
    If Cls.Value = 0 Then Cls.EntireRow.Hidden = True
 Next Cls
 Randomize
 [c5].Resize(, 5).Interior.ColorIndex = 34 + 9 * Rnd() \ 1
End Sub

Cho mình hỏi ngoài lề xíu. Nếu giữa vùng dữ liệu có 1 dòng trắng thì xử lí sao hả bạn. Nó chỉ chạy phía trước dòng trắng thôi. Mong bạn giúp đỡ.

 

[ChanhTQ@]

Nhưng khi bảng dữ liệu ở sheet chitiet thay đổi thì sheet hoa don không ẩn hiện tương ứng theo.hixx.
Bạn giúp mình lần nữa nhé. Nếu như số thứ tự tự động thay đổi cập nhật theo danh sách mới lun thì tuyệt vời nhé ban.

Chắc có lẻ bạn cần 1 macro sự kiện sau đây tại trang 'Hoa Don'

Option Explicit
Private Sub Worksheet_Activate()
 gpeAnDongGiaTri0
End Sub

[thongBao]Cho mình hỏi ngoài lề xíu. Nếu giữa vùng dữ liệu có 1 dòng trắng thì xử lí sao hả bạn. Nó chỉ chạy phía trước dòng trắng thôi. Mong bạn giúp đỡ. [/thongbao]

Lúc đó, thay vì

Set Rng = Range([G6], [G6].End(xlDown))

Bạn sửa lại là:

Set Rng = Range([G6],[G65500].End(xlUp))

 

[thuanviet]

bạn nào việc dùm mình code tự ẩn khi tìm trong bốn cột đều bằng 0 còn cột nào có số thì không cho ẩn. cảm ơn các bạn

 

[yugemosdnah]

Với hai code như trên thì mình dán như thế nào vậy bạn, mình đã copy hai code trên và dán chung vào nhưng lại cứ báo lỗi gì đấy. Mình không rành về VB. Bạn giúp cụ thể tí nhé. Mọt lần nữa thank to ChanhTQ@. ^^

 

[SA_DQ]

Macro sự kiện tại trang tính 'HoaDon' đó bạn

(1) Bạn xem trong file E2003 đính kèm tạm vậy!

[thongbao](2)
Bạn nào việc dùm mình code tự ẩn khi tìm trong bốn cột đều bằng 0 còn cột nào có số thì không cho ẩn. cảm ơn các bạn [/thongbao]

Bạn xem trong file đính kèm thứ hai dưới đây
(Vì bạn không giả lập file, nên ráng coi file học sinh không có điểm bị/được ẩn dòng đi vậy)