Chọn vùng trong VBA

[Kemmie Nguyen]

Dạ em chào mọi người. Em cần chọn vùng cố định bằng VBA. Em muốn khi ấn vào nút [DATA] thì sẽ chọn vùng dữ liệu từ B7:H36 ạ.
Mong được mọi người giúp đỡ ạ.

 

[Kemmie Nguyen]

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ợ.

Hic em xin lỗi em đã 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 ạ

 

[SA_DQ]

Tham khảo macro này & sửa lại theo ý của bạn:

Sub ChonVungCoDinh()
 [b7].Resize(9, 7).Select
 MsgBox Selection.Cells.Count , , Selection(1).Value

End Sub

 

[Kemmie Nguyen]

Tham khảo macro này & sửa lại theo ý của bạn:

Sub ChonVungCoDinh()
 [b7].Resize(9, 7).Select
 MsgBox Selection.Cells.Count
End Sub

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ả ạ

 

[Hoàng Tuấn 868]

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é.

 

[ptm0412]

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.

 

[Kemmie Nguyen]

Sửa cả chỗ bôi đậm nữa nhé. (Dạ em đã sửa rồi ạ )

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.

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ẻ

 

[Hoàng Tuấn 868]

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

Bạn không cần thêm dòng code mới vào, thay chữ Select bằng Clearcontents là đủ.