xóa các shape ẩn trong sheet excel (8 người xem)

[Vân Vân Ngô]

Thưa các anh chị,
Mình có vấn đề như sau: Trong file từ đâu chứa rất nhiều các shape ẩn (dạng No colour, No Line) khắp nơi trong file, chỉ khi mình rê chuột dò mới phát hiện, chọn nó xóa đi không xuể vì ở khắp nơi, và thậm chí ngay vị trí đó không biết có mấy cái chồng lên nhau. Mình gửi file gốc và file ảnh chụp lại vấn đề để mọi người dễ nhận ra hơn.
Có cách nào group chọn hết được cùng một lúc rồi xóa đi một lần, hay như cái chổi quét nhà, quét một lần đi hết các shape ẩn này giúp mình không ạ
Để vậy qua năm tháng file rất nặng thì phải
Mình xin chân thành cảm ơn!
Chúc cả nhà ngày vui

 

[phulien1902]

Thưa các anh chị,
Mình có vấn đề như sau: Trong file từ đâu chứa rất nhiều các shape ẩn (dạng No colour, No Line) khắp nơi trong file, chỉ khi mình rê chuột dò mới phát hiện, chọn nó xóa đi không xuể vì ở khắp nơi, và thậm chí ngay vị trí đó không biết có mấy cái chồng lên nhau. Mình gửi file gốc và file ảnh chụp lại vấn đề để mọi người dễ nhận ra hơn.
Có cách nào group chọn hết được cùng một lúc rồi xóa đi một lần, hay như cái chổi quét nhà, quét một lần đi hết các shape ẩn này giúp mình không ạ
Để vậy qua năm tháng file rất nặng thì phải
Mình xin chân thành cảm ơn!
Chúc cả nhà ngày vui

Cách 1: Bạn làm như sau:
+> Nhấn đồng thời Crtl +G
+> Chọn Specials ----> Objects ---> OK
+> Nhấn phím Delete.
Xong.

Cách 2: dùng Code

Sub ABC()
    Application.ScreenUpdating = False
    With Sheets("BCC MOI")
        .Shapes.SelectAll
        Selection.Delete
    End With
    Application.ScreenUpdating = True
End Sub

 

[Vân Vân Ngô]

Mình dùng Cách 1, Crtl + G .... mừng quá .... thành công, trắng tinh, trong veo, mượt mà, nhẹ nhõm =))
Đợi quét để group hết 18minites, khóc luôn.
Lại được gặp lại rồi #phulien1902 và mọi người
Trân trọng cảm ơn và chúc mọi người ngày vui!

Cách 1: Bạn làm như sau:
+> Nhấn đồng thời Crtl +G
+> Chọn Specials ----> Objects ---> OK
+> Nhấn phím Delete.
Xong.

Cách 2: dùng Code

Sub ABC()
    Application.ScreenUpdating = False
    With Sheets("BCC MOI")
        .Shapes.SelectAll
        Selection.Delete
    End With
    Application.ScreenUpdating = True
End Sub

 

[Vân Vân Ngô]

Cách 1: Bạn làm như sau:
+> Nhấn đồng thời Crtl +G
+> Chọn Specials ----> Objects ---> OK
+> Nhấn phím Delete.
Xong.

Cách 2: dùng Code

Sub ABC()
    Application.ScreenUpdating = False
    With Sheets("BCC MOI")
        .Shapes.SelectAll
        Selection.Delete
    End With
    Application.ScreenUpdating = True
End Sub

Mình chưa thể biết áp dụng cái code này vào như thế nào c, hụ hụ ...Mình mới biết dùng phím với công thức ah, ahiii. TKS bạn nhé

 

[huonglien1901]

Mình chưa thể biết áp dụng cái code này vào như thế nào c, hụ hụ ...Mình mới biết dùng phím với công thức ah, ahiii. TKS bạn nhé

1.Bạn nhấn alt+f11 hộp thoại hiện lên,
2. bạn vào insert-module sau đó copy code này vào.
3. Nhấn f5 xem kết quả .

 

[phulien1902]

Mình chưa thể biết áp dụng cái code này vào như thế nào c, hụ hụ ...Mình mới biết dùng phím với công thức ah, ahiii. TKS bạn nhé

Bạn làm như sau:
+> Mở File của bạn ra
+>Gõ Alt +F11
+> Vào Insert ---> Module
+>Copy Code bài #2 dán vào Module
+> Ghi lại
+> Nhấn F5 để chạy Code.

Chú ý: Tôi có đổi Sheets("BCC MỚI") của bạn thành Sheets("BCC MOI"). Vì vậy khi chạy Code bạn nhớ đổi tên Sheets.
Chỉ có vậy thôi.

 

[Vân Vân Ngô]

Bạn làm như sau:
+> Mở File của bạn ra
+>Gõ Alt +F11
+> Vào Insert ---> Module
+>Copy Code bài #2 dán vào Module
+> Ghi lại
+> Nhấn F5 để chạy Code.

Chú ý: Tôi có đổi Sheets("BCC MỚI") của bạn thành Sheets("BCC MOI"). Vì vậy khi chạy Code bạn nhớ đổi tên Sheets.
Chỉ có vậy thôi.

Yes, mình hiểu hết rồi. Cảm ơn bạn

 

[Vân Vân Ngô]

1.Bạn nhấn alt+f11 hộp thoại hiện lên,
2. bạn vào insert-module sau đó copy code này vào.
3. Nhấn f5 xem kết quả .

Cảm ơn bạn nhiều nhé

 

[JOLO_SH]

Cách 1: Bạn làm như sau:
+> Nhấn đồng thời Crtl +G
+> Chọn Specials ----> Objects ---> OK
+> Nhấn phím Delete.
Xong.

Cách 2: dùng Code

Sub ABC()
    Application.ScreenUpdating = False
    With Sheets("BCC MOI")
        .Shapes.SelectAll
        Selection.Delete
    End With
    Application.ScreenUpdating = True
End Sub

cảm ơn bác <3<3<3<3<3<3<3<3<3<3<3<3<3<3<3<3

 

[cavang2]

Cách 1: Bạn làm như sau:
+> Nhấn đồng thời Crtl +G
+> Chọn Specials ----> Objects ---> OK
+> Nhấn phím Delete.
Xong.

Cách 2: dùng Code

Sub ABC()
    Application.ScreenUpdating = False
    With Sheets("BCC MOI")
        .Shapes.SelectAll
        Selection.Delete
    End With
    Application.ScreenUpdating = True
End Sub

Dùng cách 2 chỉ muốn xóa 20 cái shape thôi thì làm thế nào nhỉ ?

 

[batman1]

Dùng cách 2 chỉ muốn xóa 20 cái shape thôi thì làm thế nào nhỉ ?

Tập nói cả câu đi. 20 bất kỳ hay 20 mắt nâu, hay 20 có vòng 1 bốc lửa, hay 20 có đặc điểm gì đó?

 

[ptm0412]

Tập nói cả câu đi. 20 bất kỳ hay 20 mắt nâu, hay 20 có vòng 1 bốc lửa, hay 20 có đặc điểm gì đó?

Và câu hỏi cần có ngôi thứ hai. Hỏi trống không "thế nào nhỉ" hoặc hỏi "giờ làm sao ta" thì cũng như tự hỏi, sẽ chỉ có "ta" trả lời cho "ta" thôi.

(Chờ giao thừa để cúng mà sao lâu quá)

 

[batman1]

Và câu hỏi cần có ngôi thứ hai. Hỏi trống không "thế nào nhỉ" hoặc hỏi "giờ làm sao ta" thì cũng như tự hỏi, sẽ chỉ có "ta" trả lời cho "ta" thôi.

Kiểu này là kiểu nói thiếu chủ vị, nhưng nếu là dấu cảm thán ở cuối câu thay cho dấu hỏi thì là câu chuẩn thì phải.

(Chờ giao thừa để cúng mà sao lâu quá)

Tôi đi lâu quá nên không nhớ rõ nhưng cúng thì từ lâu rồi, giao thừa là "hạ" chứ nhỉ.

 

[ptm0412]

Kiểu này là kiểu nói thiếu chủ vị, nhưng nếu là dấu cảm thán ở cuối câu thay cho dấu hỏi thì là câu chuẩn thì phải.

Câu của tác giả có dấu chấm hỏi, không có "vị" nên là tự hỏi. Câu có dấu than (!) là câu cảm thán và không cần trả lời.

Tôi đi lâu quá nên không nhớ rõ nhưng cúng thì từ lâu rồi, giao thừa là "hạ" chứ nhỉ.

Lúc trưa là cúng mâm cơm rước ông bà, còn cúng giao thừa nên là đúng vào thời khắc "giao" thừa (00h 00), có thêm bàn cúng trời (cúng thiên) và đón ông Táo về.

 

[PerSP]

Dùng cách 2 chỉ muốn xóa 20 cái shape thôi thì làm thế nào nhỉ ?

Sub SelectAndDeleteFirst100Shapes()
    Dim ws As Worksheet
    Dim shp As Shape
    Dim shapeList As Collection
    Dim i As Integer
    
    ' Ðặt biến là trang tính hiện tại
    Set ws = ThisWorkbook.ActiveSheet
    Set shapeList = New Collection

    'Thêm 500 shape đầu tiên vào bộ sưu tập
    For Each shp In ws.Shapes
        If shapeList.Count < 500 Then
            shapeList.Add shp
        Else
            Exit For
        End If
    Next shp
    
    ' Xóa tất cả shape trong bộ sưu tập
    For i = 1 To shapeList.Count
        shapeList(i).Delete
    Next i
End Sub

Bạn thay số 500 bằng số bất kỳ để xóa được số shape mong muốn nhé.