code nào thực hiện lệnh enter xuống ô tiếp theo (1 người xem)

[phamxuyenp171]

Tôi muốn tạo một macro mà sau khi chạy macro này thì con trỏ di chuyển xuống ô tiếp theo. Ô hiện tại là ô bất kì. Xin mọi người giúp đỡ.

 

[Ngoai Thanh]

Tôi muốn tạo một macro mà sau khi chạy macro này thì con trỏ di chuyển xuống ô tiếp theo. Ô hiện tại là ô bất kì. Xin mọi người giúp đỡ.

Bạn copy tý code này rồi chạy xem sao

Sub dichuyen()
ActiveCell.Offset(1).Select
End Sub

 

[ndu96081631]

Tôi muốn tạo một macro mà sau khi chạy macro này thì con trỏ di chuyển xuống ô tiếp theo. Ô hiện tại là ô bất kì. Xin mọi người giúp đỡ.

Để chạy macro, bạn phải tốn công bấm Alt + F8 hoặc nhấn vào nút nào đó (đã được Asign Macro tới code).
Đằng nào cũng tốn công, vậy sao không bấm nút MŨI TÊN XUỐNG cho nó lẹ?
(theo tôi thì còn lẹ hơn việc chạy 1 macro)

 

[Ngoai Thanh]

Để chạy macro, bạn phải tốn công bấm Alt + F8 hoặc nhấn vào nút nào đó (đã được Asign Macro tới code).
Đằng nào cũng tốn công, vậy sao không bấm nút MŨI TÊN XUỐNG cho nó lẹ?
(theo tôi thì còn lẹ hơn việc chạy 1 macro)

kể cũng kỳ, nếu thao tác thì núm enter là dễ và nhanh nhất, không hiểu ý đồ tác giả làm sao nữa ? Chắc họ còn thêm giai đoạn sau nữa thày ạ !

 

[phamxuyenp171]

Bạn copy tý code này rồi chạy xem sao

Sub dichuyen()
ActiveCell.Offset(1).Select
End Sub

Cảm ơn bác nhiều nha.

 

[phamxuyenp171]

Bạn copy tý code này rồi chạy xem sao

Sub dichuyen()
ActiveCell.Offset(1).Select
End Sub

Hay thật, tôi đang cần cái này. Xin hỏi thêm bác tí nữa nhé: Nếu muốn di chuyển sang ô bên phải thì làm sao hở bác?

 

[Ngoai Thanh]

Hay thật, tôi đang cần cái này. Xin hỏi thêm bác tí nữa nhé: Nếu muốn di chuyển sang ô bên phải thì làm sao hở bác?

Bạn thay sub trên bằng
Sub dichuyen()
ActiveCell.Offset(,1).Select
End Sub

 

[phamxuyenp171]

Để chạy macro, bạn phải tốn công bấm Alt + F8 hoặc nhấn vào nút nào đó (đã được Asign Macro tới code).
Đằng nào cũng tốn công, vậy sao không bấm nút MŨI TÊN XUỐNG cho nó lẹ?
(theo tôi thì còn lẹ hơn việc chạy 1 macro)

Vì tôi muốn tự động di chuyển đến từng ô để hiệu chỉnh dữ liệu ở ô đó khi có sai sót bác ạ!

 

[vu_tuan_manh_linh]

Hay thật, tôi đang cần cái này. Xin hỏi thêm bác tí nữa nhé: Nếu muốn di chuyển sang ô bên phải thì làm sao hở bác?

ActiveCell.Offset(x,y)
Trong đó: x là số dòng tịnh tiến tính từ cell hiện hành, y là số cột tịnh tiến tính từ cell hiện hành. Mặc định x=0, y=0 là cell hiện hành. Sang phải thì y>0, sang trái thì y<0, lên trên thì x<0, xuống dưới thì x>0. Câu lệnh trên viết đầy đủ là ActiveCell.Offset(1,0).Select. Đại loại là như thế!!!

 

[thangteotdtt]

Hay thật, tôi đang cần cái này. Xin hỏi thêm bác tí nữa nhé: Nếu muốn di chuyển sang ô bên phải thì làm sao hở bác?

Hoặc có thể như thế này cũng được.

Sub VD ()
ActiveCell.Offset(0, 1).Select
end sub

Nếu bạn muốn hiểu về nó, bạn thay số 1 đó bằng số khác, thử xem nhé bạn.

 

[phamxuyenp171]

Bạn thay sub trên bằng
Sub dichuyen()
ActiveCell.Offset(,1).Select
End Sub

Cảm ơn bác nhiều nha. Hay quá đi thôi.