Dịch chuyển con trỏ bằng phím Enter

[le_vis]

Tôi có sử dụng Form nhập liêu muốn sử dụng code di chuyển con trỏ tới từng vị trí định trước (Theo số thứ tự từ 1đến 21 ghi trên Form) sau mỗi lần bấm Enter.

Kính mong nhận được sự giúp đỡ của các bạn - Xin trân trọng cảm ơn

 

[le_vis]

Trong bài #1 tôi có sử dụng đoạn code của bạn phulien1902 rồi tùy biến theo Fiel của mình nhưng bị tắc nữa chừng không biết cách thực hiện tiếp. Kính mong nhận được sự hỗ trợ của các bạn - Xin chân thành cảm ơn.

 

[Hong.Van]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$5" Then
        Range("I5").Select
    End If
    If Target.Address = "$I$5" Then
        Range("E6").Select
    End If
End Sub

Không biết có đúng ý bạn không. Đây chỉ là demo

 

[le_vis]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$5" Then
        Range("I5").Select
    End If
    If Target.Address = "$I$5" Then
        Range("E6").Select
    End If
End Sub

Không biết có đúng ý bạn không. Đây chỉ là demo

Cảm ơn Hong.Van - Đúng ý mình rồi - Xin cảm ơn bạn nhiều

 

[Hong.Van]

Cảm ơn Hong.Van - Đúng ý mình rồi - Xin cảm ơn bạn nhiều

Trường hợp, bạn muốn rẻ nhánh khi = Nam hay = Nữ thì sẽ nhảy khác cell

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$5" Then
        If Target = "Nam" Then
            Range("I5").Select
        ElseIf Target = "N" & ChrW(7919) Then
            Range("O5").Select
        End If
    End If
    If Target.Address = "$I$5" Then
        Range("E6").Select
    End If
End Sub