请大师帮忙看下这个输入数字，在指定单元格出现指定单元格

qiongmei6 · 发表于 2018-4-6 15:52

我附件有一个表格，我希望得到一个代码，就是在录入表格中的c列输入花名册上c列内的学籍号的数字，他就会对应在录入表格中的c列出现花名册上的名字和同时在录入表格中b列出现对应的班名字，例如我在录入表格中的c3输入486后按回车，他就会在c3出现谭一的名字，并同时在b3出现大三，但是如果我输入一个花名册不存在的数字就会提示该号无人，谢谢高手师傅的帮忙。

gdw831001 · 发表于 2018-4-6 16:02

vlookup不就好了

qiongmei6 · 发表于 2018-4-6 16:05

因为牵涉到其他的文档，因此我希望是用vba代码的形式来做

abc123281 · 发表于 2018-4-6 16:15

呵呵你的录入表中有学籍号码

abc123281 · 发表于 2018-4-6 16:16

呵呵你的录入表中有学籍号吗？

lsc900707 · 发表于 2018-4-6 18:58

本帖最后由 lsc900707 于 2018-4-6 19:00 编辑

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Set d = CreateObject("scripting.dictionary")
With Sheets("花名册")
r = .Cells(.Rows.Count, 3).End(3).Row
arr = .Range("b4:d" & r)
For i = 1 To UBound(arr)
d(arr(i, 2)) = arr(i, 3)
Next
End With
If d.exists(Target.Value) Then Cells(Target.Row, 3) = d(Target.Value)
Set d = Nothing
End If
End Sub

复制代码

lsc900707 · 发表于 2018-4-6 19:02

附件供参考：

qiongmei6 · 发表于 2018-4-6 20:03

谢谢lsc900707师傅，输入学籍号后，名字能出现了，但是能否代码再修改下，增多一个功能，就是录入表格中当在c列中输入数字的时候，b列的班级名称一起出现。例如我在录入表格中的c3输入486后按回车，他就会在c3出现谭一的名字，并同时在b3出现大三，再次谢谢您的帮忙

lsc900707 · 发表于 2018-4-6 20:22

qiongmei6 发表于 2018-4-6 20:03
谢谢lsc900707师傅，输入学籍号后，名字能出现了，但是能否代码再修改下，增多一个功能，就是录入表格中当 ...

还真忽略了一个要求，已修改：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Set d = CreateObject("scripting.dictionary")
With Sheets("花名册")
r = .Cells(.Rows.Count, 3).End(3).Row
arr = .Range("b4:d" & r)
For i = 1 To UBound(arr)
d(arr(i, 2)) = arr(i, 1) & "/" & arr(i, 3)
Next
End With
If d.exists(Target.Value) Then
Application.EnableEvents = False
s = Split(d(Target.Value), "/")
Target.Offset(, -1) = s(0)
Target.Value = s(1)
Application.EnableEvents = True
Else
MsgBox "对不起，没有此编号！"
End If
Set d = Nothing
End If
End Sub

复制代码

qiongmei6 · 发表于 2018-4-7 13:50

谢谢lsc900707师傅，您提供的代码正是我所希望的

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

[已解决] 请大师帮忙看下这个输入数字，在指定单元格出现指定单元格

评分