[已解决]请高手帮我设置一下登记表

pc1963 · 发表于 2011-8-16 19:54

本帖最后由 pc1963 于 2011-9-11 20:33 编辑

请高手帮我设置一下登记表中培训记录单输入身份证件号码后（更新）能从2011中取数据。（象学员登记记表中一样）

登记表.rar (131.11 KB, 下载次数: 15)

joyark · 发表于 2011-9-11 06:15

不知道的,看一下呀

zjdh · 发表于 2011-9-11 08:09

本帖最后由 zjdh 于 2011-9-11 08:25 编辑

是这样吧，学员登记表也修改了：（输完身份证号即自动修改登记内容）

登记表2.rar (154.52 KB, 下载次数: 36)

pc1963 · 发表于 2011-9-11 11:46

谢谢！！！

pc1963 · 发表于 2011-9-11 20:39

zjdh老师,非常感谢您对我的表问题的解答，现在我新增加了一个查询表可是序号怎么设置和运行时出现错误下标越界二个问题，请再再改一下代码。谢谢！！

zjdh · 发表于 2011-9-13 13:15

没有序号啊，是车号吧？

登记表3.rar (161.21 KB, 下载次数: 12)

pc1963 · 发表于 2011-9-14 08:29

本帖最后由 pc1963 于 2011-9-14 08:53 编辑

zjdh老师,您帮我写的程序非常好用，，十分感谢。
现在需再改一下代码，请看一看。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Range("C5,E5,H5:I5,C6:E6,H6:I6,C7:I7,C8:E8,H8:I8,C9:E9,H9:I9,C10:E10,H10:I10").ClearContents
      ARR = Sheet2.Range("B3:Q" & Sheet2.Range("A65536").End(3).Row)
      For I = 1 To UBound(ARR)
         If Range("C4") = ARR(I, 4) Then
            Range("C5") = ARR(I, 1)
            Range("E5") = ARR(I, 2)
            Range("H5") = ARR(I, 5)
            Range("C6") = ARR(I, 14)
              Range("H6") = ARR(I, 1)
说明：查询表中序号（H6)设置。如何从2011表中序号(第一列）中提取（公式怎么样设置）
            Range("C7") = ARR(I, 6)
            Range("H8") = ARR(I, 9)
            Range("C8") = ARR(I, 7)
            Range("C9") = ARR(I, 8)
            Range("H9") = ARR(I, 13)
            Range("C10") = ARR(I, 15)
            Range("H10") = ARR(I, 16)
            Exit Sub
         End If
      Next
      MsgBox "没有身份证号为〖 " & Range("$C$4") & " 〗的登记"
End If
End Sub

pc1963 · 发表于 2011-9-14 09:20

本帖最后由 pc1963 于 2011-9-14 09:21 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
Range("C5,E5,H5:I5,C6:E6,H6:I6,C7:I7,C8:E8,H8:I8,C9:E9,H9:I9,C10:E10,H10:I10").ClearContents
      ARR = Sheet2.Range("a3:Q" & Sheet2.Range("A65536").End(3).Row)
      For I = 1 To UBound(ARR)
         If Range("C4") = ARR(I, 5) Then
            Range("C5") = ARR(I, 2)
            Range("E5") = ARR(I, 3)
            Range("H5") = ARR(I, 6)
            Range("C6") = ARR(I, 15)
            Range("H6") = ARR(I, 1)
            Range("C7") = ARR(I, 7)
            Range("H8") = ARR(I, 10)
            Range("C8") = ARR(I, 8)
            Range("C9") = ARR(I, 9)
            Range("H9") = ARR(I, 14)
            Range("C10") = ARR(I, 16)
            Range("H10") = ARR(I, 17)
            Exit Sub
         End If
      Next
      MsgBox "没有身份证号为〖 " & Range("$C$4") & " 〗的登记"
End If
End Sub

修改成功，谢谢zjdh老师，再一次感谢。

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