File excel của em tự nhiên nó tăng dung lượng lên gấp hàng chục lần. (2 người xem)

[Comet297]

File của bạn tại #35 đúng là hàng khủng, thử xóa object rác mà gây treo máy chết máy. Tôi phải shift Delete ngay lập tức file của bạn ngay

Ở thế hóa ra khó là bác bỏ người ta ạ?

Em là có ít nhất 2 cách để xóa mà vô cùng đơn giản chẳng treo máy gì cả, em toàn tìm trên GPE Hehee. Thôi em cũng chạy để bác tìm vậy, diễn đàn có đầy mờ.

 

[vanle33]

Ở thế hóa ra khó là bác bỏ người ta ạ?

Em là có ít nhất 2 cách để xóa mà vô cùng đơn giản chẳng treo máy gì cả, em toàn tìm trên GPE Hehee. Thôi em cũng chạy để bác tìm vậy, diễn đàn có đầy mờ.

-) Ahh, tôi cũng mất 1 "số lượng phút" để cũng chọn hết các object, cũng chọn được nhưng tôi không xóa đành out luôn. Nhìn thấy vòng quay cứ quay đều quay đều đủ biết file lỗi đến mức cao cấp hihi nên đành out.
-) Bạn đã có cách xóa mà không gây treo máy thì tung lên đây để tất cả cùng tham khảo!?

 

[Comet297]

-) Ahh, tôi cũng mất 1 "số lượng phút" để cũng chọn hết các object, cũng chọn được nhưng tôi không xóa đành out luôn. Nhìn thấy vòng quay cứ quay đều quay đều đủ biết file lỗi đến mức cao cấp hihi nên đành out.
-) Bạn đã có cách xóa mà không gây treo máy thì tung lên đây để tất cả cùng tham khảo!?

Diễn đàn có mờ bác

1/ Code
2/ Dùng Winrar

 

[vanle33]

Diễn đàn có mờ bác

1/ Code
2/ Dùng Winrar

Cụ thể đi bạn. Tôi có 1 code của bác ndu nhưng hình như phải cóp + chạy trực tiếp trên file lỗi chứ không có code diệt object rác trên file 2 bằng code trên file 1.

 

[Comet297]

Cụ thể đi bạn. Tôi có 1 code của bác ndu nhưng hình như phải cóp + chạy trực tiếp trên file lỗi chứ không có code diệt object rác trên file 2 bằng code trên file 1.

Bác cứ đùa em, bác những 4 sao, 4272 bài thì bác nắm quá chắc là copy code trên 1 file rồi chạy. Chứ em chỉ có biết đọc rồi cop dán hehee hưởng thành quả song em cũng đọc được là có thể dùng 1 file để xử lý 2 file đấy - diễn đàn có bác nhá. Bác tìm nhé, chết em múa rìu qua mắt thợ rồi.

 

[vanle33]

Bác cứ đùa em, bác những 4 sao, 4272 bài thì bác nắm quá chắc là copy code trên 1 file rồi chạy. Chứ em chỉ có biết đọc rồi cop dán hehee hưởng thành quả song em cũng đọc được là có thể dùng 1 file để xử lý 2 file đấy - diễn đàn có bác nhá. Bác tìm nhé, chết em múa rìu qua mắt thợ rồi.

Màu cam : tôi biết làm rồi.
Màu xanh : tôi cũng như bạn
Màu này : tôi đang muốn biết đấy nên tôi muốn biết bạn dùng code nào.

 

[Comet297]

Màu cam : tôi biết làm rồi.
Màu xanh : tôi cũng như bạn
Màu này : tôi đang muốn biết đấy nên tôi muốn biết bạn dùng code nào.

Híc bác cái nào cũng biết tuốt, bác lại trêu em từ bài 40, 42, 44, 46 chả bài nào bác chỉ cho em cả (những 4 bài), thế mà em lại chỉ cho bác mấy bài liền => chết dở múa rìu qua mắt thợ quá, bác làm em ngượng quá - cứ trêu em thôi.

Em mới vào số bài ít, sao cũng ít nên bác chỉ em nhiều nhé, chứ cứ lấp lửng đùa em như thế này em thấy "xí hổ" lắm

Còn đây là đoạn code em dùng bác này, chắc bác biết rồi nhưng lại giấu, cơ mà bác hỏi thì em trả lời đúng trọng tâm trọng điểm nhé.

Sub XoaObject() On Error Resume Next
Dim Wb As Workbook
Dim Sh As Worksheet
Dim Shp As Shape
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Set Wb = Application.Workbooks.Open("D:\1.xlsx")
Set Sh = Wb.Sheets("Sheet1")
For Each Shp In Sh.Shapes
Shp.Delete
Next
Wb.Close True
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
End Sub

 

[vanle33]

Híc bác cái nào cũng biết tuốt, bác lại trêu em từ bài 40, 42, 44, 46 chả bài nào bác chỉ cho em cả (những 4 bài), thế mà em lại chỉ cho bác mấy bài liền => chết dở múa rìu qua mắt thợ quá, bác làm em ngượng quá - cứ trêu em thôi.

.

Tôi chỉ có Code của bác ndu chỉ như vậy:
Sub DeleteShapes()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 10000
.Shapes(1).Delete
Next
MsgBox .Shapes.Count
End With
End Sub

 

[Comet297]

Tôi chỉ có Code của bác ndu chỉ như vậy:
Sub DeleteShapes()
Dim i As Long
On Error Resume Next
With ActiveSheet
For i = 1 To 10000
.Shapes(1).Delete
Next
MsgBox .Shapes.Count
End With
End Sub

Em cam đoan với bác đây không phải Code bác dùng, em thử không có được mặt khác bài kia lên tới hơn 20.000 object cơ mà. Bác lại trêu em. Híc đã 5 bài rồi đấy.

 

[vanle33]

Em cam đoan với bác đây không phải Code bác dùng, em thử không có được mặt khác bài kia lên tới hơn 20.000 object cơ mà. Bác lại trêu em. Híc đã 5 bài rồi đấy.

Chắc chắn 1 điều là : Tôi không trêu gì bạn.
Tôi có thử dùng cách có sẵn F5/... chứ không dùng code trên để xóa object trong file.
Vì tôi có biết mù tịt gì về code đâu.

 

[Comet297]

Chắc chắn 1 điều là : Tôi không trêu gì bạn.
Tôi có thử dùng cách có sẵn F5/... chứ không dùng code trên để xóa object trong file.
Vì tôi có biết mù tịt gì về code đâu.

Thế là bác trêu em nhá. Bác xem cái thông báo nó có trả về số lượng Object ko?

Với cách trả lời chỉn chu của anh NDU thì chả có lý gì mà thông báo lại sai toét.

Đã 6 bài rồi mà em vẫn thấy bác như trêu em í. Híc híc - em là nói thật luôn, tét thấy sai nói vậy, bác không tin thì bác thử xem.

 

[vanle33]

Thế là bác trêu em nhá. Bác xem cái thông báo nó có trả về số lượng Object ko?

Với cách trả lời chỉn chu của anh NDU thì chả có lý gì mà thông báo lại sai toét.

Đã 6 bài rồi mà em vẫn thấy bác như trêu em í. Híc híc - em là nói thật luôn, tét thấy sai nói vậy, bác không tin thì bác thử xem.

Tôi đã nói ở #50 là không dùng code tại #48 để xóa object rác mà. Nên không biết code chạy như thế nào hay thông báo.
Chỉ dùng cách có sẵn là F5/...

 

[dinhthongsnv]

File của bạn tại #35 đúng là hàng khủng, thử xóa object rác mà gây treo máy chết máy. Tôi phải shift Delete ngay lập tức file của bạn ngay

Thế mà máy mình cũng bị treo nhưng rồi vẫn xoá được các object rác. Máy mình đúng là máy xịn. Ha ha ha

 

[vanle33]

Thế mà máy mình cũng bị treo nhưng rồi vẫn xoá được các object rác. Máy mình đúng là máy xịn. Ha ha ha

Uhm, đúng là máy xịn, nhưng đảm bảo với bạn : cứ sử dụng file này mà copy tiếp nhiều dòng chứa object rác khoảng vài tháng sau thì máy nào cũng không chịu nổi, xóa hết object rác đi thì file lại nhẹ tựa lông hồng thôi.

 

[trungngocfly]

Em có File này đã làm thử theo mấy cách mà không ăn thua. Bác nào xem hộ em vơi.
Em cảm ơn

 

[ptm0412]

Em có File này đã làm thử theo mấy cách mà không ăn thua. Bác nào xem hộ em vơi.
Em cảm ơn

Xem xong rồi đó bạn.

 

[VetMini]

Em có File này đã làm thử theo mấy cách mà không ăn thua. Bác nào xem hộ em vơi.
Em cảm ơn

Bạn phải làm ngược lại "mấy cách" ấy.
Vấn đề của bạn ngược với người ta.
Người ta bị phình files. Bạn bị rút files. Hiện giờ cái file của bạn nó rút mất dấu luôn rồi.

 

[fso56]

các bác kiểm tra giúp em cái. Cail file excel của mình k có gì mà sao nặng vậy
link file

 

[fso56]

Bác nào biết giúp em cái.

 

[batman1]

Bác nào biết giúp em cái.

Nếu tập tin đơn giản như thế thì tạo tập tin mới rồi copy dữ liệu từ tập tin cũ sang thôi.