[已解决]如何设置按TAB键后单元格跳转顺序

baiqghd

如何设置按TAB键后单元格跳转顺序

如附件表中,按TAB键后按顺序跳转,哪位高手帮帮忙,写个代码呀,谢谢了

Ca0fRtIL.rar (1.35 KB, 下载次数: 27)

2010-1-18 14:47 上传

点击文件名下载附件
如何设置按TAB键后单元格跳转顺序
[em01][em01]

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-18 15:40

Sorry，代码如下：

Sub 自定义跳转()
    Dim NextNum, arrAddress
    NextNum = Selection.Address(0, 0)
    '设定数组，放地址
    ReDim arrAddress(1 To 9)
    arrAddress(1) = "B2"
    arrAddress(2) = "B5"
    arrAddress(3) = "B8"
    arrAddress(4) = "D2"
    arrAddress(5) = "D4"
    arrAddress(6) = "D8"
    arrAddress(7) = "A11"
    arrAddress(8) = "C11"
    arrAddress(9) = "E12"
    For i = 1 To 9
        If arrAddress(i) = NextNum Then
            NextNum = IIf(i = 9, 1, i + 1)
            Exit For
        End If
        If i = 9 Then NextNum = 1
    Next
    Range(arrAddress(NextNum)).Select
End Sub
Sub 设定Tab键()
    Application.OnKey "{TAB}", "自定义跳转"
End Sub
Sub 取消Tab键()
    Application.OnKey "{TAB}"
End Sub

跳转到最佳答案楼层

amulee

要先执行设定Tab键，不用的时候可以取消。
Sub 自定义跳转()
    Dim Rng As Range, NextNum
    Set Rng = Range("A1:E12")
    NextNum = IIf(Selection = 9, 1, Selection + 1)
    Rng.Find(NextNum).Select
End Sub
Sub 设定Tab键()
    Application.OnKey "{TAB}", "自定义跳转"
End Sub
Sub 取消Tab键()
    Application.OnKey "{TAB}"
End Sub

baiqghd

我的意思是单元格里没有数字的时候也会按这个顺序跳转呀,你这个代码要是没有数字了就不会跳转呀,能不能帮我重新写一个,先谢谢了

amulee

你根据自己要求修改吧

Sub 自定义跳转()
    Dim NextNum, arrAddress
    NextNum = IIf(Selection = 9, 1, Selection + 1)
    '设定数组，放地址
    ReDim arrAddress(1 To 9)
    arrAddress(1) = "B2"
    arrAddress(2) = "B5"
    arrAddress(3) = "B8"
    arrAddress(4) = "D2"
    arrAddress(5) = "D4"
    arrAddress(6) = "D8"
    arrAddress(7) = "A11"
    arrAddress(8) = "C11"
    arrAddress(9) = "E12"
    Range(arrAddress(NextNum)).Select
End Sub
Sub 设定Tab键()
    Application.OnKey "{TAB}", "自定义跳转"
End Sub
Sub 取消Tab键()
    Application.OnKey "{TAB}"
End Sub

baiqghd

QUOTE:

以下是引用amulee在2010-1-18 15:12:00的发言：

你根据自己要求修改吧

Sub 自定义跳转()
    Dim NextNum, arrAddress
    NextNum = IIf(Selection = 9, 1, Selection + 1)
    '设定数组，放地址
    ReDim arrAddress(1 To 9)
    arrAddress(1) = "B2"
    arrAddress(2) = "B5"
    arrAddress(3) = "B8"
    arrAddress(4) = "D2"
    arrAddress(5) = "D4"
    arrAddress(6) = "D8"
    arrAddress(7) = "A11"
    arrAddress(8) = "C11"
    arrAddress(9) = "E12"
    Range(arrAddress(NextNum)).Select
End
   Sub
Sub 设定Tab键()
    Application.OnKey "{TAB}", "自定义跳转"
End
   Sub
Sub 取消Tab键()
    Application.OnKey "{TAB}"
End
   Sub

你这个好像不行呀

amulee

QUOTE:

以下是引用baiqghd在2010-1-18 15:16:00的发言：

你这个好像不行呀

由于Tab键是系统键，要先运行宏设定Tab键，然后再点击Tab试试看。

所有的代码要放在新建模块中。

baiqghd

QUOTE:

以下是引用amulee在2010-1-18 15:21:00的发言：

由于Tab键是系统键，要先运行宏设定Tab键，然后再点击Tab试试看。

所有的代码要放在新建模块中。

设置了,只会跳到B2单元格,接下来就不会跳了

amulee

Sorry，代码如下：

Sub 自定义跳转()
    Dim NextNum, arrAddress
    NextNum = Selection.Address(0, 0)
    '设定数组，放地址
    ReDim arrAddress(1 To 9)
    arrAddress(1) = "B2"
    arrAddress(2) = "B5"
    arrAddress(3) = "B8"
    arrAddress(4) = "D2"
    arrAddress(5) = "D4"
    arrAddress(6) = "D8"
    arrAddress(7) = "A11"
    arrAddress(8) = "C11"
    arrAddress(9) = "E12"
    For i = 1 To 9
        If arrAddress(i) = NextNum Then
            NextNum = IIf(i = 9, 1, i + 1)
            Exit For
        End If
        If i = 9 Then NextNum = 1
    Next
    Range(arrAddress(NextNum)).Select
End Sub
Sub 设定Tab键()
    Application.OnKey "{TAB}", "自定义跳转"
End Sub
Sub 取消Tab键()
    Application.OnKey "{TAB}"
End Sub

baiqghd

成功了,厉害呀,真是太感谢了,[em17][em17][em17]