从他处引用数据

高玉甫

如附件，在工作簿“体验登记”的工作表“今日友情关爱”中实现如下需求：
1.当A列单元格输入编号时，这个编号与本表同文件夹下文件夹“数据资料”→工作簿“关爱日记”→工作表“友情关爱”的A列单元格数值相同时，则那一行B、C、D、E、F列相应单元格的数值就依次传入本表B、C、D、E、F相应的列单元格中；
2.当G列单元格输入编号时，这个编号与同一工作簿的工作表“编码设置”的P列单元格数值相同时，则那一行Q列相应列单元格的数值就传入本表H列相应的单元格中。
以上，烦请大师们伸出援手，帮忙解决，谢谢。

半百

用VLOOKUP函数即可解决。

凌空一羽

今日宣传成果表

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Application.ScreenUpdating = False
   
3. If Target.Column = 1 And Target.Row > 4 And Target.Count = 1 Or Target.Column = 6 Then
   
4. Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据资料\体验履历.xls")
   
5. Set rng = wb.Sheets("体验日记").Columns(1).Find(Target.Value, , , xlWhole)
   
6. If Not rng Is Nothing Then
   
7.     For i = 1 To 4
   
8.         k = i + Target.Column
   
9.         With ThisWorkbook.Sheets("今日宣传成果")
   
10.             .Cells(Target.Row, k) = wb.Sheets("体验日记").Cells(rng.Row, i + 1)
    
11.         End With
    
12.     Next
    
13. End If
    
14. wb.Close 0
    
15. Set wb = Nothing
    
16. End If
    
17. Application.ScreenUpdating = True
    
18. End Sub

复制代码

高玉甫

凌空一羽 发表于 2017-1-24 13:12
今日宣传成果表

师傅，我试过了，不能用，请您在我的附件里试试看，调试好了再把附件上传，谢谢您。

高玉甫

半百 发表于 2017-1-24 12:42
用VLOOKUP函数即可解决。

好啊，请您用VLOOKUP函数在我的附件中做好了，在上传附件，谢谢您。

凌空一羽

高玉甫 发表于 2017-1-24 17:59
好啊，请您用VLOOKUP函数在我的附件中做好了，在上传附件，谢谢您。

4fdas.zip (727.14 KB, 下载次数: 15)

2017-1-24 18:35 上传

点击文件名下载附件

高玉甫

回复6楼凌空一羽师傅:
您上传的附件我试了试问题还是有的：A列单元格输入编号回车后，B、C、D列相应的单元格不能立即显示所抓取的数据，而是鼠标再次点击刚才输入编码的单元格后，后面的单元格才显示数据，这样太麻烦了，请您再琢磨琢磨，修正以下代码，重新上传附件好吗？麻烦您了，谢谢您。

高玉甫

过年了，祝大师们春节快乐！

高玉甫

给大师们拜年了！

高玉甫

今天是大年三十？