人力资源--员工花名册问题

xmyang2008

复件 人力资源信息系统.zip (162.19 KB, 下载次数: 750)

2013-6-9 16:04 上传

点击文件名下载附件

这个表是我在论坛里下载的，我没动公式，员工登记表全录好后，点数据更新后，在职人员和离职人员只显示一个名字，请高手帮我解决一下咯，谢谢了！

xmyang2008

{:soso_e101:}在线等着，高手出现吧，谢谢！！！

xmyang2008

{:soso_e132:}老师在哪里呢？

阿岚

我试了一下，填写工号后，就正常了，你试试！

阿岚

数据的查找都是以工号为基准的，因为人名有可能重复，而工号不会，所以员工档案应以工号为基准！

xmyang2008

{:soso_e121:}{:soso_e121:}谢谢啦

shliuliying

我用了工号，只能引用15人，请高手帮助解决一下
Sub renyuan_Load() '在职离职清理
Dim iRow
'在职清理
Application.ScreenUpdating = False
Worksheets("在职").Select
iRow = Worksheets("在职").[a65536].End(xlUp).Row
Worksheets("在职").Range("b4:eq" & iRow).ClearContents
Worksheets("员工登记表").Select
Rows("5:5").Select
Range("V5").Activate
Selection.AutoFilter
Worksheets("员工登记表").Range("A:eq").AutoFilter Field:=1, Criteria1:="在职"
If iRow <> 5 Then
Worksheets("员工登记表").Range("b6:eq" & iRow).Copy
Worksheets("temp").Range("a1").PasteSpecial Paste:=xlValues
iRow = Worksheets("temp").[a65536].End(xlUp).Row
Worksheets("temp").Select
Columns("K:K").Select
    Range("A1:ep" & iRow).Sort Key1:=Range("K1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    Columns("J:J").Select
    Range("A1:ep" & iRow).Sort Key1:=Range("J1"), Order1:=xlDescending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    Columns("A:A").Select
    Range("A1:ep" & iRow).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    Columns("I:I").Select
    Range("A1:ep" & iRow).Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    Columns("H:H").Select
    Range("A1:ep" & iRow).Sort Key1:=Range("H1"), Order1:=xlAscending, Header:= _
       xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
    ActiveWindow.SmallScroll Down:=147
Worksheets("temp").Range("a1:ep" & iRow).Copy
Worksheets("在职").Range("b4").PasteSpecial Paste:=xlValues
End If
Worksheets("员工登记表").Range("A:eq").AutoFilter Field:=1
'离职清理
Application.ScreenUpdating = False
Worksheets("离职").Select
iRow = Worksheets("离职").[a65536].End(xlUp).Row
Worksheets("离职").Range("b4:eq" & iRow).ClearContents
Worksheets("temp").Select
iRow = Worksheets("temp").[a65536].End(xlUp).Row
Worksheets("temp").Range("a1:eq" & iRow + 2).ClearContents
Worksheets("员工登记表").Select
Rows("5:5").Select
Range("V5").Activate
Selection.AutoFilter
Worksheets("员工登记表").Range("A:eq").AutoFilter Field:=1, Criteria1:="离职"
iRow = Worksheets("员工登记表").[a65536].End(xlUp).Row
If iRow <> 5 Then
Worksheets("员工登记表").Range("b6:eq" & iRow).Copy
Worksheets("temp").Range("a1").PasteSpecial Paste:=xlValues
iRow = Worksheets("temp").[a65536].End(xlUp).Row
Worksheets("temp").Select
Columns("H:H").Select
   Range("A1:ep" & iRow).Sort Key1:=Range("H1"), Order1:=xlAscending, Header:= _
       xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
       Columns("R:R").Select
   Range("A1:ep" & iRow).Sort Key1:=Range("R1"), Order1:=xlAscending, Header:= _
       xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Worksheets("temp").Range("a1:ep" & iRow).Copy
Worksheets("离职").Range("b4").PasteSpecial Paste:=xlValues
Worksheets("temp").Select
iRow = Worksheets("temp").[a65536].End(xlUp).Row
Worksheets("temp").Range("a1:eq" & iRow).ClearContents
End If
Worksheets("员工登记表").Range("A:eq").AutoFilter Field:=1
Call ShowSelectedWorkSheets(SHT_目录)
Application.ScreenUpdating = True
End Sub
Sub shuju_tubiao() '图表数据源
Dim duixiang, fangan, shujuh
Application.ScreenUpdating = False
duixiang = Worksheets("shuju").Range("c60")
fangan = Worksheets("shuju").Range("c61")
Worksheets("shuju").Select
Worksheets("shuju").Range("b63:m85").ClearContents
If duixiang = 1 Then
  If fangan = 1 Then
Worksheets("shuju").Range("b1") = "现有在职人员部门"
Worksheets("shuju").Range("b5:d27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 2 Then
  Worksheets("shuju").Range("b1") = "现有在职人员工龄"
Worksheets("shuju").Range("g5:i27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 3 Then
  Worksheets("shuju").Range("b1") = "现有在职人员学历"
Worksheets("shuju").Range("l5:n27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 4 Then
  Worksheets("shuju").Range("b1") = "现有在职人员性别"
Worksheets("shuju").Range("p5:r27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 5 Then
  Worksheets("shuju").Range("b1") = "现有在职人员年龄"
Worksheets("shuju").Range("u5:w27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 6 Then
  Worksheets("shuju").Range("b1") = "现有在职人员社保"
Worksheets("shuju").Range("z5:ab27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 7 Then
  Worksheets("shuju").Range("b1") = "现有在职人员劳动合同"
Worksheets("shuju").Range("ae5:ag27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 8 Then
Worksheets("shuju").Range("b63:d85").ClearContents
  End If
End If
If duixiang = 2 Then
  If fangan = 1 Then
   Worksheets("shuju").Range("b1") = "期间离职人员部门"
Worksheets("shuju").Range("al5:an27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 2 Then
Worksheets("shuju").Range("b1") = "期间离职人员工龄"
Worksheets("shuju").Range("aq5:as27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 3 Then
  Worksheets("shuju").Range("b1") = "期间离职人员学历"
Worksheets("shuju").Range("av5:ax27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 4 Then
  Worksheets("shuju").Range("b1") = "期间离职人员性别"
Worksheets("shuju").Range("az5:bb27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 5 Then
  Worksheets("shuju").Range("b1") = "期间离职人员年龄"
Worksheets("shuju").Range("bj5:bl27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 6 Then
  Worksheets("shuju").Range("b1") = "期间离职人员社保"
Worksheets("shuju").Range("bo5:bq27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 7 Then
Worksheets("shuju").Range("b63:d85").ClearContents
  End If
  If fangan = 8 Then
  Worksheets("shuju").Range("b1") = "期间离职人员离职原因"
Worksheets("shuju").Range("be5:bg27").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
End If
If duixiang = 3 Then
  If fangan = 1 Then
  Worksheets("shuju").Range("b1") = "期间新招人员部门"
Worksheets("shuju").Range("b35:d57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 2 Then
  Worksheets("shuju").Range("b1") = "期间新招人员工龄"
Worksheets("shuju").Range("g35:i57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 3 Then
  Worksheets("shuju").Range("b1") = "期间新招人员学历"
Worksheets("shuju").Range("l35:n57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 4 Then
  Worksheets("shuju").Range("b1") = "期间新招人员性别"
Worksheets("shuju").Range("p35:r57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 5 Then
  Worksheets("shuju").Range("b1") = "期间新招人员年龄"
Worksheets("shuju").Range("u35:w57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 6 Then
  Worksheets("shuju").Range("b1") = "期间新招人员社保"
Worksheets("shuju").Range("z35:ab57").Copy
Worksheets("shuju").Range("b63").PasteSpecial Paste:=xlValues
  End If
  If fangan = 7 Then
Worksheets("shuju").Range("b63:d85").ClearContents
  End If
  If fangan = 8 Then
Worksheets("shuju").Range("b63:d85").ClearContents
  End If
End If
shujuh = Worksheets("shuju").Range("g61")
If shujuh <> 0 Then
Worksheets("shuju").Range("b63:b85").Copy
Worksheets("shuju").Range("h63").PasteSpecial Paste:=xlValues
Worksheets("shuju").Range("c63:d85").Copy
Worksheets("shuju").Range("f63").PasteSpecial Paste:=xlValues
End If
Range("F64:H" & 64 + shujuh - 1).Select
    Selection.Sort Key1:=Range("F64"), Order1:=xlDescending
Worksheets("shuju").Range("a63:a85").Copy
Worksheets("shuju").Range("j63").PasteSpecial Paste:=xlValues
Worksheets("shuju").Range("h63:h85").Copy
Worksheets("shuju").Range("k63").PasteSpecial Paste:=xlValues
Worksheets("shuju").Range("f63:g85").Copy
Worksheets("shuju").Range("l63").PasteSpecial Paste:=xlValues
Worksheets("报表").Select
Application.ScreenUpdating = True
End Sub

寄居

学习啦 看来工号很重要

tekoy

谢谢啦！可以用起来了

mojieweiwei

很好很强大，更新一下俺们公司的员工名册，感谢分享。