Giúp sửa code ẩn dòng trống tự động

[AnhThu-1976]

Em chào các anh chị
Em có đoạn code sau

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$E$1" Then
        Range("D5:D31").AutoFilter 1, "<>", , , False
       
    End If
    Application.EnableEvents = True
End Sub

Em muốn, từ Ô D5 đến D31 mà không có số liệu thì ẩn dòng
Nhưng code trên ẩn không đúng yêu cầu, em nhờ các anh chị xem qua lỗi ở đâu
Em cảm ơn

 

[BuiQuangThuan]

Nhưng code trên ẩn không đúng yêu cầu, em nhờ các anh chị xem qua lỗi ở đâu
Em cảm ơn

Ẩn đúng theo iêu cầu của bạn là giữ lại dòng tổng cộng à

 

[AnhThu-1976]

Ẩn đúng theo iêu cầu của bạn là giữ lại dòng tổng cộng à

Từ A5 đến F31, nếu không có số liệu thì ẩn
dòng tổng cộng thì không ẩn
Cảm ơn bạn

 

[BuiQuangThuan]

Từ A5 đến F31, nếu không có số liệu thì ẩn
dòng tổng cộng thì không ẩn
Cảm ơn bạn

Xin lỗi. Có lẽ nên sửa

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$E$1" Then
        Range("B4:B31").AutoFilter 1, "<>", , , False
     
    End If
    Application.EnableEvents = True
End Sub

 

[AnhThu-1976]

Xin lỗi. Có lẽ nên sửa

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$E$1" Then
        Range("B4:B31").AutoFilter 1, "<>", , , False
    
    End If
    Application.EnableEvents = True
End Sub

Nhờ các anh/chị xem lại giúp code
Trong file này, Em muốn Cột thành tiền mà bằng trống hay không thì ẩn luôn dòng, em áp dụng code trên mà chưa được
cụ thể: chỗ giam gia thì = 0 hay trống thì cũng ẩn dòng giảm giá, nhưng code trong bài của em thì không ẩn dòng giam gia

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$F$1" Then
        Range("F4:F31").AutoFilter 1, "<>", , , False
    End If
    Application.EnableEvents = True
End Sub

Em nhờ anh chị giúp chổ bị sai. Em cảm ơn!

 

[johnnylinhanh]

Bác sửa lại chỗ màu đỏ là được nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$F$1" Then
        Range("F4:F31").AutoFilter 1, ">0", , , True
    End If
    Application.EnableEvents = True
End Sub

 

[BuiQuangThuan]

Em nhờ anh chị giúp chổ bị sai. Em cảm ơn!

Mình thấy code có bị sao đâu nhỉ

 

[johnnylinhanh]

Mình thấy code có bị sao đâu nhỉ

Mình nghĩ là bác ấy gõ số 0 vào cột thành tiền của dòng giảm giá và muốn dòng đó ẩn luôn ấy

 

[Quang_Hải]

Rồi làm sao xả filter ra?

 

[johnnylinhanh]

Rồi làm sao xả filter ra?

em có sửa False => True rồi á bác

 

[AnhThu-1976]

Bác sửa lại chỗ màu đỏ là được nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$F$1" Then
        Range("F4:F31").AutoFilter 1, ">0", , , True
    End If
    Application.EnableEvents = True
End Sub

Các Anh, chị cho hỏi, trong trường hợp nếu muốn ẩn dòng khi
cột F bằng 0 hoặc trống thì sửa code như thế nào ạ
Em cảm ơn!

 

[johnnylinhanh]

Các Anh, chị cho hỏi, trong trường hợp nếu muốn ẩn dòng khi
cột F bằng 0 hoặc trống thì sửa code như thế nào ạ
Em cảm ơn!

bác copy cái code đó vào là xong rồi mà vì code đã bao gồm trường hợp 0 và trống rồi á
Tải file nếu bác vẫn còn loay hoay với lý do gì đó ...

 

[AnhThu-1976]

bác copy cái code đó vào là xong rồi mà vì code đã bao gồm trường hợp 0 và trống rồi á

Nếu tiền giảm giá mà ghi âm thì nó ẩn luôn dòng giảm giá anh ơi!

 

[johnnylinhanh]

Bác sửa đoạn này nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$F$1" Then
        Range("F4:F31").AutoFilter 1, ">0", xlOr, "<0", True
    End If
    Application.EnableEvents = True
End Sub

 

[bebo021999]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$1" Then Exit Sub
Range("F4:F32").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

 

[Gà Công Nghệ]

Xin lỗi. Có lẽ nên sửa

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    If Target.Address = "$E$1" Then
        Range("B4:B31").AutoFilter 1, "<>", , , False
    
    End If
    Application.EnableEvents = True
End Sub

Hay quá, cho hỏi cái autofilter 1 có nghĩa là gì vậy bạn.

 

[batman1]

Hay quá, cho hỏi cái autofilter 1 có nghĩa là gì vậy bạn.

Học kiểu thụ động, hỏi từng cái tủn mủn như thế thì cả đời chả học được bao nhiêu.

Kỹ năng cực kỳ quan trọng là kỹ năng tìm kiếm thông tin.

Có một kho tàng kiến thức ngay trong "nhà", ngay bên cạnh, trong tầm tay, mà lại đi hỏi thì quá vô lý.

Rõ ràng Range("B4:B31").AutoFilter ... là gọi phương thức AutoFilter của đối tượng Range. Trong VBE chỉ cần menu View -> Object Browser là có



Nhấn ? rồi đọc thỏa thích. Sau vài phút là biết hết ý nghĩa các tham số, chả cần hỏi ai.

 

[Gà Công Nghệ]

Học kiểu thụ động, hỏi từng cái tủn mủn như thế thì cả đời chả học được bao nhiêu.

Kỹ năng cực kỳ quan trọng là kỹ năng tìm kiếm thông tin.

Có một kho tàng kiến thức ngay trong "nhà", ngay bên cạnh, trong tầm tay, mà lại đi hỏi thì quá vô lý.

Rõ ràng Range("B4:B31").AutoFilter ... là gọi phương thức AutoFilter của đối tượng Range. Trong VBE chỉ cần menu View -> Object Browser là có

View attachment 276588

Nhấn ? rồi đọc thỏa thích. Sau vài phút là biết hết ý nghĩa các tham số, chả cần hỏi ai.

Cám ơn Bác batman1 đã chỉ bảo thêm, cái ý nghĩa nằm trong đây nhờ Bác em mới biết. Chúc Bác ngày cuối tuần vui vẻ.

 

[AnhThu-1976]

em nhờ các anh chị xem tại sao nó ẩn các dòng dưới dòng 32, em cảm ơn!