file excel bị treo thường xuyên khi có thay đổi dữ liệu (1 người xem)

[tu205489039]

Chào mọi người, mình có 1 file excel không biết dạo gần đây nó bị j mà ở 2 sheet EFF nó lại nặng bất thường. Hễ cứ có động chạm dữ liệu rồi lưu là nó treo cả chục phút, rất khó chịu. mọi người có thể giúp mình xem thử nó bị lỗi j được không.
Cảm ơn mọi người!

 

[ndu96081631]

Chào mọi người, mình có 1 file excel không biết dạo gần đây nó bị j mà ở 2 sheet EFF nó lại nặng bất thường. Hễ cứ có động chạm dữ liệu rồi lưu là nó treo cả chục phút, rất khó chịu. mọi người có thể giúp mình xem thử nó bị lỗi j được không.
Cảm ơn mọi người!

- Sheet EFF BROILER... chứa 74,240 cục đá
- Sheet EFF BA... chứa 148,480 cục đá
- Tổng cộng có trên 200,000 cục đá, nặng cở kim tự tháp thôi hà
Công nhận tác giả "sống chung" được cũng hay thật đấy!
Tôi dùng code này để "đập đá":

Sub DelObjects()
  Dim i As Long, wks As Worksheet
  On Error Resume Next
  Set wks = ActiveSheet
  For i = 1 To 10000
    wks.Shapes(1).Delete
  Next
  Debug.Print "Còn " & wks.Shapes.Count & " objects"
End Sub

"Đập" gần tiếng đồng hồ cũng.. phê. "Nó" co giật thấy thương luôn!
"Banh xác" hết cả rồi. Giờ cứ gọi là nhẹ như lông... chị Hồng nhé!
-------------------------
Ai muốn cho máy tính "tập tạ" mời vào thử nhé.

 

[ptm0412]

Trước đây mình cũng xử lý trên 300 ngàn cục đá (cũng trên GPE), không phải 1 sheet nhé, code tương tự của ndu nhưng vòng lặp theo sheet, cũng nhấn nút rồi ngủ 1 giấc dậy xem kết quả.

 

[tu205489039]

tiện thể bác có thể cho e hỏi lý do hình thành mấy cái đó được không vậy! Để có j e ngừa trước

 

[ndu96081631]

tiện thể bác có thể cho e hỏi lý do hình thành mấy cái đó được không vậy! Để có j e ngừa trước

Nguyên nhân là do thường xuyên copy/paste từ những nguồn mà bạn chưa chắc chắn có gì trong đó. Cụ thể, với một sheet chứa những objects ẩn, bạn copy/paste nhiều lần thì số lượng objects sẽ tăng theo cấp số nhân. Đến lúc nào đó số lượng object quá lớn này sẽ làm cho file chậm đi
Để ngăn ngừa, ta có thể:
- Chỉ nên copy/paste những nguồn dữ liệu đã được kiểm tra trước (để chắc chắn không có objects, CellStyles, names rác)
- Nếu có thể được, chỉ nên Paste Values. Động tác này chỉ lấy dữ liệu thô và ngăn chặn mọi thứ rác đã kể trên