hỏi về cách chọn các cell trong 1 vùng

[uniz]

bình thường khi chọn nguyên 1 loạt các cell trong cùng 1 cột hay cùng 1 hàng, thường ta dùng Ctrl+Shìft+Narrow key, khi đó, Excel sẽ chọn tất cả các cell từ ô mình đang đứng đến cell cuối cùng, kế đó là 1 dòng hoặc cột trống.

vậy khi code VBA thì mình sẽ code thế nào để excel có thể chọn ô như mình thao tác bình thường đc nhỉ.

thanks các bác

 

[PhanTuHuong]

Rất đơn giản là bạn ghi lại macro và đọc nội dung công việc đó.

 

[uniz]

Rất đơn giản là bạn ghi lại macro và đọc nội dung công việc đó.

mình đã dùng macro để lấy code và đọc nhưng kô giúp gì được.

vd

ActiveCell.FormulaR1C1 = "=SUM(R[-7]C:R[-1]C)"

nghĩa là Excel sẽ chọn từ 7 cells bắt đầu từ cell đang được selected, nhưng ko biết được cách để excel dừng đúng cell cuối cùng

 

[ditimdl]

Ví dụ:

Sub copy()
Range("H4").Select ' Chọn ô H4
Selection.Copy ' Copy H4
Range("J4").Select ' Chọn ô J4
ActiveSheet.Paste ' Paste ô H4 vào ô J4
Selection.AutoFill Destination:=Range("J4:J15"), Type:=xlFillDefault ' Kéo công thức từ J4 đến J15, tương tự bạn kéo sang trái hoặc phải thì thay đổi nội dung trong Range(" ")
End sub

Cái này bạn ghi macro rồi thử thì biết.

 

[ChanhTQ@]

Bạn hãy tạo dữ liệu như bảng dưới đây & chạy thử macro sau

khi cần chọn nguyên 1 loạt các cell trong cùng 1 cột hay cùng 1 hàng, thường ta dùng ctrl+shìft+narrow key, khi đó, excel sẽ chọn tất cả các cell từ ô mình đang đứng đến cell cuối cùng, kế đó là 1 dòng hoặc cột trống.
Vậy khi code vba thì mình sẽ code thế nào để excel có thể chọn ô như mình thao tác bình thường đc nhỉ.

| r | s | t | u |
1 |4||||
2 |||.|||
3 |3||gpe1|gpe2|
4 |5|||gpe3|
5 |3||||
6 |||gpe7|gpe6|
7 |9||1|2|

(Các chữ mờ là ký hiệu dòng & cột)

& Macro:

Option Explicit
Sub GoToAndSelect()
 Dim Rng As Range
 
 Set Rng = [r4]
 Range(Rng, Rng.End(xlUp)).Select:           MsgBox Selection.Address, , "1"
 Set Rng = [r3]
 Range(Rng, Rng.End(xlUp)).Select:           MsgBox Selection.Address, , "2"
 Set Rng = [r5]
 Range(Rng, Rng.End(xlDown)).Select:         MsgBox Selection.Address, , "3"
 Set Rng = [r3]
 Range(Rng, Rng.End(xlToRight)).Select:      MsgBox Selection.Address, , "4"
 Set Rng = [U3]
 Range(Rng, Rng.End(xlToLeft)).Select:       MsgBox Selection.Address, , "5"

End Sub