Ngưng Auto tính toán trên 1 sheet (1 người xem)

[hoangexcell]

Vì mình làm nhiều sheet mà trong đó có liên quan nhau ít nhiều.

Mình nghĩ có cách nào tắt auto calculation trên 1 sheet nào đó như vậy thì hay nhỉ. sẽ tăng tốc độ file của mình khi xử lý 1 sheet riêgn

 

[dangkhoiLK]

có

 

[be_09]

Vì mình làm nhiều sheet mà trong đó có liên quan nhau ít nhiều.

Mình nghĩ có cách nào tắt auto calculation trên 1 sheet nào đó như vậy thì hay nhỉ. sẽ tăng tốc độ file của mình khi xử lý 1 sheet riêgn

1/ Để tắt tính toán cho các sheet bạn thử cách sau:

Sub TatTinhToan()
Dim sh As Integer
    For sh = 1 To Worksheets.Count - 1
        Application.Calculation = xlManual
    Next sh
End Sub

2/ Để cập nhật tính toán cho các sheet bạn nhấn F9, hoặc mở tính toán cho tất cả các sheet bạn thử cách sau:

Sub MoTinhToan()
Dim sh As Integer
    For sh = 1 To Worksheets.Count - 1
    With Application
        .ScreenUpdating = True
        .Calculation = xlAutomatic
    End With
    Next sh
End Sub

 

[hoangexcell]

Để tắt tính toán cho các sheet bạn thử cách sau:

Khi tắt hay mở là nó ÁP DỤNG TOÀN BỘ SHEET cơ mà nhỉ.
Ý mình là sheet 1 thì auto, sheet 2 thì manual ấy.

NẾU khi làm sheet 1, mà sheet 2 dù có link qua sheet 1 nhưng nó không ACTIVE thì nó không chạy ? thì không cần option trên.

Mình sợ nó chạy hoàng loạt sheet liên quan thì nó bị chậm