Kemmie Nguyen
Thành viên mới
![](/diendan/data/PhoToDanhHieu/gold.gif)
- Tham gia
- 28/6/24
- Bài viết
- 18
- Được thích
- 4
Hic em xin lỗi em đã cố gắng không viết tắt mà vẫn bị lỗi vài chỗ.Việc này thực hiện được, nếu bạn sửa mấy từ viết tắt đi sẽ được hỗ trợ.
Dạ em cảm ơn rất nhiều, lát nữa về đến nhà em sẽ làm thử và phản hồi kết quả ạTham khảo macro này & sửa lại theo ý của bạn:
PHP:Sub ChonVungCoDinh() [b7].Resize(9, 7).Select MsgBox Selection.Cells.Count End Sub
Sửa cả chỗ bôi đậm nữa nhé.Hic em xin lỗi e đã cố gắng không viết tắt mà vẫn bị lỗi vài chỗ.
.
Em đã chỉnh sửa rồi, hoặc có chỗ nào sai sót mong anh hướng dẫn giúp.
Em có làm 1 ảnh minh họa về kết quả vùng chọn mong muốn để bổ sung thêm: vì có thể sẽ thêm dòng do khách nhiều nên khi thêm dòng vùng chọn sẽ không còn là vùng B7:H36 ạ
View attachment 302462
Sửa cả chỗ bôi đậm nữa nhé. (Dạ em đã sửa rồi ạ)
Em cảm ơn anh/chị @Hoàng Tuấn 868 và @ptm0412 rất nhiều.Câu lệnh select:
Sheets("RB_DATABASE").Range("B7:H36").Select
Câu lệnh xóa (giữ lại định dạng)
Sheets("RB_DATABASE").Range("B7:H36").ClearContents
Tuy nhiên nếu chỉ để xóa thì không cần select.
Bạn không cần thêm dòng code mới vào, thay chữ Select bằng Clearcontents là đủ.Em cảm ơn anh/chị @Hoàng Tuấn 868 và @ptm0412 rất nhiều.
Em vừa xem vừa "chế" theo các dòng code thì cuối cùng sau khi ấn [DATA] thì nó vừa chọn đúng vùng (cho dù có thêm dòng, thêm cột) và vừa giúp xoá luôn vô cùng tiện lợi.
Em cảm ơn các anh/chị rất nhiều. Chúc mọi người thật nhiều sức khoẻ
View attachment 302481