Tạo Marco không tự động cập nhật dữ liệu

[pomete]

Nhờ mọi người giúp đỡ,

Hiện tại em có file excel chứa rất nhiều công thức, tất cả đều link từ sheet nguồn "data". Vấn đề là hàng ngày em phải copy thêm thông tin vào sheet nguồn "data" ==> mỗi lần copy xong thì toàn bộ công thức sẽ tự động cập nhật lại (mỗi lần mất gần 1 phút) vì vậy trong một ngày mà copy khoảng 30 lần thì sẽ phải đợi tương ứng 30 phút

==> Nhờ mọi người viết một marco để khi copy dữ liệu vào thì toàn bộ công thức sẽ không tự động tính (bỏ chức năng automatic calculate). Cuối ngày chỉ cần chạy marco để tính toán một lần duy nhất là được. Thanks!

 

[Hai Lúa Miền Tây]

Nhờ mọi người giúp đỡ,

Hiện tại em có file excel chứa rất nhiều công thức, tất cả đều link từ sheet nguồn "data". Vấn đề là hàng ngày em phải copy thêm thông tin vào sheet nguồn "data" ==> mỗi lần copy xong thì toàn bộ công thức sẽ tự động cập nhật lại (mỗi lần mất gần 1 phút) vì vậy trong một ngày mà copy khoảng 30 lần thì sẽ phải đợi tương ứng 30 phút

==> Nhờ mọi người viết một marco để khi copy dữ liệu vào thì toàn bộ công thức sẽ không tự động tính (bỏ chức năng automatic calculate). Cuối ngày chỉ cần chạy marco để tính toán một lần duy nhất là được. Thanks!

Bạn vào Tools, chọn Option, chọn Tab Calculation, click chọn Manual, nhấn OK, sau này muốn cập nhật công thức bạn nhấn F9 nhé.

 

[pomete]

Bạn hiểu đúng ý của mình rồi, nhưng mình chỉ muốn áp dụng cho riêng 1 file này thôi --> Có marco nào để thực hiện điều này không ?
(Vì file này áp dụng cho rất nhiều người và trên nhiều máy, nếu dùng chức năng này không cẩn thận mà ông nào quên không chạy lại công thức trước khi in ấn hay trình ký thì cũng toi)

 

[cuongdoannhat]

Trong sự kiện Workbook_Open bạn gán Application.Calculation = xlCalculationManual
Trong sự kiện Workbook_BeforeClose bạn gán Application.Calculation = xlCalculationAutomatic

 

[pomete]

Mình không hiểu rõ về VBA đâu, có phải là nhấn ALT + F11, sau đó trong cửa số VBAProject chọn đúng sheet chứa công thức rồi chép 2 dòng lệnh của bạn vào có phải không/

 

[pomete]

Mọi người giúp em viết hoàn chỉnh code với chức năng bỏ chế độ tự động tính toán với.

Thanks!

 

[cuongdoannhat]

Bạn gõ ALT + F11, cửa sổ VBA mở ra, bạn DClick mục ThisWorkbook, trang code ThisWorkbook mở ra và có đoạn code:
Private Sub Workbook_Open()
End Sub
Bạn thêm vào Application.Calculation = xlCalculationManual để được:
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub
Bạn chọn tiếp sự kiện BeforeClose và có đoạn code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
Bạn thêm vào Application.Calculation = xlCalculationAutomatic để được:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
Xong