Mọi người giúp mình viết code cho nút Delete trong file excel (đính kèm)

[quangthanhdu]

Nội dung mình đã thể hiện trong file. Chân thành cảm ơn.

 

[MinhCong]

Nội dung mình đã thể hiện trong file. Chân thành cảm ơn.

1/Trước hết xin chỉnh lại đưa cột tổng về phía trước tầng 1 (Để khỏi bận tâm có click nút xóa gì cả). Bạn dùng tạm đoạn code này vậy (Vì Mình mới tập viết code thôi) Thấy không hay lắm nhưng giải quyết được vấn đề của Bạn
Hy vọng có những đoạn code hay hơn.

 

[concogia]

Nội dung mình đã thể hiện trong file. Chân thành cảm ơn.

Xóa xong rồi mà có lỡ bấm xóa lần nữa thì nó cũng xóa những chỗ đã xóa ( híc, đâu còn gì trong đó), đâu có ảnh hưởng gì tới "hòa bình thế giới" mà lo ngăn chân
Chỉ cần giới hạn giá trị của B1 (số tầng) từ 1 => 9 là được rồi mà bạn

Private Sub CommandButton1_Click()
    tang = Range("b1")
      If tang > 9 Or tang <= 0 Then MsgBox (" NHAP LAI SO TANG"): Exit Sub
        Range(Cells(5, tang + 4), Cells(5, 13).End(xlDown)).ClearContents
End Sub

Xí quên, trong bảng của bạn phải đủ dữ liệu nhé