Xóa vùng ngoài trừ những cell bị khóa và các cell có điều kiện

[thomtv]

các A/c cho em hỏi, muốn xóa vùng nhưng trong đó có những cell bị khóa vậy làm cách nào xóa được vùng mà không xóa các cell bị khóa.
VD: vùng A1:H30 (trong đó có D5 và H2 bị khóa, và D8:H8 không khóa nhưng có dữ liệu) vậy muốn xóa hết các số liệu trong vùng A1:H30 chỉ chừa lại D5,H2 và D8:H8.
Các pro code viết dùm em 1 đoạn với.
Mong các A/c chỉ giáo. trân trọng cảm ơn.

 

[Quang_Hải]

các A/c cho em hỏi, muốn xóa vùng nhưng trong đó có những cell bị khóa vậy làm cách nào xóa được vùng mà không xóa các cell bị khóa.
VD: vùng A1:H30 (trong đó có D5 và H2 bị khóa, và D8:H8 không khóa nhưng có dữ liệu) vậy muốn xóa hết các số liệu trong vùng A1:H30 chỉ chừa lại D5,H2 và D8:H8.
Các pro code viết dùm em 1 đoạn với.
Mong các A/c chỉ giáo. trân trọng cảm ơn.

Xài chiêu tà đạo này nhé

Sub xoa()
Dim a, b
ActiveSheet.Unprotect 123
a = [d5]: b = [h2]
Union([a1:h7], [a9:h30]).ClearContents
[d5] = a: [h2] = b
ActiveSheet.Protect 123
End Sub

 

[thomtv]

Xài chiêu tà đạo này nhé

Sub xoa()
Dim a, b
ActiveSheet.Unprotect 123
a = [d5]: b = [h2]
Union([a1:h7], [a9:h30]).ClearContents
[d5] = a: [h2] = b
ActiveSheet.Protect 123
End Sub

Nếu trong vùng có nhiều cell bị khóa theo dạng "da beo" thì mình đặt điều kiện hơi nhiều (có nghĩa là đặt điều kiện cho các cell bị khóa thì không bị xóa), có cách nào ngắn gọn hơn không. xin được hướng dẫn cụ thể, vì mình mới học VAB thôi.
Trân trọng cảm ơn

 

[Quang_Hải]

Nếu trong vùng có nhiều cell bị khóa theo dạng "da beo" thì mình đặt điều kiện hơi nhiều (có nghĩa là đặt điều kiện cho các cell bị khóa thì không bị xóa), có cách nào ngắn gọn hơn không. xin được hướng dẫn cụ thể, vì mình mới học VAB thôi.
Trân trọng cảm ơn

Cách thì chắc cũng có, có thể dài hoặc ngắn nhưng tốt nhất bạn đưa fie có dữ liệu thật thì may ra viết code đúng yêu cầu

 

[thomtv]

Cách thì chắc cũng có, có thể dài hoặc ngắn nhưng tốt nhất bạn đưa fie có dữ liệu thật thì may ra viết code đúng yêu cầu

xin lỗi vình mình chỉ hỏi để học và thử nghiệm code có thể xóa và chừa lại các vùng có điều kiện, và chừa lại những vùng hay cell bị khóa. mong bạn hướng dẫn và giải thích thêm.
Trân trọng