[已解决]求按回车光标平行移动，到F列按回车自动换下一行，以此类推

18839208898

求按回车光标平行移动，到F列按回车自动换下一行，以此类推, 求VBA代码。

最佳答案

月排行榜 / 总排行榜

zjdh

2022-10-13 14:14

求助VBA.rar (36.02 KB, 下载次数: 4)

2022-10-15 10:50 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

求助VBA.rar (36.02 KB, 下载次数: 4)

2022-10-15 10:50 上传

点击文件名下载附件

砂海

从 技巧的角度来说:

输入完成后 , 分别 按:
Tab, Tab, Tab, Tab, Tab, Enter
就好,
Tab 向右,
Enter, 向下 , 并且 向左 N个 上行按 Tab 的次数

zjdh

Sub 设置()
    Application.MoveAfterReturnDirection = xlToRight
    Columns("A:F").Locked = False
    ActiveSheet.Protect
End Sub
Sub 复原()
    Application.MoveAfterReturnDirection = xlDown
    ActiveSheet.Unprotect
    Columns("A:F").Locked = True
End Sub

18839208898

zjdh 发表于 2022-10-14 10:36
Sub 设置()
    Application.MoveAfterReturnDirection = xlToRight
    Columns("A:F").Locked = False
...

首先表示感谢，但是添加代码后，好像不生效，还请教一下是怎么回事。上传文件请高手帮忙看一下。（按回车先平行移动，到F列自动换下行平行移动，然后再第二列平行移动，以此类推。）

zjdh

作一点修改：
Sub 设置()
    Application.MoveAfterReturnDirection = xlToRight
    Columns("A:F").Locked = False
    ActiveSheet.Protect
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Sub 复原()
    Application.MoveAfterReturnDirection = xlDown
    ActiveSheet.Unprotect
    Columns("A:F").Locked = True
End Sub

18839208898

zjdh 发表于 2022-10-15 10:50

谢谢 就是这个意思，唯一就是到14行后，按回车又回到第一行了， 我这需要是一直往下类推。

zjdh

那是因为附件中第13行及以下没有数据了，你在20行填写一点数据，则到第21行即回到第一行啦！