Select vùng chọn theo điều kiện (1 người xem)

[giaosucan]

Chào các bác em đang gặp vấn đề về excel
em có 1 bảng gồm 7 cột, 8 dòng. Ý tưởng của em là
khi ở một active cell nào đó, chạy 1 marco A thì toàn bộ hàng (trong table đó ko phải cả sheet) chứa active cell được select. Tương tự chạy marco B thì toàn bộ cột được select.

Khi lựa chọn cột thì excel sẽ tìm toàn bộ những cột có dữ liệu thì mới select.
VD trong file đính kèm, cột có dữ liệu là từ 1->7, khi run marco thì từ hàng A1->A7 sẽ dc select. Nếu chỉ có dữ liệu từ cột 1-->6 thì hàng A1-->A6 dc select
Khi lựa chọn hàng cũng tương tự như vậy
Thank các bác nhiều ạ

 

[hoangvuluan]

Xem trong file đính kèm có 2 nút Chọn_Hàng và Chọn_Cột, và 2 macro trong cửa sổ mã của sheet1 đã thực hiện đúng các yêu cầu của bạn chưa?

 

[giaosucan]

thank bác, Ý tưởng của em là việc chọn cột hay hàng phụ thuộc vào cột hay hàng tiêu đề chứ ko phải phụ thuộc vào dữ liệu của chính hàng hay cột đó
VD
trong file đính kèm, nếu đang ở ô C9 chọn select cột thì excel sẽ select toàn bộ cột từ C9->C16 do cột tiêu đề (cột B) có dữ liệu từ B9:B16. (cột dc điền từ A->H). Nếu cột B chỉ có dữ liệu từ A đến G thì chỉ select từ C9->C15

 

[nghiaphuc]

thank bác, Ý tưởng của em là việc chọn cột hay hàng phụ thuộc vào cột hay hàng tiêu đề chứ ko phải phụ thuộc vào dữ liệu của chính hàng hay cột đó
VD
trong file đính kèm, nếu đang ở ô C9 chọn select cột thì excel sẽ select toàn bộ cột từ C9->C16 do cột tiêu đề (cột B) có dữ liệu từ B9:B16. (cột dc điền từ A->H). Nếu cột B chỉ có dữ liệu từ A đến G thì chỉ select từ C9->C15

Bạn tham khảo code sau xem đúng ý chưa nhé:
- Chọn hàng:

Sub SelectRow()
    Intersect(ActiveCell.EntireRow, Range([C8], [IV8].End(xlToLeft)).EntireColumn).Select
End Sub

- Chọn cột:

Sub SelectColumn()
    Intersect(ActiveCell.EntireColumn, Range([B9], [B65536].End(xlUp)).EntireRow).Select
End Sub

 

[giaosucan]

ah ok rồi bác thank bác