Xin code chuyển sang chế độ tính manual

[LYSM]

Em chào cả nhà, file của em có đoạn code khi mở file này lên thì nó ở chế độ tính manual, đóng lại và bật file khác sẽ chuyển về automatic. File hoạt động trơn tru nếu nó là file được mở đầu tiên, nhưng nếu mở 1 file khác trước (ở chế độ automatic) sau đó mở file chứa code thì lại không chuyển được về chế độ Manual. Em muốn bất cứ khi nào mở file chứa code là nó chuyển về chế độ Manual. Các anh chị giúp em với. Em cảm ơn!

 

[PhanTuHuong]

Bạn chạy dòng code này ở đoạn cuối thủ tục nhé:

Application.Calculation=xlCalculationAutomatic

Lưu ý là có trường hợp đã thiết lập nhưng do thủ tục thoát nửa chừng hoặc lỗi thì dòng code trên không chạy và nó vô tác dụng.

 

[LYSM]

Bạn chạy dòng code này ở đoạn cuối thủ tục nhé:

Application.Calculation=xlCalculationAutomatic

Lưu ý là có trường hợp đã thiết lập nhưng do thủ tục thoát nửa chừng hoặc lỗi thì dòng code trên không chạy và nó vô tác dụng.

Em cám ơn anh Hướng ạ, vì file nặng quá nên em mới phải làm thế này, nếu anh chuyển được các công thức trong file sang VBA giúp em thì tốt. Mà đoạn code này em có rồi mà, trong file có 3 thủ tục?

 

[PhanTuHuong]

Hì hì, tôi nhầm. Để chuyển sang chế độ Manual thì dùng dòng lệnh:

Application.Calculation =xlCalculationManual

Tôi chỉ định hướng làm vì không tải file được.

 

[PhanTuHuong]

Hì hì, tôi nhầm. Để chuyển sang chế độ Manual thì dùng dòng lệnh:

Application.Calculation =xlCalculationManual

Tôi chỉ định hướng làm vì không tải file được.

 

[LYSM]

Cái này cũng có rồi ạ, khi em mở file lên thì nó chạy trơn tru nhưng khi có sẵn file khác thì nó cứ trơ ra