需要做一份培训汇总，输入员工姓名就会自动显示培训记录，请高手指点

linaxue · 发表于 2014-10-14 10:17

附件

复件培训记录电子台账.rar (9.99 KB, 下载次数: 452)

李兴德 · 发表于 2014-10-14 10:25

复件培训记录电子台账.zip (12.73 KB, 下载次数: 359)

linaxue · 发表于 2014-10-14 10:27

李兴德发表于 2014-10-14 10:25

谢谢指点！

sdong7 · 发表于 2014-10-31 13:53

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim mxr1, mxr2 As Long
mxr2 = Sheets("sheet3").[a1048576].End(xlUp).Row
If mxr2 > 6 Then
Sheets("sheet3").Range("a7:g" & mxr2).ClearContents
End If

Dim arr1, arr2, arr3(1 To 10000, 1 To 7)
mxr1 = Sheets("2014").[a1048576].End(xlUp).Row
arr1 = Sheets("2014").Range("a1:h" & mxr1)
arr2 = Sheets("sheet3").Range("b1")
For i = 5 To mxr1
If arr1(i, 1) = arr2 Then
k = k + 1
For j = 2 To 8
arr3(k, j - 1) = arr1(i, j)
Next j

End If
Next i

Sheets("sheet3").[a7].Resize(k, 7) = arr3
End Sub

sdong7 · 发表于 2014-10-31 13:54

如果觉得好就送朵鲜花！！

sdong7 · 发表于 2014-10-31 14:01

传上附件！！！！

王亜bil · 发表于 2014-11-4 11:45

菜鸟，做了一下。。

培训记录电子台账.rar (13.49 KB, 下载次数: 123)

Tiffanyzjl · 发表于 2015-12-1 11:45

李兴德发表于 2014-10-14 10:25

菜鸟请教：如果在你的这个工作表“2014”中增加了记录，如何在第二个工作表中统计出来。目前看只是统计至33行，如果我有330行记录呢？谢谢指点

syzxb1969 · 发表于 2015-12-1 17:04

做了一个，试试看，应该没问题

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

[求助] 需要做一份培训汇总，输入员工姓名就会自动显示培训记录，请高手指点