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

ybsnhgjm

  两行身份证号输入一个数字后自动跳转到下一列，第一行身份证在网上搜索已经可以完成条件，第二行怎么弄，本人小白，求大师做成现成的上传，敬谢！！！   邮箱：ybsnhgjm@163.com

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2016-6-6 21:35

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

复制代码

跳转到最佳答案楼层

wanao2008

单元格输入一个数字后自动转入下一列应该有点困难，我帮你出个主意，不如换个方法来解决：
1、当点击身份证处，自动弹出个输入框，一次性接收全部数字，再由VBA逐一放入对应单元格数据；
2、将身份证号输入到F3单元格，回车后由VBA自动逐一放入对应单元格；
3、加一个“数据库”表，只要输入姓名，一切数据都会自动完成填充。

ybsnhgjm

wanao2008 发表于 2016-6-4 19:14
单元格输入一个数字后自动转入下一列应该有点困难，我帮你出个主意，不如换个方法来解决：
1、当点击身份证 ...

谢谢！！我上传的附件身份证第一行已经可以输入一个数字自动跳到下一列，就是第二行的身份证不会弄

蝶·舞

为什么非要把身份号分列到18个单元格内

ybsnhgjm

蝶·舞 发表于 2016-6-5 08:02
为什么非要把身份号分列到18个单元格内

我也挺纠结滴，领导就弄个固定破表格，是手动填写，可是需要填写的太多，不如电子版的快速，就求助大师们看有啥办法

蝶·舞

还不如用单元格事件，当某个单元格输入好18位身份证回车时，自动分列到18列单元格内，比你现在那段代码省事多了

ybsnhgjm

蝶·舞 发表于 2016-6-5 10:40
还不如用单元格事件，当某个单元格输入好18位身份证回车时，自动分列到18列单元格内，比你现在那段代码省事 ...

是了，不知道咋弄，只要是这个结果就好，谢谢！

wanao2008

ybsnhgjm 发表于 2016-6-5 07:52
谢谢！！我上传的附件身份证第一行已经可以输入一个数字自动跳到下一列，就是第二行的身份证不会弄

既然第一行能，第2行就也能。祝 你好运！

wanao2008

ybsnhgjm 发表于 2016-6-5 07:52
谢谢！！我上传的附件身份证第一行已经可以输入一个数字自动跳到下一列，就是第二行的身份证不会弄

算了，不和你逗了，你打开“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 = 3 And Selection.Column > 5 And Selection.Column < 24 Then
        For i = 96 To 105
             Application.OnKey "{" & i & "}", "tz" & i - 96
         Next i
    ElseIf Selection.Row = 4 And Selection.Column > 5 And Selection.Column < 24 Then
        For i = 96 To 105
             Application.OnKey "{" & i & "}", "tz" & i - 96
         Next i
    End If

End Sub

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

复制代码