单击sheet2名册中的姓名自动转换到sheet1个人人表中，并显示相应数据，谢谢！

zwh3311085

单击sheet2名册中的姓名自动转换到sheet1个人表中，并显示sheet2表中的相应数据，谢谢！ 表.zip (13.37 KB, 下载次数: 3)

2016-9-29 08:44 上传

点击文件名下载附件

microyip

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim vData As Variant
   
3.     With Target
   
4.         If .Count = 1 And .Column = 3 And .Row > 1 Then
   
5.             vData = .Offset(0, -2).Resize(1, 17).Value
   
6.             With Sheets("Sheet1")
   
7.                 .[B2] = vData(1, 3) '姓名
   
8.                 .[D2] = vData(1, 4) ' 性别
   
9.                 .[G2] = vData(1, 5) ' 出生年月
   
10.                 .[B3] = vData(1, 7) ' 身份证号
    
11.                 .[G3] = vData(1, 8) ' 现岗位工种
    
12.                 .[B4] = vData(1, 2) ' 现工作单位
    
13.                 .[B5] = vData(1, 9) ' 户口
    
14.                 .[B7] = vData(1, 10) ' 简历1
    
15.                 .[D7] = vData(1, 11) ' 简历1工种
    
16.                 .[B8] = vData(1, 12) ' 简历2
    
17.                 .[D8] = vData(1, 13) ' 简历2工种
    
18.                 .[B9] = vData(1, 14) ' 简历3
    
19.                 .[D9] = vData(1, 15) ' 简历3工种
    
20.                 .[B10] = vData(1, 16) ' 简历4
    
21.                 .[D10] = vData(1, 17) ' 简历4工种
    
22.             End With
    
23.         End If
    
24.     End With
    
25. End Sub

复制代码

microyip

附上附件以供参考

zwh3311085

microyip 发表于 2016-9-29 09:07
附上附件以供参考

非常感谢！就是这样的，再次感谢！顺祝节日愉快！

自由！自在

microyip 发表于 2016-9-29 09:07
附上附件以供参考

谢谢了，这个也是我想要的，