[已解决]请教如何才能使用回车键达到下表的输入效果

bipl607 · 发表于 2010-2-26 23:08

请教如何才能使用回车键达到下表的输入效果
(输入顺序从1-2-3-4-5-6-7-8…………...)
范围从B5:E13

1 2 3 4
5 6 7 8
9 10 11 12
. … … …

最佳答案

枯禅

2010-2-26 23:44

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, [B5:E13]) Is Nothing Then
        If Target.Column <> 5 Then
            Target.Offset(, 1).Activate
        Else
            Cells(Target.Row + 1, 2).Activate
        End If
    End If
End If
End Sub

R65zjTc4.rar (6.55 KB, 下载次数: 6)

william-shi · 发表于 2010-2-26 23:28

工具=选项=编辑=enter向右，框选B5:E13后输入

或者直接框选B5:E13按tab输入

bipl607 · 发表于 2010-2-26 23:41

用宏如何写,谢谢!

枯禅 · 发表于 2010-2-26 23:44

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Not Intersect(Target, [B5:E13]) Is Nothing Then
        If Target.Column <> 5 Then
            Target.Offset(, 1).Activate
        Else
            Cells(Target.Row + 1, 2).Activate
        End If
    End If
End If
End Sub

R65zjTc4.rar (6.55 KB, 下载次数: 6)

bipl607 · 发表于 2010-2-26 23:53

谢谢枯禅大师

bipl607 · 发表于 2010-2-26 23:55

怎么区域外的空格也右移了???

枯禅 · 发表于 2010-2-26 23:57

QUOTE:

以下是引用bipl607在2010-2-26 23:55:00的发言：
怎么区域外的空格也右移了???

不明白你说的是怎么回事

再想了一下，估计您是按2楼的设置过了将“工具=选项=编辑=enter向右”改回来向下

[此贴子已经被作者于2010-2-27 0:05:48编辑过]

bipl607 · 发表于 2010-2-27 00:55

枯禅大师你料事如神,真的按2楼的设置过了,谢谢你!

		自动登录	找回密码
密码			注册