Drop down hay cái gì mà không xóa được?

[olegtran]

Trong file làm việc tôi xem, có 2 drop down không có nội dung gì, không biết lấy từ đâu, và cũng không xóa được.
Ai có thể giúp tôi "vạch mặt chỉ tên kẻ ẩn danh" được không? Xin cảm ơn nhiều. (xem file đình kèm)

 

[batman1]

Tôi cũng chả biết vị này bị bệnh gì, cũng chả tìm hiểu làm gì. Bệnh nguy hiểm thì cho đi luôn.
Chạy code (Alt + F11 -> menu Insert -> Module -> dán code dưới)

Sub mot_nhat_dao_vao_lung_ke_an_danh()
Dim shp As Shape
    For Each shp In Sheet29.Shapes
        If InStr(1, shp.Name, "Drop Down") = 1 Then shp.Delete
    Next shp
End Sub

 

[olegtran]

Chuẩn! Cảm ơn Batman1! nhưng có 2 cái cần nói thêm:
1- Có cách nào dùng tay không diệt được không? vì sao k lôi cổ nó ra bình thường băng phím hay chuột được?
2- Cai VBA "nhat_dao_vao_lung_ke_an_danh" - đúng là diệt phát ăn ngay! Có điều ý là nó sẽ diệt hết tất cả shapes, không kể ta hay địch nên dùng dao loại này phải cẩn thận.

 

[batman1]

Chuẩn! Cảm ơn Batman1! nhưng có 2 cái cần nói thêm:
1- Có cách nào dùng tay không diệt được không? vì sao k lôi cổ nó ra bình thường băng phím hay chuột được?
2- Cai VBA "nhat_dao_vao_lung_ke_an_danh" - đúng là diệt phát ăn ngay! Có điều ý là nó sẽ diệt hết tất cả shapes, không kể ta hay địch nên dùng dao loại này phải cẩn thận.

Nếu "địch" ít thì làm 1 danh sách "địch" rồi trong code kiểm tra xem shp.Name có trong danh sách không. Nếu có thì shp.Delete.

Nếu "ta" ít" thì 1 danh sách "ta" rồi trong code kiểm tra xem shp.Name có trong danh sách không. Nếu không có có thì shp.Delete.

Để biết ta hay địch thì trong vòng For kia vd.

Debug.Print shp.Name

Sau đó nhìn vào danh sách thì biết đâu là quân ta, số còn lại là địch.