EXCEL BỊ ĐƠ, TRẮNG MÀN HÌNH

Liên hệ QC

nguyendinh2019

Thành viên mới
Tham gia
26/2/19
Bài viết
7
Được thích
0
Excel mình bị sao mà nó chạy rất chậm, hay bị đơ làm việc rất khó chịu. Mở 1 file no cũng đơ nữa.
Tham khảo hết nào là xóa OJ, xóa name rác... mà vẫn không chạy nổi. Mới bị khoảng 1 tháng thôi. Cũng đã cài Win 10 lại, office 2016 mới luôn mà vẫn bị.
Nhờ các A/C cứu với chứ làm không được nữa huhu
 

File đính kèm

Vẫn mở được bình thường. Sheet bạn tô nhiều màu nên gây nặng file.
Chưa xem hết cho bạn, trong file có nhiều công thức không? Làm việc bao nhiêu lâu, hay làm như thế nào thì 'nó đơ' vậy bạn?
 
Vẫn mở được bình thường. Sheet bạn tô nhiều màu nên gây nặng file.
Chưa xem hết cho bạn, trong file có nhiều công thức không? Làm việc bao nhiêu lâu, hay làm như thế nào thì 'nó đơ' vậy bạn?
File này chưa có công thức, chay 1 phút là đơ trắng hết màn hình. Nếu mở 5 file đều có công thức thì nó cũng đơ như vậy.Tắt auto save rồi mà vẫn bị.
Anh xem giúp, mới mở 2 file
 

File đính kèm

  • đo.jpg
    đo.jpg
    67.5 KB · Đọc: 6
File này chưa có công thức, chay 1 phút là đơ trắng hết màn hình. Nếu mở 5 file đều có công thức thì nó cũng đơ như vậy.Tắt auto save rồi mà vẫn bị.
Anh xem giúp, mới mở 2 file
Anh mở file từ lúc post bài đến giờ vẫn y nguyên không treo tý nào. Không hiểu trên máy của em thế nào nữa.
 

File đính kèm

  • hinh.png
    hinh.png
    12.7 KB · Đọc: 8
em còn nhiều file nó bị như vậy. xóa name, ojb, shapes ... a có the chỉ em được không?
Vì có quá nhiều hình logo giống hệt nhau mà đè lên nhau. Khi copy thành các sheet khác thì số lượng logo được cấp số nhân lên.
Ở bài #1 thấy bạn bảo biết xóa OJ? hihi
Đơn giản tại sheet cần xóa nhấn F5/nhấn Special.../chọn Objects/OK/nhấn Delete là xong.
 
em còn nhiều file nó bị như vậy. xóa name, ojb, shapes ... a có the chỉ em được không?
Bạn thử dùng 2 code này cho file của bạn

  1. Mở bảng tính trong Excel.
  2. Nhấn Alt + F11 để mở VBA.
  3. Sao chép code chạy.


Mã:
'Xóa tất cả các sheet'
Sub AllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Activate
Call Xoa
Next ws
End Sub
'------------------------------------------'
'Xóa 1 sheet
Sub Xoa()
Dim Pic As Object
Dim Shp As Shape
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub
 
Web KT

Bài viết mới nhất

Back
Top Bottom