File exel làm rất chậm!

[dangx]

Em chào cả nhà!



Em có vấn đề muốn hỏi mọi người hiện tại là em có một file Exel trong đó có 3 sheet thì 2 sheet thao tác và làm việc rất bình thường còn một sheet khác thì rất chậm và đơ, mong các cao thủ xem và chỉ hộ em với ạ.

Em cảm ơn.

 

[do thi mai]

bạn hãy copy dữ liệu ra file khác, và sheet bị chậm đó,bạn không được định dạng trắng bằng cách tô màu hết màu trắng. bạn vào view-bỏ chon gridlines. Mình có vừa làm thử, nó nhanh hơn hẳn nên góp ý với bạn như vây a.

 

[dangx]

bạn hãy copy dữ liệu ra file khác, và sheet bị chậm đó,bạn không được định dạng trắng bằng cách tô màu hết màu trắng. bạn vào view-bỏ chon gridlines. Mình có vừa làm thử, nó nhanh hơn hẳn nên góp ý với bạn như vây a.

Bạn có thể cho mình xem file bạn đã thử không, bên này mình vẫn chậm, và đơ

 

[nhapmon]

Em chào cả nhà!



Em có vấn đề muốn hỏi mọi người hiện tại là em có một file Exel trong đó có 3 sheet thì 2 sheet thao tác và làm việc rất bình thường còn một sheet khác thì rất chậm và đơ, mong các cao thủ xem và chỉ hộ em với ạ.

Em cảm ơn.

sheet này của bạn có quá nhiều object
nhưng xử lý ko được, đụng đến là nó treo máy
thôi thì copy rồi paste value qua một sheet khác rồi định dạng lại

 

[dangx]

sheet này của bạn có quá nhiều object
nhưng xử lý ko được, đụng đến là nó treo máy
thôi thì copy rồi paste value qua một sheet khác rồi định dạng lại

Bác có thể giúp em không ạ, được thế thì em cảm ơn quá, tại nó chậm quá, vốn dĩ máy em đã chậm rồi

 

[nhapmon]

Bác có thể giúp em không ạ, được thế thì em cảm ơn quá, tại nó chậm quá, vốn dĩ máy em đã chậm rồi

thông thường thì người ta nhấn Ctrl G rồi chọn object rồi delete nó đi
nhưng file của bạn nhiều đến nỗi mới chọn có object à, mà nó treo máy luôn
thậm chí xài vba cũng dính
thôi tôi đanh làm thủ công, copy rồi paste value

 

[dangx]

Cảm ơn bác rất nhiều!

 

[do thi mai]

chỉ còn cách copy thôi ban a

 

[ndu96081631]

File này chứa khoảng 70,000 objects, toàn bộ tập trung tại sheet Form keying
Dùng code này để xóa:

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
  MsgBox "Còn " & wks.Shapes.Count & " objects"
End Sub

Xóa 7 lần là xong! Tuy chậm nhưng cũng không đến nỗi treo máy (tôi gặp nhiều file còn đáng sợ hơn). Máy tôi dạng bèo nhưng cũng chỉ mất từ 10 đến 15 phút là quét sạch
Xóa xong, dung lượng còn 60KB

 

[dangx]

Cảm ơn tất cả mọi người, anh cho em hỏi là code này dùng như thế nào ạ.