Nhờ mọi người giúp file của mình phần ô tìm kiếm tự động rất chậm (1 người xem)

[phamcong8x]

Mình đăng file excel của mình lên đây xin nhờ mọi người chỉnh lại cho mình để file của mình chạy nhanh hơn ở ô " tìm kiếm" mình xin cám ơn

 

[be_09]

Mình đăng file excel của mình lên đây xin nhờ mọi người chỉnh lại cho mình để file của mình chạy nhanh hơn ở ô " tìm kiếm" mình xin cám ơn

Xòa hết code trong Sheet Nhap lieu phát sinh và thử thay bằng code sau:

Private Sub KH_Change()
    Sheet2.Range("D8").AutoFilter Field:=4, Criteria1:=CStr("*" + KH.Text) + "*"
End Sub