GIúp sự kiện change phải hiểu ô đúng ô đang chỉnh sửa là dòng nào

[minhtuan55]

Chào cả nhà GPE. Em cần giúp với đoạn code này

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
I = Selection.Row
MsgBox (I)
End Sub

Code trên khi em sửa dữ liệu tại dòng số 10 thì sau khi enter nó lại hiện dòng thông báo là 11 . Mà rõ ràng là em đang sữa tại dòng số 10
Em muốn code trên em sửa dòng nào dù em có enter lên xuống trái phải thì phải ngay dòng em đang sửa. Xin chân thành cảm ơn Mũ N +1

 

[LamNA]

Chào cả nhà GPE. Em cần giúp với đoạn code này

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
I = Selection.Row
MsgBox (I)
End Sub

Code trên khi em sửa dữ liệu tại dòng số 10 thì sau khi enter nó lại hiện dòng thông báo là 11 . Mà rõ ràng là em đang sữa tại dòng số 10
Em muốn code trên em sửa dòng nào dù em có enter lên xuống trái phải thì phải ngay dòng em đang sửa. Xin chân thành cảm ơn Mũ N +1

Bạn thêm -1 thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
I = Selection.Row - 1
MsgBox (I)
End Sub

 

[Hai Lúa Miền Tây]

Bạn thêm -1 thử xem

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
I = Selection.Row - 1
MsgBox (I)
End Sub

Không ổn nhé bạn, nếu làm như bạn thì người ta nhập xong, click chuột sang cell khác mà không dùng enter hoặc mũi tên xuống sẽ bị sai nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox (Target.Row)
End Sub

 

[minhtuan55]

Không ổn nhé bạn, nếu làm như bạn thì người ta nhập xong, click chuột sang cell khác mà không dùng enter hoặc mũi tên xuống sẽ bị sai nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox (Target.Row)
End Sub

Code bác phải nó là VÔ CÙng chỉnh xác