tự động ẩn dòng khi 1 ô chứa giá trị 0 (2 người xem)

[mylinh22031]

Anh chị giúp em ẩn các dòng khi ô ở cột L =0 với ạ.
Vì em không muốn sum tổng những dòng mà cột L=0
Em cảm ơn ạ

 

[phulien1902]

Anh chị giúp em ẩn các dòng khi ô ở cột L =0 với ạ.
Vì em không muốn sum tổng những dòng mà cột L=0
Em cảm ơn ạ

1 cách:

Sub Hide_Rows()
   Range("A7:Q7").AutoFilter 12, "<>0"
End Sub
Sub Unhide_Rows()
   Range("A7:Q7").AutoFilter 12
End Sub

 

[VetMini]

Không muốn sum thì dùng sumif/sumifs chứ ẩn dòng chưa hẳn đã đạt mục đích.
(ẩn dòng thì phải dùng subtotal hoặc aggregate)

 

[mylinh22031]

dạ em ẩn dòng để thu nhỏ bảng dữ liệu lại
em dùng subtotal vì có thể sau khi ẩn dòng e dò filer để kiểm tra số liệu

Bài đã được tự động gộp: 25/9/19

dạ em cảm ơn anh,
Nhưng không auto hả a, e phải chạy marco thì nó ẩn dòng được, không chạy thì không ẩn
Khi em thay đổi giá trị tại H3 thì giá trị tại cột L sẽ thay đổi nhưng lại không tự động ẩn dòng mặc dù đã gắn code

 

[LamNA]

dạ em ẩn dòng để thu nhỏ bảng dữ liệu lại
em dùng subtotal vì có thể sau khi ẩn dòng e dò filer để kiểm tra số liệu

Bài đã được tự động gộp: 25/9/19

dạ em cảm ơn anh,
Nhưng không auto hả a, e phải chạy marco thì nó ẩn dòng được, không chạy thì không ẩn
Khi em thay đổi giá trị tại H3 thì giá trị tại cột L sẽ thay đổi nhưng lại không tự động ẩn dòng mặc dù đã gắn code

Thử đoạn này đưa code vào sheet CPTT (3)

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Rng As Range
  Dim Dongcuoi As Long
  Application.ScreenUpdating = False
  With Sheet1
    Dongcuoi = .Range("L" & .Rows.Count).End(xlUp).Row
    For Each Rng In Range("L8:L" & Dongcuoi)
      If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True
    Next Rng
      End With
  Application.ScreenUpdating = True
End Sub

 

[phulien1902]

dạ em ẩn dòng để thu nhỏ bảng dữ liệu lại
em dùng subtotal vì có thể sau khi ẩn dòng e dò filer để kiểm tra số liệu

Bài đã được tự động gộp: 25/9/19

dạ em cảm ơn anh,
Nhưng không auto hả a, e phải chạy marco thì nó ẩn dòng được, không chạy thì không ẩn
Khi em thay đổi giá trị tại H3 thì giá trị tại cột L sẽ thay đổi nhưng lại không tự động ẩn dòng mặc dù đã gắn code

Bạn muốn khi tác động vào Cell H3 dòng tự động ẩn, bạn dùng sự kiện cho Sheets("CPTT(3)"):

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [H3]) Is Nothing Then
        Hide_Rows
    End If
End Sub

 

[mylinh22031]

Sao em thử các code rồi mà vẫn không được ạ
Các bác giúp em với

 

[mylinh22031]

không bác nào giúp em ạ
huhu

 

[phulien1902]

Sao em thử các code rồi mà vẫn không được ạ
Các bác giúp em với

Bạn dán Code nhầm chỗ rồi. Sự kiện phải dán vào Code Sheet bạn nhé!

 

[mylinh22031]

Bạn dán Code nhầm chỗ rồi. Sự kiện phải dán vào Code Sheet bạn nhé!

mình làm được rồi
cảm ơn bạn nhé
hihi