Nhờ viết code chọn ô hiện hành

[phuongc5]

Giả sử mình nhập liệu tại cột A, số liệu tới ô A3000 chẳng hạn, khi mình mở file thì mình muốn ấn vào 1 nút để con trỏ đi tới ô A3001 để nhập liệu thì làm cách nào các bạn? Rất mong được giúp đỡ.

 

[cadafi]

Giả sử mình nhập liệu tại cột A, số liệu tới ô A3000 chẳng hạn, khi mình mở file thì mình muốn ấn vào 1 nút để con trỏ đi tới ô A3001 để nhập liệu thì làm cách nào các bạn? Rất mong được giúp đỡ.

Đứng tại ô A1, ấn Ctrl + phím mũi tên xuống, khỏi cần nút với code làm gì cho rắc rối vậy bạn.

Còn vẫn muốn code thì đây:

Private Sub CommandButton1_Click()
Cells([A65536].End(xlUp).Row + 1, 1).Select
End Sub

Hoặc tương đương:

Private Sub CommandButton1_Click()
Range("A" & [A65536].End(xlUp).Row + 1).Select
End Sub

Hoặc tương đương:

Private Sub CommandButton1_Click()
[A1].Offset([A1].End(xlDown).Row, 0).Select
End Sub