多功能人事信息管理系统（附件已更新）

jinqiangren

蔡宛宏

高人啊  好好学习一下

njsean2005

谢谢楼主分享

andreyyg

谢谢分享，好东西啊！

lhsh36183

谢谢分享，学习了

buddha2005

真的很好，可以满足中小企业的需求了

espritwinnie

很强大啊！学习了！

aa574629576

Private Sub MultiPage1_Enter()
    Dim s1%, s2%, s3%, s4%, s5%, s6%, s7%, s8%, s9%, s10%, i%, rng As Range
    MultiPage1.Value = 0
    With Worksheets("离职人员")
        .Visible = -1
        .Activate
        For Each rng In Range(Cells(2, 30), Cells([A65536].End(xlUp).Row, 30))
            If Month(rng.Value) = Month(Date) And Year(rng.Value) = Year(Date) Then s4 = s4 + 1
        Next
        .Visible = 2
    End With

    With Worksheets("基本信息")
        .Activate
        s1 = [A65536].End(xlUp).Row - 1

        For Each rng In Range(Cells(2, 31), Cells(s1 + 1, 31))
            If rng.Value = "申离" Then s2 = s2 + 1
        Next

        For Each rng In Range(Cells(2, 26), Cells(s1 + 1, 26))
            If Month(rng.Value) = Month(VBA.Date) And Year(rng.Value) = Year(VBA.Date) Then s3 = s3 + 1
        Next

        For Each rng In Range(Cells(2, 3), Cells(s1 + 1, 3))
            Select Case rng.Value
            Case "设备能源管理部"
                s5 = s5 + 1
            Case "设备能源部"
            Case "变电所"
                s5 = s5 + 1

            Case "工程管理部"
                s6 = s6 + 1
            Case "工程项目管理部"
                s6 = s6 + 1
            Case "工程管理组"
                s6 = s6 + 1

            Case "公司管理部"
                s7 = s7 + 1
            Case "车队"
                s7 = s7 + 1
            Case "后勤工段"
                s7 = s7 + 1
            Case "党政办公室"
                s7 = s7 + 1
            Case "人事办公室"
                s7 = s7 + 1

            Case "供销部"
                s8 = s8 + 1
            Case "采购组"
                s8 = s8 + 1
            Case "储运工段"
                s8 = s8 + 1

            Case "生产安全环保部"
                s9 = s9 + 1
            Case "化验中心"
                s9 = s9 + 1
            Case "安全保卫科"
                s9 = s9 + 1
            Case "生产调度室"
                s9 = s9 + 1
            Case "生产技术科"
                s9 = s9 + 1
            Case "保卫科"
                s9 = s9 + 1

            Case "采矿厂"
                s10 = s10 + 1
            Case "安全生产室"
                s10 = s10 + 1
            Case "地测室"
                s10 = s10 + 1
               
            Case "七角井选矿厂"
                s11 = s11 + 1
            Case "长流水磨选工段"
                s11 = s11 + 1
            Case "厂部"
                s11 = s11 + 1
            Case "磨选工段"
                s11 = s11 + 1
            Case "破碎工段"
                s11 = s11 + 1
            
            Case "钒冶炼厂"
                s12 = s12 + 1
           
            Case "公司领导"
                s13 = s13 + 1
               
            Case "财务资产室"
                s14 = s14 + 1
            End Select
        Next

        Me.Frame1.Lb1.Caption = "目前公司在职人数共" & " " & s1 & "人"
        Me.Frame1.Lb2.Caption = "其中申请离职人数为" & " " & s2 & "人"
        Me.Frame1.Lb3.Caption = "本月新进员工人数为" & " " & s3 & "人"
        Me.Frame1.Lb4.Caption = "本月离职员工人数为" & " " & s4 & "人"
        Me.Frame2.Lb5.Caption = "在职人数为" & " " & s5 & "人"
        Me.Frame3.Lb6.Caption = "在职人数为" & " " & s6 & "人"
        Me.Frame5.Lb7.Caption = "在职人数为" & " " & s7 & "人"
        Me.Frame4.Lb8.Caption = "在职人数为" & " " & s8 & "人"
        Me.Frame7.Lb9.Caption = "在职人数为" & " " & s9 & "人"
        Me.Frame6.Lb10.Caption = "在职人数为" & " " & s10 & "人"
        Me.Frame13.Lb11.Caption = "在职人数为" & " " & s11 & "人"
        Me.Frame14.Lb12.Caption = "在职人数为" & " " & s12 & "人"
        Me.Frame15.Lb13.Caption = "在职人数为" & " " & s13 & "人"
        Me.Frame16.Lb14.Caption = "在职人数为" & " " & s14 & "人"
        .Visible = 2
    End With
End Sub

qixu88

谢谢分享哦

alzeng

原帖由 aa574629576 于 2010-9-14 15:45 发表
Private Sub MultiPage1_Enter()
    Dim s1%, s2%, s3%, s4%, s5%, s6%, s7%, s8%, s9%, s10%, i%, rng As Range
    MultiPage1.Value = 0
    With Worksheets("离职人员")
        .Visible = -1
        . ...

错误的原因不明，应该跟此处的运算无关，关于Select Case可以简化一下：

1. 
   
2.     For Each rng In Range(Cells(2, 3), Cells(s1 + 1, 3))
   
3.         Select Case rng.Value
   
4.         Case "设备能源管理部", "设备能源部", "变电所"
   
5.             s5 = s5 + 1
   
6.         Case "工程管理部", "工程项目管理部", "工程管理组"
   
7.             s6 = s6 + 1
   
8.         Case "公司管理部"
   
9.             s7 = s7 + 1
   
10.         Case "车队", "后勤工段", "党政办公室", "人事办公室"
    
11.             s7 = s7 + 1
    
12.         Case "供销部", "采购组", "储运工段"
    
13.             s8 = s8 + 1
    
14.         Case "生产安全环保部", "化验中心", "安全保卫科", "生产调度室", "生产技术科", "保卫科"
    
15.             s9 = s9 + 1
    
16.         Case "采矿厂", "安全生产室", "地测室"
    
17.             s10 = s10 + 1
    
18.         Case "七角井选矿厂", "长流水磨选工段", "厂部", "磨选工段", "破碎工段"
    
19.             s11 = s11 + 1
    
20.         Case "钒冶炼厂"
    
21.             s12 = s12 + 1
    
22.         Case "公司领导"
    
23.             s13 = s13 + 1
    
24.         Case "财务资产室"
    
25.             s14 = s14 + 1
    
26.         End Select
    
27.     Next
    

复制代码