Cải thiện tốc độ và cấu trúc cho code VBA

[killitmore]

File của em hiện tại có 2 sheet. Sheet races chứa Data cần format, sheet racesformatted chứa data đã được format. Coded nhằm mục đích Format raw data trong sheet Races để ta được kq là sheet racesformatted. Các bác vào link này down tạm (ko hiểu sao em ko upload lên diễn đàn được trong khi dung lượng vẫn còn thừa nhiều )

https://goo.gl/Fvkfcl

Vấn đề hiện tại là code đang chạy quá chậm (khoảng 30' thậm chí là treo máy luôn).
Xin được các cao thủ xem xét, chỉ giáo giúp em xem nên làm thế nào để giúp code chạy nhanh hơn, giảm đỡ các vòng lặp, các sub phụ ko cần thiết mà vẫn đảm bảo code đọc dễ hiểu, cấu trúc rõ ràng.
Em xin chân thành cảm ơn

 

[phulien1902]

File của em hiện tại có 2 sheet. Sheet races chứa Data cần format, sheet racesformatted chứa data đã được format. Coded nhằm mục đích Format raw data trong sheet Races để ta được kq là sheet racesformatted. Các bác vào link này down tạm (ko hiểu sao em ko upload lên diễn đàn được trong khi dung lượng vẫn còn thừa nhiều )

https://goo.gl/Fvkfcl

Vấn đề hiện tại là code đang chạy quá chậm (khoảng 30' thậm chí là treo máy luôn).
Xin được các cao thủ xem xét, chỉ giáo giúp em xem nên làm thế nào để giúp code chạy nhanh hơn, giảm đỡ các vòng lặp, các sub phụ ko cần thiết mà vẫn đảm bảo code đọc dễ hiểu, cấu trúc rõ ràng.
Em xin chân thành cảm ơn

Đây là 1 cách để tăng tốc độ:

Sub CodeChayNhanhHon()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
              'Code cua ban.............
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

 

[phulien1902]

Bạn có thể tham khảo bài viết dưới đây:
http://www.ozgrid.com/VBA/SpeedingUpVBACode.htm

 

[killitmore]

Đây là 1 cách để tăng tốc độ:

Sub CodeChayNhanhHon()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
              'Code cua ban.............
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Cái sub Run_all em đã tắt hết mấy tính năng bác bảo rồi, cuối sub thì em bật lại thôi

 

[phulien1902]

Cái sub Run_all em đã tắt hết mấy tính năng bác bảo rồi, cuối sub thì em bật lại thôi

Tôi không hiểu bạn nói gì.

 

[huuthang_bd]

File của em hiện tại có 2 sheet. Sheet races chứa Data cần format, sheet racesformatted chứa data đã được format. Coded nhằm mục đích Format raw data trong sheet Races để ta được kq là sheet racesformatted. Các bác vào link này down tạm (ko hiểu sao em ko upload lên diễn đàn được trong khi dung lượng vẫn còn thừa nhiều )

https://goo.gl/Fvkfcl

Vấn đề hiện tại là code đang chạy quá chậm (khoảng 30' thậm chí là treo máy luôn).
Xin được các cao thủ xem xét, chỉ giáo giúp em xem nên làm thế nào để giúp code chạy nhanh hơn, giảm đỡ các vòng lặp, các sub phụ ko cần thiết mà vẫn đảm bảo code đọc dễ hiểu, cấu trúc rõ ràng.
Em xin chân thành cảm ơn

Tiếc là tôi dùng Excel 2007, code bạn có một số lệnh Excel 2007 không có nên tôi không test được. Nhưng tôi đoán file bạn chậm là do dùng CF quá nhiều. Vậy bạn thử thêm một dòng vào cuối 2 Sub như bên dưới rồi thử xem có đỡ hơn không.

Sub RTR_COLOR_ASCENDING_LOWREDHIGHGREENSCALEX(FormatRange)
'............
    Range(FormatRange).FormatConditions.Delete
End Sub

Sub RTR_COLOR_DECENDING_HIGHGREENLOWREDSCALEX(FormatRange)
'............
    Range(FormatRange).FormatConditions.Delete
End Sub

 

[killitmore]

Tôi không hiểu bạn nói gì.

Cảm ơn bác đã quan tâm, code này em viết rất nhiều Sub phụ, sau đó có 1 sub là 1 Sub RUN_ALL (để chạy tất cả các Sub phụ đó). Trong Sub RUN_ALL này em đã tắt hết mấy cái Application bác bảo rồi
Em thêm 1 dòng vào cuối sub như bác bảo nhưng nó vẫn chậm quá ạ, 30' rồi mà vẫn chưa chạy xong

 

[killitmore]

Có ai giúp em với

 

[phulien1902]

Có ai giúp em với

Có lẽ cách duy nhất và nhanh nhất là bạn đưa File & Code lên đây.
Các thành viên sẽ tìm cách giúp bạn.

 

[huuthang_bd]

Có lẽ cách duy nhất và nhanh nhất là bạn đưa File & Code lên đây.
Các thành viên sẽ tìm cách giúp bạn.

Dạ file đây. Bác giúp giùm.

https://goo.gl/Fvkfcl

 

[phulien1902]

Tôi đồng ý với quan điểm của bài viết #6

 

[killitmore]

E đã bổ sung 2 dòng code ý cho các sub chứa cf, vik lại các code dùng With cho cấu trúc rõ ràng hơn nhưng chạy vẫn mất gần 2h ạ