file có trên 26 ngàn textbox ẩn.File excel dung lượng quá lớn, mở chậm, trên sheet xuất hiện số 6,3 - Không thể xóa được. Em đã sử dụng tất cả các công cụ diệt virusmacro nhưng không tại nào khắc phục được. Em gửi các bác file excel. Các bác giúp em tìm nguyên nhân và cách khắc phục giúp em với. Thanks các bác.
Thanks all.
file có trên 26 ngàn textbox ẩn.
Sub ShapesDelete()
Dim Obj As Shape
For Each Obj In ActiveSheet.Shapes
If Obj.Visible = msoFalse Then
Obj.Delete
End If
Next
Set Obj = Nothing
End Sub
Sub delShapes()
With ActiveSheet
For i = .Shapes.Count To 1 Step -1
'.Shapes(i).Visible = True: nếu ít và muốn xem mặt mũi nó thì dùng câu này. Nhiều thì đơ máy luôn'
.Shapes(i).Delete
Next
End With
End Sub
Thanks các bác. Để em thử phát.
Sub DelObj()
ActiveSheet.DrawingObjects.Delete
End Su
Mở ra được nhưng mất hết định dạng rồiChào các bạn
Mình có 1 file excel vô cùng quan trọng chẳng hiểu tại sao hôm nay mở lại bị thông báo lỗi. Công sức làm việc cả một tháng của mình, thực sự rất nhiều dữ liệu trong đó. Ai giúp mình với, mình xin cảm ơn và hậu tạ nhiệt tình, nếu không TẾT này mình mất TẾT.
Pass mở file: fc
Pass modify: huong
Xin các cao nhân bớt chút thời gian xem xét, nhiệt tình giúp đỡ ah
http://www.mediafire.com/?nl50kacsx2sb24x
Đã sửa file giúp bạn rồi đấy. Máy tính của bạn chắc có virutMình có 1 file excel mở rất chậm, khi vào được rồi lại càng chậm hơn nữa, không thể nào làm việc được. AE ai pro xin giúp dùm
http://www.mediafire.com/?shdlzhv6yllshsb
Sheet HANGBAN rất chậm, không thể lam được.
File của bạn tiêu rồi! nó bị Format gì đó ( có thể gốc file này là Excel 2007 hay 2010 mà bạn mở bởi Excel 2003!mọi người giúp mình mở file này cái?m không tài nào mở được
Không biết khi mở File mà thấy bị lỗi thì bạn có Save nó không? Nếu bạn đã save thì khó chữa!Chào mọi người,
Mình có 1 file excel hôm qua thì làm bình thường, hôm nay mở ra thì mất hết định dạng.
Làm lại thì rất phức tạp, Mình gửi file lên mong được mọi người giúp đở.
Xin cảm ơn nhiều.
http://www.mediafire.com/?cuuwdb06n8u891z