File Excell bị chậm và treo

[truongcbkt]

Nhờ các bác giúp cái file này với, không hiểu sao nó bị chậm và bị treo khi thao tác trên file này. Cảm ơn!

 

[Hong.Van]

Nhờ các bác giúp cái file này với, không hiểu sao nó bị chậm và bị treo khi thao tác trên file này. Cảm ơn!

File của bạn Quá quá nhiều Objects
Bạn có biết sử dụng code?
Nếu biết thì chạy thử code này

Sub CountObjects()
  Dim i As Long, wks As Worksheet
  On Error Resume Next
  Set wks = ActiveSheet
  ActiveSheet.Shapes.Count
    MsgBox "Có " & wks.Shapes.Count & " objects"
End Sub

Chọn từng sheet và chạy code xem nó thông báo
Sau khi chạy code thì bạn sẽ biết trong File của bạn có bao nhiêu
Và bạn thử tìm trên mạng cách delete object
Còn tại sao trong file của bạn có nhiều object như vậy? thì bạn thử tìm hiểu vì sao?
Bạn làm nha, để sau này còn tự xử các file của mình
Thân!

 

[snow25]

Nhờ các bác giúp cái file này với, không hiểu sao nó bị chậm và bị treo khi thao tác trên file này. Cảm ơn!

Bạn chạy them câu lệnh này nữa nhé chắc hơi lâu.

Sub xoa()
Dim shap As Shape, sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
    For Each shap In sh.Shapes
        shap.Delete
    Next
Next
End Sub

 

[giaiphap]

Góp vui thêm một cách dùng code xóa các Objects trong tất cả các sheet.

Sub Del_Objects()
Dim Sh As Worksheet
With Application
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
        For Each Sh In ThisWorkbook.Worksheets
            Sh.DrawingObjects.Delete
        Next
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
End With
End Sub

 

[be_09]

Nhờ các bác giúp cái file này với, không hiểu sao nó bị chậm và bị treo khi thao tác trên file này. Cảm ơn!

Do bạn lười biếng Copy mà không Paste > Value. Cách thực hiện thủ công như sau:
Nhấn Ctrl+G cửa sổ Go To hiện ra nhấn nút Special, cửa sổ Go To Special hiện ra chọn Objects và nhấn nút OK, nó sẽ chọn tất cả các Shapes có trong sheet rồi nhấn nút Delete.