Mất copy khi dùng câu lệnh Application.Calculation

[kobebryant]

Mình có 1 sheet muốn nó cập nhật dữ liệu liên tục với event Active
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
Code
Application.Calculation = xlCalculationAutomatic
End Sub

Và mỗi khi mình copy dữ liệu từ sheet khác vào sheet này để paste thì bị mất hết ko cho copy giống như kiểu CutCopyMode = True vậy. Khi mình kiểm tra ra là do Application.Calculation. Nhưng nếu bỏ cặp lệnh này thì mỗi lần Active vào sheet nó tính toán chậm đau lòng.
Anh em cho hỏi có cách nào để vẫn còn dữ liệu trong Clipboard để mỗi khi vào sheet này để Paste ko

 

[ndu96081631]

Mình có 1 sheet muốn nó cập nhật dữ liệu liên tục với event Active
Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
Code
Application.Calculation = xlCalculationAutomatic
End Sub

Và mỗi khi mình copy dữ liệu từ sheet khác vào sheet này để paste thì bị mất hết ko cho copy giống như kiểu CutCopyMode = True vậy. Khi mình kiểm tra ra là do Application.Calculation. Nhưng nếu bỏ cặp lệnh này thì mỗi lần Active vào sheet nó tính toán chậm đau lòng.
Anh em cho hỏi có cách nào để vẫn còn dữ liệu trong Clipboard để mỗi khi vào sheet này để Paste ko

Sửa thành vầy xem:

Private Sub Worksheet_Activate()
  With Application
    If .CutCopyMode = 0 Then
      .Calculation = xlCalculationManual
      Code
      .Calculation = xlCalculationAutomatic
    End If
  End With
End Sub

 

[kobebryant]

Sửa thành vầy xem:

Private Sub Worksheet_Activate()
  With Application
    If .CutCopyMode = 0 Then
      .Calculation = xlCalculationManual
      Code
      .Calculation = xlCalculationAutomatic
    End If
  End With
End Sub

Anh ơi, em thấy giải pháp này cũng hay. Coi như nếu copy xong rồi nhấn Esc để CutCopyMode mất rồi nhấn lại vào sheet đó để cập nhật cũng được đúng ko anh