在固定区域敲回车后方向右移

阿哩木

在固定区域敲回车后方向右移，请大佬帮忙看看怎么实现这样的操作，谢谢谢谢！

liulang0808

如果楼主的回车，是修改了单元格内容的话，那么可以考虑表格change事件

xbox1210

SelectionChange+MoveAfterReturnDirection

阿哩木

xbox1210 发表于 2024-11-16 22:19
SelectionChange+MoveAfterReturnDirection

谢谢您！！

zjdh

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$X$1" Then [O2].Select: End
    If Target.Address = "$X$2" Then [O1].Select: End
    If Not Application.Intersect(Target, Range("O1:W2")) Is Nothing Then
        Application.MoveAfterReturnDirection = xlToRight
    Else
        Application.MoveAfterReturnDirection = xlDown
    End If
End Sub

阿哩木

zjdh 发表于 2024-11-17 16:17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$X$1" Then [O ...

请问一下，为何这个代码复制进去后效果实现了，但是工作表只能复制不能粘贴了。。

阿哩木

xbox1210 发表于 2024-11-16 22:19
SelectionChange+MoveAfterReturnDirection

您好，请问下为什么增加了这个代码后，工作表就只能复制不能粘贴了，原因似乎是复制好了的区域，点到要粘贴的单元格后，绿框框就消失了。能帮忙再看看吗，谢谢您！！

xbox1210

这代码不影响复制粘贴，你说的情况，我这里没有复现。

xbox1210

zjdh 发表于 2024-11-17 16:17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$X$1" Then [O ...

影响到X1和X2这两个单元格不能选定了哦。我的也有点BUG，右移后不能马上选X1X2，点下别的单元格才能选。

阿哩木

xbox1210 发表于 2024-11-17 18:16
这代码不影响复制粘贴，你说的情况，我这里没有复现。

能麻烦您把文件上传一下吗，我不知道是不是我代码位置没放对