[已解决]求助，两行身份证号输入一个数字后自动跳转下一列

fjmxwrs

ybsnhgjm 发表于 2016-6-5 14:25
是了，不知道咋弄，只要是这个结果就好，谢谢！

只需要增加一个条件即可
selection.row=3 or selection.row=4

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.      For i = 96 To 105
   
3.          Application.OnKey "{" & i & "}"
   
4.      Next i
   
5.     If Selection.Row = 3 Or Selection.Row = 4 And Selection.Column > 5 And Selection.Column < 24 Then
   
6.         For i = 96 To 105
   
7.              Application.OnKey "{" & i & "}", "tz" & i - 96
   
8.          Next i
   
9.      End If
   
10. End Sub

复制代码

ybsnhgjm

fjmxwrs 发表于 2016-6-6 21:35
只需要增加一个条件即可
selection.row=3 or selection.row=4

谢谢，非常感谢，以为没有回复了呢

ybsnhgjm

wanao2008 发表于 2016-6-6 21:20
算了，不和你逗了，你打开“ThisWorkBook”把里面的程序改成这样试试：

Private Sub Workbook_SheetSe ...

非常感谢，虽然没采用你的答案，谢谢您的支持！!