[已解决]在指定单元格区域内的单元格中输入指定的字符个数字符后，自动跳到下一单元格

假绅士

sgxb123431380 发表于 2013-11-14 12:35
If Selection.Row = 6 And Selection.Column > 6 And Selection.Column < 18 Then
这句就是.row是行.col ...

谢谢您这么详尽的回答，希望以后能跟您学习到更多的知识

假绅士

sgxb123431380 发表于 2013-11-14 12:35
If Selection.Row = 6 And Selection.Column > 6 And Selection.Column < 18 Then
这句就是.row是行.col ...

我又遇到同样的问题了，不过这次我用你教我的解决不了了，能不能再帮我做一次？附件已上传，谢谢！！！

sgxb123431380

下面的代码是写在Thisworkbook里的
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    For i = 96 To 105
        Application.OnKey "{" & i & "}"
    Next i
    If (Selection.Row = 5 Or Selection.Row = 7 Or Selection.Row = 10) And Selection.Column > 4 And Selection.Column < 59 Then
        For i = 96 To 105
            Application.OnKey "{" & i & "}", "tz" & i - 96
        Next i
    End If
End Sub
下面的代码是写在宏模块里的
Public Sub tz0(): Call tz(0): End Sub
Public Sub tz1(): Call tz(1): End Sub
Public Sub tz2(): Call tz(2): End Sub
Public Sub tz3(): Call tz(3): End Sub
Public Sub tz4(): Call tz(4): End Sub
Public Sub tz5(): Call tz(5): End Sub
Public Sub tz6(): Call tz(6): End Sub
Public Sub tz7(): Call tz(7): End Sub
Public Sub tz8(): Call tz(8): End Sub
Public Sub tz9(): Call tz(9): End Sub
Public Function tz(n)
    ActiveCell = n
    If ActiveCell.Row = 5 And Cells(ActiveCell.Row, ActiveCell.Column - 4) = "" Then Cells(ActiveCell.Row, ActiveCell.Column - 4) = "￥"

    If ActiveCell.Row = 5 Then
        If ActiveCell.Column = 46 Then
            Range("A9").Select
        Else
            Cells(ActiveCell.Row, ActiveCell.Column + 4).Select
        End If
    Else
        If ActiveCell.Column = 56 Then
             If ActiveCell.Row = 7 Then
                    Range("A9:C9").Select
             else
                   Range("A12:C12").Select
             endif
        Else
            Cells(ActiveCell.Row, ActiveCell.Column + 3).Select
        End If
    End If
End Function
你再试一下吧

假绅士

sgxb123431380 发表于 2013-11-24 20:58
下面的代码是写在Thisworkbook里的
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVa ...

谢谢您，我试了，非常成功，非常感谢您！

sgxb123431380

假绅士 发表于 2013-11-25 16:17
谢谢您，我试了，非常成功，非常感谢您！

不客气

假绅士

sgxb123431380 发表于 2013-11-25 20:17
不客气

对了，还得麻烦您，那两个身份证输入区域当输入完成之后要跳到A9：C9和A12:C12区域，代码怎么写？我把跳到A9:C9的写出来了，另一个又不会了。

sgxb123431380

假绅士 发表于 2013-11-26 09:49
对了，还得麻烦您，那两个身份证输入区域当输入完成之后要跳到A9：C9和A12:C12区域，代码怎么写？我把跳到 ...

在上面那层改好了

假绅士

sgxb123431380 发表于 2013-11-26 10:16
在上面那层改好了

谢谢，已经顺利解决了！