Để tăng tốc độ trích dữ liệu tháng, hoặc ghi số liệu từ form bạn đưa cặp lệnh này vào giữa các dòng lệnh.
Lệnh này có chức năng tự động chuyển đổi calculate từ chế độ Auto sang chế độ manual và ngược lại. Nên khi truy xuất dữ liệu sẽ nhanh hơn rất nhiều vì không bị chờ ... tính toán.
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
..............
..............
..............
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Chúc các bạn vui.
Bạn nào có thể liên hệ được với thầy Ông Văn Thông thì chuyển đến thầy góp ý về cải tiến này.
Phan Tuấn Tú
Lệnh này có chức năng tự động chuyển đổi calculate từ chế độ Auto sang chế độ manual và ngược lại. Nên khi truy xuất dữ liệu sẽ nhanh hơn rất nhiều vì không bị chờ ... tính toán.
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
..............
..............
..............
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
Chúc các bạn vui.
Bạn nào có thể liên hệ được với thầy Ông Văn Thông thì chuyển đến thầy góp ý về cải tiến này.
Phan Tuấn Tú