Tại sao Advanced Fillter lọc chậm

[n0thing1988]

Chào anh, chị và các bạn.
Mình có 1 file sử dụng record macro
Không biết tại sao code lại lọc chậm như vậy?
Cụ thể mình lọc 1 khoảng thời gian bất kỳ. Ấn lọc thì code chạy nhanh
Nhưng khi mình chọn lại là từ ngày 1/1/2015 đến 31/12/2015 lọc rất lâu tầm 20s
Xin hỏi trong trường hợp như này thì anh chị và các bạn giúp mình 1 code khác được không?
Trân thành cảm ơn

 

[huuthang_bd]

Chào anh, chị và các bạn.
Mình có 1 file sử dụng record macro
Không biết tại sao code lại lọc chậm như vậy?
Cụ thể mình lọc 1 khoảng thời gian bất kỳ. Ấn lọc thì code chạy nhanh
Nhưng khi mình chọn lại là từ ngày 1/1/2015 đến 31/12/2015 lọc rất lâu tầm 20s
Xin hỏi trong trường hợp như này thì anh chị và các bạn giúp mình 1 code khác được không?
Trân thành cảm ơn

Trước khi lọc bạn hãy bung hết dữ liệu ra.

Sub Macro1()
    If Me.FilterMode Then Me.ShowAllData
    Range("A8:H5388").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("K4:L5"), Unique:=False
End Sub

 

[giangleloi]

Chào anh, chị và các bạn.
Mình có 1 file sử dụng record macro
Không biết tại sao code lại lọc chậm như vậy?
Cụ thể mình lọc 1 khoảng thời gian bất kỳ. Ấn lọc thì code chạy nhanh
Nhưng khi mình chọn lại là từ ngày 1/1/2015 đến 31/12/2015 lọc rất lâu tầm 20s
Xin hỏi trong trường hợp như này thì anh chị và các bạn giúp mình 1 code khác được không?
Trân thành cảm ơn

Vấn đề nằm ở máy của bạn rồi. Tôi chạy từ ngày 1/1/2015 đến 31/12/2015 file của bạn gửi lên mất có 0.01s à.

 

[n0thing1988]

Vấn đề nằm ở máy của bạn rồi. Tôi chạy từ ngày 1/1/2015 đến 31/12/2015 file của bạn gửi lên mất có 0.01s à.

Ồ ngạc nhiên quá anh à.
Ban đầu dữ liệu đủ 12 tháng.
Em chọn 1/1/2015 đến 1/5/2015. Ấn lọc được tức thì luôn
Sau đó em sửa 1/5/2015 thành ngày 31/12/2015. Ấn lọc mất 18s
Máy tính của em core I7. Ram 4G. Em chưa thử ở máy khác. Để em thử máy khác coi sao ạ
_____________
Cảm ơn anh Huuthang_bd vấn đề đã được giải quyết rồi ạ. Lần nào vấn đề của em anh đều giúp đỡ rất nhiệt tình. Thật sự cảm ơn a rất nhiều