6

我有一张 Excel 表格,我在 A2、B2 和 C2 中输入数据;按回车后,我希望光标选择下一行,这样我就可以输入 A3、B3 和 C3 等信息

我找到了这个信息

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("C2").Value <> "" Then
Range("A3").Select
End If
End Sub

但它只能工作一次,我怎么能一遍又一遍地重复这个过程

谢谢你的帮助.....

4

3 回答 3

6

另一种方式。

  1. 如果您在 Col A 的任何位置键入,选择将移至 Col B。
  2. 如果您在 Col B 的任何位置键入,则选择将移至 Col C。
  3. 如果您在 Col C 中的任何位置键入,选择将移回 Col A(下一行)。

代码:这在相关的工作表代码区域中。

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Whoa

    Application.EnableEvents = False

    If Not Target.Cells.CountLarge > 1 Then
        If Not Intersect(Target, Columns(1)) Is Nothing Then
            Target.Offset(, 1).Select
        ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then
            Target.Offset(, 1).Select
        ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then
            Target.Offset(1, -2).Select
        End If
    End If
Letscontinue:
    Application.EnableEvents = True
    Exit Sub
Whoa:
    MsgBox Err.Description
    Resume Letscontinue
End Sub

截屏

在此处输入图像描述

于 2013-04-11T16:08:02.013 回答
1

如果您需要涉及 VBA,则有分别设置方向和状态的属性:

Application.MoveAfterReturnDirection = xlToRight 
Application.MoveAfterReturn = True
于 2013-04-11T15:21:46.070 回答
1

在您的工具>选项对话框中,输入后移动选择的设置是什么?:

在此处输入图像描述

有关Tech Republic 的更多信息:在数据输入期间控制 Excel 光标移动的三种方法将向您展示如何准确地执行您想要的操作...

基本上,选择要在其中输入数据的范围单元格,Excel 选择第一个单元格,然后在每个条目之后,按 {Tab} 键。Excel 会将克拉移动到您选择的下一个空单元格

瞧!

于 2013-04-11T15:10:48.520 回答