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

dsyxr903

敲击回车键时，活动单元格是往右移动的。一旦到J列后，自动跳转到下一行的B列。比如I5是活动单元格，敲击回车后，自动跳转到B6，在I6时，再敲击回车跳转到B7，依次类推。这个代码该怎么写，求帮助

maditate

Private Sub Worksheet_Change(ByVal Target As Range)
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
End Sub

dsyxr903

maditate 发表于 2019-8-25 20:10
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 And Target.Column < 10 The ...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Target.Row = 3 And Target.Column = 3) Or (Target.Row = 2 And Target.Column = 7) Then
  Range("b5").Select
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
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
End Sub
两组代码，我放都是放在对象里的，从C2可以跳转到B5.从I5跳不到B6.敲击回车键，活动单元格是往右边去的，大神再给看看

maditate

你最好在单元格上填写好光标移动顺序。第一格填1，第二格填2，一直填满一个循环。转入下一行。你原来的代码本来就不符合你的意愿，我的代码也没体现出你的意愿。

dsyxr903

敲击回车时，可以按工作表中的顺序走就行

dsyxr903

maditate 发表于 2019-8-25 20:50
你最好在单元格上填写好光标移动顺序。第一格填1，第二格填2，一直填满一个循环。转入下一行。你原来的代码 ...

可以看5楼中的附件，图中有顺序

maditate

dsyxr903 发表于 2019-8-25 21:01
可以看5楼中的附件，图中有顺序

论坛抽疯中，暂时无法下载附件。可能要等到10点以后才能下载。最近好象天天如此。

dsyxr903

maditate 发表于 2019-8-25 21:03
论坛抽疯中，暂时无法下载附件。可能要等到10点以后才能下载。最近好象天天如此。

哈哈，能传图片不能？
我截个图

maditate

Private Sub Worksheet_Change(ByVal Target As Range)
    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
End Sub

dsyxr903

maditate 发表于 2019-8-25 21:03
论坛抽疯中，暂时无法下载附件。可能要等到10点以后才能下载。最近好象天天如此。

这会好像能下载了