Sau khi chạy VBA chức năng Calculation Manual không tự đổi sang auto

[dothetai]

Chào mọi người.Tình hình là trong đoạn code VBA của mình có thêm 2 đoạn code để chương trình chạy nhanh hơn:
Application.Calculation = xlCalculationManual
Và kết thúc mình chuyển về lại Automatic
Nhưng đôi khi file Excell bị lỗi vẫn để định dạng là Manual không tự đổi về Automatic.Có bác nào có cách giải quyết chỉ mình với ạ?cảm ơn các bác

 

[befaint]

đôi khi file Excell bị lỗi

Làm sao mà bị lỗi? Do code không bẫy hết lỗi thì đứt gánh giữa lúc cao trào, làm sao mà TỰ về như cũ được nữa.

 

[Maika8008]

Chào mọi người.Tình hình là trong đoạn code VBA của mình có thêm 2 đoạn code để chương trình chạy nhanh hơn:
Application.Calculation = xlCalculationManual
Và kết thúc mình chuyển về lại Automatic
Nhưng đôi khi file Excell bị lỗi vẫn để định dạng là Manual không tự đổi về Automatic.Có bác nào có cách giải quyết chỉ mình với ạ?cảm ơn các bác

Cách giải quyết là vào Options chọn Automatic vèo cái là xong mà

 

[befaint]

Cách giải quyết là vào Options chọn Automatic vèo cái là xong mà

Cái đó chủ thớt biết mà anh. Quan trọng nó không TỰ.

 

[Maika8008]

Cái đó chủ thớt biết mà anh. Quan trọng nó không TỰ.

View attachment 262034

Thì không có cách nào "tự" auto được thì mình "tự làm" thôi ý mà

 

[ptm0412]

Theo tôi thì chỗ này chưa rõ ràng:

Nhưng đôi khi file Excell bị lỗi

Là excel lỗi hay code lỗi?
Excel lỗi thì phải "tự" làm bằng tay, code lỗi thì phải sửa code

 

[OverAC]

Cách làm của tôi, né được kha khá vụ này khi bị lỗi code giữa chừng:

Sub abc()
Application.Calculation = xlCalculationManual
on error goto ketthuc

....

ketthuc:
Application.Calculation =xlCalculationAutomatic
End sub

 

[dothetai]

Làm sao mà bị lỗi? Do code không bẫy hết lỗi thì đứt gánh giữa lúc cao trào, làm sao mà TỰ về như cũ được nữa.

Ak.vậy là do code bị đứt gánh giữa chừng nên mới thế..tks bác nhiều nhé

Bài đã được tự động gộp: 8/7/21

Thì không có cách nào "tự" auto được thì mình "tự làm" thôi ý mà

Hix.mình thì biết làm.mà khổ là mấy bạn cùng phòng dùng file đó.mà công thức nó không automatic...xuất ra dữ liệu sai thì lại mang họa.hix

Bài đã được tự động gộp: 8/7/21

Cách làm của tôi, né được kha khá vụ này khi bị lỗi code giữa chừng:

Sub abc()
Application.Calculation = xlCalculationManual
on error goto ketthuc

....

ketthuc:
Application.Calculation =xlCalculationAutomatic
End sub

Tks bác nhiều nhé.mình sửa lại code để tránh bị đứt gánh giữa chừng.vậy nếu mình để thêm 1 dòng Automatic bên ngoài ketthuc để bật lại chức năng automatic bị tắt được k bác?

Bài đã được tự động gộp: 8/7/21

Theo tôi thì chỗ này chưa rõ ràng:

Là excel lỗi hay code lỗi?
Excel lỗi thì phải "tự" làm bằng tay, code lỗi thì phải sửa code

Theo như bác ở trên nói là bị đứt gánh giữa chừng nên nó k chạy được đến đoạn Automatic.nên mình nghĩ là sửa lại code để tránh lỗi đó

 

[OverAC]

Tks bác nhiều nhé.mình sửa lại code để tránh bị đứt gánh giữa chừng.vậy nếu mình để thêm 1 dòng Automatic bên ngoài ketthuc để bật lại chức năng automatic bị tắt được k bác?

Không cần 1 câu "bên ngoài" (chính xác là trước) cái ketthuc: vì nếu code không có lỗi gì cả nó cũng sẽ chạy tới đoạn ketthuc để chạy tiếp mà.

 

[dothetai]

Không cần 1 câu "bên ngoài" (chính xác là trước) cái ketthuc: vì nếu code không có lỗi gì cả nó cũng sẽ chạy tới đoạn ketthuc để chạy tiếp mà.

Ok.tks bác nhiều nhé

 

[befaint]

sửa lại code để tránh lỗi

Mình úp cái code đó lên đây.

 

[ptm0412]

Theo như bác ở trên nói là bị đứt gánh giữa chừng nên nó k chạy được đến đoạn Automatic.nên mình nghĩ là sửa lại code để tránh lỗi đó

Sửa lại code cho hết lỗi, chứ nếu sửa kiểu chèn label ketthuc thì khi lỗi sẽ thoát và không có được kết quả cuối.