TẠI VÌ FILE LỚN QUÁ NÊN MINH GUI ĐƯỜNG DẪN NHỜ MỌI NGƯỜI GIÚP VỚI
http://www.mediafire.com/download.php?zogega6er98y5tr
http://www.mediafire.com/download.php?zogega6er98y5tr
File của bạn có những vấn đề sau:TẠI VÌ FILE LỚN QUÁ NÊN MINH GUI ĐƯỜNG DẪN NHỜ MỌI NGƯỜI GIÚP VỚI
http://www.mediafire.com/download.php?zogega6er98y5tr
Sub DelObj()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.DrawingObjects.Delete
Next
End Sub
em mở len duoc roi cam on anh NGHIA NHEU LAM CÓ CƠ HỘI MỜI ANH MỘT BỮA NHẬUFile của bạn có những vấn đề sau:
1. Đã bị Hide Workbook ---> Chọn Windows\Unhide để cho hiện lại (chỗ này thì mình không nhớ rõ là nằm trong menu Windows hay trong menu Format, vì mình đang sử dụng Excel 2007 - lệnh Unhide nằm tại tab View).
2. Chứa 2 sheet ẩn (cái này do Virus Macro tạo ra) ---> Vào cửa sổ VBE, cho Unhide và xóa sheet.
3. Chứa quá nhiều name rác (982 names) ---> Sử dụng Excel 2007, 2010 hoặc sử dụng code để xóa name.
4. Chứa quá nhiều object (5367 objects) ---> Sử dụng code sau để xóa đi:
5. Chứa công thức và name liên kết đến Workbook khác (không biết có nên xem đây là một lỗi không).PHP:Sub DelObj() Dim Sh As Worksheet For Each Sh In ThisWorkbook.Sheets Sh.DrawingObjects.Delete Next End Sub
Sau khi xử lý các lỗi trên, kích thước file giảm tứ 11.6MB xuống còn 871KB.