敲击回车时，活动单元格跳转

YZC51

请参考
活动单元格按序跳转.rar (16.24 KB, 下载次数: 5)

2019-8-26 10:36 上传

点击文件名下载附件

YZC51

dsyxr903 发表于 2019-8-25 23:57
谢谢两位热心大神，我用了个笨方法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Target.Address = "$G$2" Then [b5].Select
  If Target.Address = "$J$14" Then
    [c2].Select
  Else
    If Target.Column = 3 Then Target(1, 2).Select
    If Target.Column = 6 Then Target(1, 3).Select
    If Target.Column = 10 Then Target(2, -7).Activate
  End If
End Sub

YZC51

请参考
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$G$2" Then [b5].Select
  If Target.Address = "$J$14" Then
    [c2].Select
  Else
    If Target.Column = 6 Then Target(1, 3).Select
    If Target.Column = 10 Then Target(2, -7).Activate
  End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$C$2" Then [b5].Select
  If Target.Address = "$I$14" Then
    [c2].Select
  Else
    If Target.Column = 5 Then Target(1, 4).Select
    If Target.Column = 9 Then Target(2, -6).Activate
  End If
End Sub

YZC51

dsyxr903 发表于 2019-8-25 22:30
而且是在单元格内输入内容，才会跳。如果不输入内容，和没有公式一样，一直往右走，不会跳到下一行

31楼附件已经更新，请参考

maditate

dsyxr903 发表于 2019-8-25 23:14
面积和金额两个列里边有公式，不用手工输入，空敲回车过去，其它列是要手工输入内容的。非常感谢，耽搁了 ...

重新从上到下看了一遍你的回贴。再次理解你的意思。这次不知道我是否真正理解了你的意思。把代码重新写了一下，发上来，希望能满足你的要

单元格.rar (19.6 KB, 下载次数: 15)

2019-8-26 19:09 上传

点击文件名下载附件

liangmutou01

也许我理解不对，但就这一句代码，就能达到你的需要啊。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
  If Target.Column = 10 Then Cells(Target.Row + 1, 2).Select
  Application.EnableEvents = True
End Sub

YZC51

优化下
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Target.Row > 14 Then Exit Sub
  If Target.Address = "$G$2" Then [b5].Select
  If Target.Row < 5 Then Exit Sub
  If Target.Address = "$J$14" Then
    [c2].Select
  Else
    If Target.Column = 3 Then Target(1, 2).Select
    If Target.Column = 6 Then Target(1, 3).Select
    If Target.Column = 10 Then Target(2, -7).Activate
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.CountLarge > 1 Then Exit Sub
  If Target.Row > 14 Then Exit Sub
  If Target.Address = "$G$2" Then [b5].Select
  If Target.Row < 5 Then Exit Sub
  If Target.Address = "$J$14" Then
    [c2].Select
  Else
    If Target.Column = 6 Then Target(1, 3).Select
    If Target.Column = 10 Then Target(2, -7).Activate
  End If
End Sub

YZC51

请参考附件
活动单元格按序跳转41.rar (25.35 KB, 下载次数: 17)

2019-8-27 22:33 上传

点击文件名下载附件

dsyxr903

感谢两位大神

maditate

dsyxr903 发表于 2019-8-27 19:55
感谢两位大神

35楼有最新附件。你最初的叙述可能没表达清楚。你上传的附件上划定的走向可能有误。中间某些列有函数，是应该直接跳过的。不知道我最新的附件是不是理解了你的意思。