Code tìm ô kích hoạt sau cùng ?

[TrungChinhs]

Chào các bạn. Trong bảng tính Tôi muốn tìm ô được kích hoạt sau cùng thì Code viết như thế nào ?

Ví dụ: Tôi nhập dữ liệu vào ô B2 sau đó rời con trỏ đến một ô khác thì Msgbox thông báo địa chỉ của ô B2, nếu sau đó tôi nhập dữ liệu vào ô D4 và rời con trỏ sang ô khác thì Msgbox thông báo địa chỉ của ô D4 (D4 là ô được kích hoạt sau cùng chứ không phải là ô cuối cùng có dữ liệu vì có thể ô nào đó sau D4 đã có dữ liệu).

Thanks!

 

[ndu96081631]

Chào các bạn. Trong bảng tính Tôi muốn tìm ô được kích hoạt sau cùng thì Code viết như thế nào ?

Ví dụ: Tôi nhập dữ liệu vào ô B2 sau đó rời con trỏ đến một ô khác thì Msgbox thông báo địa chỉ của ô B2, nếu sau đó tôi nhập dữ liệu vào ô D4 và rời con trỏ sang ô khác thì Msgbox thông báo địa chỉ của ô D4 (D4 là ô được kích hoạt sau cùng chứ không phải là ô cuối cùng có dữ liệu vì có thể ô nào đó sau D4 đã có dữ liệu).

Thanks!

Anh thử code này xem:

Dim LastCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not LastCell Is Nothing Then
    MsgBox LastCell.Address
  End If
  Set LastCell = ActiveCell
End Sub

Em đoán và làm đại ---> Hy vọng đúng ý anh!

 

[ptlong04x1]

Cho em góp vui với, đại khái bắt chước code của anh Ndu.

Private Last As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Last <> "" Then MsgBox Last
    Last = Replace(Target.Address, "$", "")
End Sub

 

[SA_DQ]

Thêm một giả dụ:

Option Explicit
Dim OldCell As Range

Private Sub Worksheet_Activate()
 Set OldCell = [A1]
End Sub

[B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
   Set OldCell = Target
[B]End Sub[/B]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, OldCell) Is Nothing Then
   MsgBox OldCell.Address:           Set OldCell = Target
 End If
End Sub

 

[TrungChinhs]

Cảm ơn ndu96081631, ptlong04x1 và bác HYen17
Tôi đã test code trong cả 3 bài trên đều OK.