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

dsyxr903

maditate 发表于 2019-8-25 22:21
你确定是下载了我在17楼上的附件？测试结果确实没按照你所标示的顺序走向？

而且是在单元格内输入内容，才会跳。如果不输入内容，和没有公式一样，一直往右走，不会跳到下一行

maditate

看来你我沟通不够，我给你的是单元格输入内容后的 Change  事件。

你可以脚面要的是  SelectionChange  事件。

试试   SelectionChange  事件的。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
    If Target.Row >= 4 And Target.Row < 15 Then
            If Target.Column > 1 And Target.Column < 10 Then
               If Target.Column = 9 Then
                 Cells(Target.Row + 1, 2).Activate
                  Target.Offset(1, -7).Activate
                 
               Else
                 Target.Offset(, 1).Activate
               End If
            End If
    ElseIf Target.Row = 2 Then
        If Target.Column = 3 Then
          Range("$B$5").Activate
        End If
    End If
   
   Application.EnableEvents = True
End Sub

maditate

dsyxr903 发表于 2019-8-25 22:28
下载的17楼附件，不是按文件里的顺序走的。跳3，3跳5，5跳7，这样跳 的

测试了一下，我怀疑是不是需要在工作表的那个区域上只敲回车键，不在单元格里输入数据？仅仅是敲回车键控制光标走向？

dsyxr903

maditate 发表于 2019-8-25 22:43
测试了一下，我怀疑是不是需要在工作表的那个区域上只敲回车键，不在单元格里输入数据？仅仅是敲回车键控 ...

350351319，你加我QQ，帮我远程看一下？我测试还是不行啊
现在选 不中“1”单元格了

maditate

dsyxr903 发表于 2019-8-25 22:53
350351319，你加我QQ，帮我远程看一下？我测试还是不行啊
现在选 不中“1”单元格了

不用测试了，我的代码没法满足你的要求。我不知道你的操作环境。你不会告诉我你不是需要在单元格里输入数据后的回车，而是直接敲回车吧。

dsyxr903

maditate 发表于 2019-8-25 22:58
不用测试了，我的代码没法满足你的要求。我不知道你的操作环境。你不会告诉我你不是需要在单元格里输入数 ...

不是空敲击回车，批次，面积，金额里边有公式，不用手工输入，要空敲回车，其它列是要输入内容的。还要是感谢你的，麻烦了您一晚上的时间

dsyxr903

maditate 发表于 2019-8-25 22:58
不用测试了，我的代码没法满足你的要求。我不知道你的操作环境。你不会告诉我你不是需要在单元格里输入数 ...

面积和金额两个列里边有公式，不用手工输入，空敲回车过去，其它列是要手工输入内容的。非常感谢，耽搁了您一晚上的时间

一把小刀闯天下

'参与一下

'觉得应该用change事件的吧，可能是黄色区域输入完数据再回车，不然这走位毫无意义，，，

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Rows.Count + Target.Columns.Count > 2 Then Exit Sub
  Application.EnableEvents = False
  If Target.Address = "$C$2" Then
    [b5].Select
  ElseIf Target.Address = "$I$14" Then
    [c2].Select
  ElseIf Not Intersect(Target, [b5:i14]) Is Nothing Then
    If Target.Column = 9 Then
      Cells(Target.Row + 1, 2).Select
    Else
      Target.Offset(, 1).Select
    End If
  End If
  Application.EnableEvents = True
End Sub

dsyxr903

一把小刀闯天下 发表于 2019-8-25 23:17
'参与一下

'觉得应该用change事件的吧，可能是黄色区域输入完数据再回车，不然这走位毫无意义，，，

谢谢，我用了个笨方法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


'''C2回车到B5，到I列活动光标回到下一列
If Target.Row = 2 And Target.Column = 7 Then
  Range("b5").Select
End If

If Target.Row = 5 And Target.Column = 10 Then
  Range("b6").Select
End If

If Target.Row = 6 And Target.Column = 10 Then
  Range("b7").Select
End If

If Target.Row = 7 And Target.Column = 10 Then
  Range("b8").Select
End If

If Target.Row = 8 And Target.Column = 10 Then
  Range("b9").Select
End If

If Target.Row = 9 And Target.Column = 10 Then
  Range("b10").Select
End If

If Target.Row = 10 And Target.Column = 10 Then
  Range("b11").Select
End If

If Target.Row = 11 And Target.Column = 10 Then
  Range("b12").Select
End If

If Target.Row = 12 And Target.Column = 10 Then
  Range("b13").Select
End If

If Target.Row = 13 And Target.Column = 10 Then
  Range("b14").Select
End If

If Target.Row = 14 And Target.Column = 10 Then
  Range("c2").Select
End If


End Sub

dsyxr903

谢谢两位热心大神，我用了个笨方法
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


'''C2回车到B5，到I列活动光标回到下一列
If Target.Row = 2 And Target.Column = 7 Then
  Range("b5").Select
End If

If Target.Row = 5 And Target.Column = 10 Then
  Range("b6").Select
End If

If Target.Row = 6 And Target.Column = 10 Then
  Range("b7").Select
End If

If Target.Row = 7 And Target.Column = 10 Then
  Range("b8").Select
End If

If Target.Row = 8 And Target.Column = 10 Then
  Range("b9").Select
End If

If Target.Row = 9 And Target.Column = 10 Then
  Range("b10").Select
End If

If Target.Row = 10 And Target.Column = 10 Then
  Range("b11").Select
End If

If Target.Row = 11 And Target.Column = 10 Then
  Range("b12").Select
End If

If Target.Row = 12 And Target.Column = 10 Then
  Range("b13").Select
End If

If Target.Row = 13 And Target.Column = 10 Then
  Range("b14").Select
End If

If Target.Row = 14 And Target.Column = 10 Then
  Range("c2").Select
End If


End Sub