Xin nhờ xử lý dùm đoạn code

[thanhtam348]

Tôi có 1 Sheet để in hóa đơn cho khách hàng, nhưng tùy số liệu nhiều ít mà bảng in khi đầy khi trống, tôi copy được code nầy để ẩn các dòng trống phía dưới hóa đơn nhưng sao đưa vào bảng tính tôi thì nó xử lý rất chậm, vậy nhờ ACE nào biết khắc khục dùm, hoặc có đoạn nào khác hơn cũng được.
Cám Ơn.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
Cancel = True
Application.ScreenUpdating = False
Dim Vungchon, Sodong, I, Vungche
Set Vungchon = Selection
Range("In").Select
Set Vungche = Selection
Sodong = Selection.Rows.Count
Vungche.Range("A1").Select
For I = 1 To Sodong
    If ActiveCell.Value = "K" Then
        Selection.EntireRow.Hidden = True
    End If
    If ActiveCell.Value = "C" Then
        Selection.EntireRow.Hidden = False
    End If
    ActiveCell.Offset(1, 0).Range("A1").Select
Next
    Vungchon.Activate
Application.ScreenUpdating = True
End If
End Sub

 

[sealand]

Bạn gửi file lên đi, nếu còn chậm thì vô lý vi 1 phiếu thường dự trù 15-20 dòng là nhiều. ẩn hiện bằng tay còn nhanh nữa là code

 

[thanhtam348]

Cám ơn bạn, làm sao gởi được đây? file nó dính một chùm, chiết ra thỉ mất dử liễu không đọc được, mà gởi nguyên file lên thì nó nặng lại bị mắc cở bởi làm không giống ai, nhìn vào tối mắt.
Bạn có thể suy code đó thử xem, hay có một file ví dụ nào khác dùng tương tựa ? Nếu ẩn bằng tay thì nhọc nhằn.

 

[Po_Pikachu]

Vậy bạn tham khảo các link này xem. Nhiều lắm.
trích lọc dùng AutoFilter
Thân.