Don Rac Trong File Excel

Posted: 14/03/2014 in M.Excel, Ứng Dụng VBA
Tags:

Khi lập trình hay thao tác trong excel thì dung lượng file đột nhiên tăng lên làm file cho nặng khi đó có thể dùng dọn code sau để dọn rác trong file excel:
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
hoặc
Sub ShapesDelete()
Dim Obj As Shape
For Each Obj In ActiveSheet.Shapes
If Obj.Visible = msoFalse Then
Obj.Delete ‘Xóa đối tượng Shape bị ẩn, do virus tạo ra
End If
Next
Set Obj = Nothing
End Sub
“Trích nguồn giaiphapexcel.com”
Chi tiết tại đây!!

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s