员工档案系统

gel71 · 发表于 2011-9-28 17:04

向老师学习！

jttyoyo · 发表于 2011-10-2 14:28

学良老师：
我试了下，就是“录入数据”代码中这部分：  Dim i, x, flag
x = 3
Do While Not (IsEmpty(Sheets("员工登记表").Cells(x, 3).Value))
      x = x + 1
Loop

flag = 0
For i = 1 To x
      If Sheets("录入登记表").Cells(3, 3) = Sheets("员工登记表").Cells(i, 3) Then
         flag = 9
         Exit For
      End If
Next

If flag = 9 Then
      x = i
End If

我发现要是员工中有相同姓名的，那新员工的信息就会替代了另一个员工的信息呢。。对不？

jttyoyo · 发表于 2011-10-2 17:36

如上题，，请教老师：
我发现用上述方法同样“调用信息”的时候，如果有相同姓名的员工，它总是默认调出第一个相同的，对不？这能解决不？

学良 · 发表于 2011-10-5 08:03

是的,有待高人改进,或改为用编号就好了

楚楚VS蓝欣 · 发表于 2011-10-5 09:23

学习了　　　　　　　　　在

mingxiaofan · 发表于 2011-10-5 14:58

感谢分享！
excel2010好像有点问题，无法从界面跳到录入页面。

zhuwanliapril · 发表于 2011-10-5 17:01

真正的高手不错

麦兜萍儿 · 发表于 2011-10-6 20:42

收藏了，辛苦楼主。

YAHT2011 · 发表于 2011-10-8 15:48

下载完毕，感谢楼主分享，谢谢

859368915 · 发表于 2011-10-9 10:49

谢谢！收藏了

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

[分享] 员 工 档 案 系 统

[分享] 员工档案系统