Giúp Tối ưu hóa đoạn code advanced filter

[letuongqt]

Xin nhờ các anh giúp cho : Tôi thu và thêm bớt để có 1 marco dùng để lọc 1 bảng dữ liệu khoảng 1050 dòng theo yêu cầu . Tuy nhiên , khi thực hiện lọc bằng marco trên thì máy chạy hơi bị chậm , không biết đoạn code trên có hợp lý chưa , có thể bổ sung và điều chỉnh ntn để chạy nhanh khi lọc ( Filter khoảng 0,5 Mb ) . Xin nhờ được giúp đỡ , rất cảm ơn .
Đoạn code như sau :

Sub locqt()
Application.ScreenUpdating = False
Range("A5:Y1050").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("AH5:BE6"), Unique:=False
ActiveWindow.ScrollRow = 5
Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Xin nhờ các anh giúp cho : Tôi thu và thêm bớt để có 1 marco dùng để lọc 1 bảng dữ liệu khoảng 1050 dòng theo yêu cầu . Tuy nhiên , khi thực hiện lọc bằng marco trên thì máy chạy hơi bị chậm , không biết đoạn code trên có hợp lý chưa , có thể bổ sung và điều chỉnh ntn để chạy nhanh khi lọc ( Filter khoảng 0,5 Mb ) . Xin nhờ được giúp đỡ , rất cảm ơn .
Đoạn code như sau :

Sub locqt()
Application.ScreenUpdating = False
Range("A5:Y1050").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("AH5:BE6"), Unique:=False
ActiveWindow.ScrollRow = 5
Application.ScreenUpdating = True
End Sub

Dùng Advanced Filter để lọc dử liệu là giải pháp nhanh nhất rồi đấy
Tiến trình có thể chậm vì những nguyên nhân sau:
- Trong bảng tính có chưa nhiều công thức làm ảnh hưởng chung đến tốc độ của toàn bảng tính
- Vùng điều kiện lọc là các công thức phức tạp
Vân vân.. và.. vân vân...
Bạn phải đưa file lên mới biết được bạn à!
Nếu file của bạn có dung lượng lớn, hãy cắt bỏ bớt, chừa lại 1 ít rồi gữi lên... Hoặc bạn có thể upload lên 1 trang web chia sẽ nào đó (www.mediafire.com chẳng hạn)

 

[letuongqt]

Dùng Advanced Filter để lọc dử liệu là giải pháp nhanh nhất rồi đấy
Tiến trình có thể chậm vì những nguyên nhân sau:
- Trong bảng tính có chưa nhiều công thức làm ảnh hưởng chung đến tốc độ của toàn bảng tính
- Vùng điều kiện lọc là các công thức phức tạp
Vân vân.. và.. vân vân...
Bạn phải đưa file lên mới biết được bạn à!
Nếu file của bạn có dung lượng lớn, hãy cắt bỏ bớt, chừa lại 1 ít rồi gữi lên... Hoặc bạn có thể upload lên 1 trang web chia sẽ nào đó (www.mediafire.com chẳng hạn)

Khi list vào cell B1 để lọc với điều kiện lọc là : 6*,7*,8*,9* thì bảng tính chạy rất chậm . Xin gởi file đính kèm nhờ được giúp đỡ . Xin cảm ơn .

 

[ndu96081631]

Khi list vào cell B1 để lọc với điều kiện lọc là : 6*,7*,8*,9* thì bảng tính chạy rất chậm . Xin gởi file đính kèm nhờ được giúp đỡ . Xin cảm ơn .

Như tôi đã nói ở trên, quá trình lọc có thể bị chậm do bảng tính chứa nhiều công thức ---> Bạn cứ thử chuyển hết công thức thành giá trị rồi lọc xem, nó chạy vèo vèo ấy chứ (vừa thử xong)