Private Sub Worksheet_Change(ByVal

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
Rows("2:100").Hidden = False

If Target.Address = "$K$2" Then

Range("B13:B1000").AutoFilter 1, " 0", , , 0

End If
Application.ScreenUpdating = True
End Sub

Kết quả (Việt) 1:

Riêng phụ Worksheet_Change(ByVal Target As Range)Application.ScreenUpdating = False Trên lỗi tiếp tục tiếp theo Rows("2:100").Ẩn = False Nếu Target.Address = "$K$ 2" sau đó Range("B13:B1000").AutoFilter 1, "<> 0",,, 0 Kết thúc nếu Application.ScreenUpdating = TrueCuối tiểu

Kết quả (Việt) 2:

Private Sub Worksheet_Change (ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Tiếp
Rows. ("2: 100") ẩn = False Nếu Target.Address = "$ K $ 2" Sau đó, Range ("B13: B1000"). AutoFilter 1, "<> 0",,, 0 End If Application.ScreenUpdating = True End Sub