Làm thế nào để xóa nhiều data validation cùng lúc!

[kimdong80]

Mình có nhiều sheet, mỗi sheet lại có nhiều cột định dạng bằng data validation. Mình muốn cùng lúc xóa tất cả data validation của workbook đó. Nếu dùng F5->special thì chỉ xóa được hết data validation của 1 sheet thôi mà nếu chọn nhiều sheet cùng lúc thì ko thể chọn ddata validation. Mong mọi người giúp đỡ

 

[Po_Pikachu]

Bạn thử code này xem!

Sub chay()
On Error Resume Next
For Each sh In Worksheets
    sh.Select
    ActiveCell.SpecialCells(-4174).Validation.Delete
Next
End Sub

Thân.

 

[kimdong80]

Không được bạn hiền ơi. Chịu khó giúp mình lần nữa nhé.Mình biết là chỉ có cách dùng code thôi nhưng không biết code nên bó tay thôi.Chắc rảnh rổi phải nghiên cứu thêm. Thanks

 

[ndu96081631]

Không được bạn hiền ơi. Chịu khó giúp mình lần nữa nhé.Mình biết là chỉ có cách dùng code thôi nhưng không biết code nên bó tay thôi.Chắc rảnh rổi phải nghiên cứu thêm. Thanks

Sửa code thành vầy xem

Sub chay()
  Dim sh As Worksheet
  On Error Resume Next
  For Each sh In Worksheets
    sh.Cells.SpecialCells(15).Validation.Delete
  Next
End Sub

Tức có thêm dòng khai báo biến ở trên cùng

 

[kimdong80]

Cám ơn bạn nhé. Lúc đầu mình cũng làm không được, sau đó mình nhớ ra là do protect sheet nên không có tác dụng, unlock xong thì chạy được