Làm sao để xoá được các Object ẩn (1 người xem)

[cazonda]

Các anh chị chỉ giúp em làm sao để xoá được các object ẩn, trong 1 file mà em nhận được có rất nhiều object dẫn đến việc file chạy rất chậm. Nếu dùng go to/specia/objects thì file bị đơ luôn mà tìm từng object ẩn mà xoá thì lâu quá

Cảm ơn anh chị

 

[nghiaphuc]

Các anh chị chỉ giúp em làm sao để xoá được các object ẩn, trong 1 file mà em nhận được có rất nhiều object dẫn đến việc file chạy rất chậm. Nếu dùng go to/specia/objects thì file bị đơ luôn mà tìm từng object ẩn mà xoá thì lâu quá

Cảm ơn anh chị

Bạn chọn sheet cần xóa Object ẩn, nhấn Alt+F11, tiếp tục nhấn Ctrl+G để hiện cửa số Immediate, sau đó dán vào đó câu lệnh sau và Enter xem:

Activesheet.Drawingobjects.Delete

Lưu ý là câu lệnh trên sẽ xóa tất cả các đối tượng vẽ trên Activesheet đấy nhé.

P/S: Thử cái này an toàn hơn nè: Chỉ những Object ẩn thì mới xóa, những cái nhìn thấy thì không xóa:

Sub Test()
    Dim Sh As Shape
    For Each Sh In Activesheet.Shapes
        If Sh.Visible = msoFalse Then Sh.Delete
    Next
End Sub

 

[cazonda]

Vậy để hiển thị các object này lên thì có cách nào không ah? Em nghĩ các object này do cái gì đó tạo ra chứ không phải do người dùng vẽ nên

 

[Hoàng Trọng Nghĩa]

Vậy để hiển thị các object này lên thì có cách nào không ah? Em nghĩ các object này do cái gì đó tạo ra chứ không phải do người dùng vẽ nên

Để hiển thị toàn bộ objects, bạn chỉ cần bấm Alt+F11 để mở VBA, bấm Ctrl+G để mở Immediate, chép đoạn code này:

ActiveSheet.DrawingObjects.Visible = True

vào trong Immediate rồi đặt con trỏ lên dòng đó bấm Enter.

 

[nguyenthanhtung6335]

Bạn chọn sheet cần xóa Object ẩn, nhấn Alt+F11, tiếp tục nhấn Ctrl+G để hiện cửa số Immediate, sau đó dán vào đó câu lệnh sau và Enter xem:

Activesheet.Drawingobjects.Delete

Lưu ý là câu lệnh trên sẽ xóa tất cả các đối tượng vẽ trên Activesheet đấy nhé.

P/S: Thử cái này an toàn hơn nè: Chỉ những Object ẩn thì mới xóa, những cái nhìn thấy thì không xóa:

Sub Test()
    Dim Sh As Shape
    For Each Sh In Activesheet.Shapes
        If Sh.Visible = msoFalse Then Sh.Delete
    Next
End Sub

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

 

[befaint]

7z, can thiệp trực tiếp vào cấu trúc tập tin.

 

[HeSanbi]

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

Bạn thử sử dụng mã dưới đây:

Sub DeleteShape()
    Dim Sh, k&
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In Activesheet.Shapes
       If Sh.Visible = msoFalse Then DoEvents: Sh.Delete: k = k + 1
    Next
    MsgBox "Hoan thanh " & k
End Sub

 

[cantl]

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

Có file mẫu gửi lên để test không bạn?

 

[PHONGGANHHAO]

EM CHẠY XONG NÓ HIỆN NÀY LÀ SAO Ạ ?

Bài đã được tự động gộp: 5/7/24

Bạn thử sử dụng mã dưới đây:

Sub DeleteShape()
    Dim Sh, k&
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In Activesheet.Shapes
       If Sh.Visible = msoFalse Then DoEvents: Sh.Delete: k = k + 1
    Next
    MsgBox "Hoan thanh " & k
End Sub

--------EM CHẠY XONG NÓ HIỆN NÀY Ạ

 

[HeSanbi]

@PHONGGANHHAO bạn cần cho phép chạy Macro VBA trước khi sử dụng mã. Chép lại mã sau.

Sub DeleteShape()
    Dim Sh, k&
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In Activesheet.Shapes
       If Sh.Visible = 0 Then DoEvents: Sh.Delete: k = k + 1
    Next
    MsgBox "Hoan thanh " & k
End Sub

 

[PHONGGANHHAO]

@PHONGGANHHAO bạn cần cho phép chạy Macro VBA trước khi sử dụng mã. Chép lại mã sau.

Sub DeleteShape()
    Dim Sh, k&
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In Activesheet.Shapes
       If Sh.Visible = 0 Then DoEvents: Sh.Delete: k = k + 1
    Next
    MsgBox "Hoan thanh " & k
End Sub

Em mở trong này đúng không ạ? mở rồi mà nó cũng vậy. Còn trên thanh nằm ngang thì không thấy hiện thông báo
..

 

[HeSanbi]

@PHONGGANHHAO Tích chọn cái thứ 2, nếu bạn cảm thấy các tệp excel không an toàn, tích chọn thứ tư nếu các tệp bạn sử dụng bảo đảm an toàn.

Khi mở ứng dụng, bạn nhấn Enabled Macro.

 

[UltraExcel]

View attachment 302192
EM CHẠY XONG NÓ HIỆN NÀY LÀ SAO Ạ ?

Bài đã được tự động gộp: 5/7/24

--------EM CHẠY XONG NÓ HIỆN NÀY Ạ

View attachment 302193

Chỉ cần đóng hết excel rồi mở file có macro khi màn hình hiển thị ra và có nút “enable contents” thì bấm vào là chạy được các macro trong file này nhé.