chuyển sự kiện dùng phím enter sang sự kiện tab trong một vùng nhập liệu (1 người xem)

[quoc nhat]

em có đoạn code dùng để gọi form chọn dữ liệu tuy nhiên phải dùng đến phím Tab mới gọi được form 8 nay em muốn dùng cả phím enter->Tab để di chuyển qua lại các cell B63: I63 ......B68:I68 để gọi form thì thêm đoạn code như thế nào nữa?
Xin các cao thủ giúp đỡ!
Em cảm ơn nhiều!
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not MyBBChange Then Exit Sub
If Not Intersect(Target, [I63:I68]) Is Nothing Then
UserForm8.Show
End If
MyBBChange = False
Application.ScreenUpdating = False
End Sub

 

[quoc nhat]

em có đoạn code dùng để gọi form chọn dữ liệu tuy nhiên phải dùng đến phím Tab mới gọi được form 8 nay em muốn dùng cả phím enter->Tab để di chuyển qua lại các cell B63: I63 ......B68:I68 để gọi form thì thêm đoạn code như thế nào nữa?
Xin các cao thủ giúp đỡ!
Em cảm ơn nhiều!
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not MyBBChange Then Exit Sub
If Not Intersect(Target, [I63:I68]) Is Nothing Then
UserForm8.Show
End If
MyBBChange = False
Application.ScreenUpdating = False
End Sub

trong khi chờ đợi mọi người giúp đỡ em có ý kiến này:
chuyển edit move selection after enter= right
tạo thêm một form giống userform 8 như file đính kèm và cho thêm một sự kiện nữa vào Sub Worksheet_SelectionChange nhưng em lại gặp một vấn đề là khi nhấn enter đã hiện được form nhưng khi unload form đó nó lại hiện thêm một form nữa khi select đến I63:I68
Mọi người gở rối giúp em với
CODE:
Private Sub Worksheet_Change(ByVal Target As Range)
MyBBChange = Not Intersect(Target, [B63:B68]) Is Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
If Not MyBBChange Then Exit Sub
If Not Intersect(Target, [d63:d68]) Is Nothing Then
UserForm12.Show
End If
If Not Intersect(Target, [i63:i68]) Is Nothing Then
UserForm8.Show
End If
MyBBChange = False
Application.ScreenUpdating = False
End Sub

 

[quoc nhat]

có ai giúp em không?