Sau khi chạy code thì trở về vị trí ban đầu

[dongducnhiem]

Chào các bạn,
Ban đầu tui đang ở 1 ô bất kỳ (ví dụ ô A5, của sheet Data)
Sau khi tôi chạy code xong, thì con trỏ vẫn ở ô A5, của sheet Data
Không biết cái này có làm được không? Nếu được thì nhờ anh/em giúp đỡ. Cảm ơn nhiều!

 

[BuiQuangThuan]

Chào các bạn,
Ban đầu tui đang ở 1 ô bất kỳ (ví dụ ô A5, của sheet Data)
Sau khi tôi chạy code xong, thì con trỏ vẫn ở ô A5, của sheet Data
Không biết cái này có làm được không? Nếu được thì nhờ anh/em giúp đỡ. Cảm ơn nhiều!

Thì bạn thêm dòng này là được nè. Để ở cuối code ấy

sheets("Data").range("A5").select

 

[dongducnhiem]

Thì bạn thêm dòng này là được nè. Để ở cuối code ấy

sheets("Data").range("A5").select

Bạn chưa hiểu ý mình
Nếu lần sau trước khi chạy code, mà đang ở ô A10 thì sao

 

[BuiQuangThuan]

Bạn chưa hiểu ý mình
Nếu lần sau trước khi chạy code, mà đang ở ô A10 thì sao

Thì đầu code đặt 1 biết ghi nhận ô đang activecel. sau đó cuối code select theo cái biến đầu ấy

 

[tigertiger]

Bạn chưa hiểu ý mình
Nếu lần sau trước khi chạy code, mà đang ở ô A10 thì sao

cho lệnh sau vào đầu sub/ function là được
Application.ScreenUpdating=False

 

[ptm0412]

cho lệnh sau vào đầu sub/ function là được
Application.ScreenUpdating=False

Giả sử bên trong code select tùm lum thì activeCell đã không còn như cũ rồi.

Thì bạn thêm dòng này là được nè. Để ở cuối code ấy

sheets("Data").range("A5").select

Nếu trong code đã chạy sang sheet khác thì lệnh Select bị lỗi.

Đầu code:

Sheets("Data").Activate
Set StartCell = Sheets("Data").ActiveCell

Cuối code

Sheets("Data").Activate
StartCell.Select