人力资源系统1.0

随心_201320085

一直以来想开发一个小系统，却一直没有行动。PS：真是思想上的巨人；这两天很少上论坛，于是乎就有了点时间开发了一个人力资源小系统，对于HR专业来说，本人只是以前做过一段时间的HR，专业并没有深究，因此涉及的终究是表面的知识，还请各位专业人士海涵。此系统分为7大模块，那么由于是用笔记本设计的，可能在分辨率较高的电脑上有东西会错位，可以自己微调一下就可以！！具体模块如下所示：                                          注：各个数据库密码为123
第一大模块：利用ribbon把Excel原有的功能菜单屏蔽了，设定了内容上的六大板块，在网上淘了几张照片，作为button的背景，步骤如下所示：
1.新建一个excel文件，打开方式选择winrar文件管理器，那么可以从中看到三个文件夹和一个文件，再新建一个customUI的文件夹；
2.在customUI文件夹下新建一个文本文件改名成customUI.xml文件，那么在此需要注意在解压打开方式下不能新建文件，因此需要在外面新建，再将其移入其中；
3.在customUI.xml文件中输入以下代码保存并关闭：

1. <?xml version="1.0" encoding="gbk" ?>
   
2. <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
   
3.   <ribbon startFromScratch="true">
   
4.     <tabs>
   
5.       <tab id="t1" label="人力资源系统">
   
6.         <group id="g1" label="             基础资料             ">
   
7.           <button id="but1"
   
8.                 label="                                                     基础数据               
   
9. 
   
10. "
    
11.                 size="large"
    
12.                 image="img1"
    
13.                 onAction="ts"/>
    
14.         </group>
    
15.         <group id="g2" label="             劳动合同             ">
    
16.           <button id="but2"
    
17.                 label="                                                     合同管理               
    
18. 
    
19. "
    
20.                 size="large"
    
21.                 image="img2"
    
22.                 onAction="ts"/>
    
23.         </group>
    
24.         <group id="g3" label="             薪酬管理             ">
    
25.           <button id="but3"
    
26.                 label="                                                     薪酬管理               
    
27. 
    
28. "
    
29.                 size="large"
    
30.                 image="img3"
    
31.                 onAction="ts"/>
    
32.         </group>
    
33.         <group id="g4" label="             培训管理             ">
    
34.           <button id="but4"
    
35.                 label="                                                     员工培训               
    
36. 
    
37. "
    
38.                 size="large"
    
39.                 image="img4"
    
40.                 onAction="ts"/>
    
41.         </group>
    
42.         <group id="g5" label="             绩效管理             ">
    
43.           <button id="but5"
    
44.                 label="                                                    绩效福利管理           "
    
45.                 size="large"
    
46.                 image="img5"
    
47.                 onAction="ts"/>
    
48.         </group>
    
49.         <group id="g6" label="             员工关系管理         ">
    
50.           <button id="but6"
    
51.                 label="                                                       员工关系管理         
    
52. 
    
53. "
    
54.                 size="large"
    
55.                 image="img6"
    
56.                 onAction="ts"/>
    
57.         </group>
    
58.       </tab>
    
59.     </tabs>
    
60.   </ribbon>
    
61. </customUI>

复制代码

4.利用记事本打开_rels文件夹下的.rels文件在</Relationships>前增加，其中Id随意写，只要不重复就可以！

1. <Relationship Id="rD810401E-BAAC-4B6D-B140-03E3D2DAFC09" Type="http://schemas.microsoft.com/office/2006/relationships/ui/extensibility"

复制代码

5.在customUI文件夹下新建两个文件夹，分别为images和_rels文件夹，images下放想要自定义的图标，为了方便，命名应当有规则一点；6.在_rels文件夹下同样以记事本的方式新增一个customUI.xml.rels文件，输入以下代码并保存；

1. <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
   
2. <Relationships xmlns="http://schemas.openxmlformats.org/package/2006/relationships"><Relationship Id="img5" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/5.jpg"/><Relationship Id="img4" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/4.jpg"/><Relationship Id="img3" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/3.jpg"/><Relationship Id="img2" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/2.jpg"/><Relationship Id="img1" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/1.jpg"/><Relationship Id="img6" Type="http://schemas.openxmlformats.org/officeDocument/2006/relationships/image" Target="images/6.jpg"/></Relationships>

复制代码

经过以上步骤，那么初步的功能界面已经完成！
界面效果如下图所示：

7、利用OfficeCustomUIEditorSetup工具可以生成回调代码如下所示：

1. 'Callback for but1 onAction
   
2. Sub ts(control as IRibbonControl)
   
3. End Sub
   

复制代码

那么就可以在其中进行编写代码了，回调设定如下所示：

1. Sub ts(control As IRibbonControl)
   
2. Select Case control.ID
   
3. Case "but1"
   
4. UserForm1.Show
   
5. Case "but2"
   
6. UserForm2.Show
   
7. Case "but3"
   
8. UserForm3.Show
   
9. Case "but4"
   
10. UserForm4.Show
    
11. Case "but5"
    
12. UserForm5.Show
    
13. Case "but6"
    
14. UserForm6.Show
    
15. End Select
    
16. End Sub

复制代码

OfficeCustomUIEditorSetup.rar (504.75 KB, 下载次数: 1294)

2016-3-5 13:29 上传

点击文件名下载附件

  OfficeCustomUIEditorSetup工具
第二模块是基础数据界面设计及代码编写：

界面是零零散散的手工画的，有点简单。

随心_201320085

有坛友反应有工程密码，非常抱歉，忘记取消了，工程密码是6个6！

随心_201320085

基础功能的相关代码如下所示：

1. Private Sub CommandButton1_Click() '随心
   
2.   Dim brr(), arr(), k%, rng As Range
   
3.   Sheets("基础数据库").[f:f].NumberFormatLocal = "@"
   
4.   Sheets("基础数据库").[d:d].NumberFormatLocal = "yyyy/m/d"
   
5.   If TextBox5.Text <> "" Then
   
6.   Set rng1 = Sheets("基础数据库").[f:f].Find(TextBox5.Text, , , xlWhole)
   
7.   If rng1 Is Nothing Then
   
8.   For k = 2 To 36
   
9.     n = n + 1
   
10.     ReDim Preserve brr(1 To n)
    
11.     brr(n) = UserForm1.Controls("Textbox" & k).Text
    
12.   Next
    
13.   Set rng = Sheets("基础数据库").Cells(Rows.Count, 1).End(xlUp)(2, 1)
    
14.   rng = TextBox1.Text
    
15.   
    
16.   If OptionButton1.Value = "" Then
    
17.   rng(1, 2) = "女"
    
18.   Else
    
19.   rng(1, 2) = "男"
    
20.   End If
    
21.   For h = 1 To 4
    
22.       If UserForm1.Controls("checkbox" & h).Value Then
    
23.       rng(1, 38 + h) = UserForm1.Controls("checkbox" & h).Caption
    
24.       End If
    
25.   Next
    
26.   rng(1, 42) = TextBox37.Text
    
27.   rng(1, 43) = TextBox38.Text
    
28.   rng(1, 3).Resize(1, UBound(brr)) = Application.Transpose(Application.Transpose(brr))
    
29.   MsgBox "保存成功"
    
30.   Else
    
31.   MsgBox "此人信息已在数据库"
    
32.   End If
    
33.   Else
    
34.   MsgBox "您没有输入相关信息"
    
35.   End If
    
36. End Sub
    
37. 
    
38. Private Sub CommandButton2_Click()
    
39.    For i = 1 To 38
    
40.        UserForm1.Controls("textbox" & i).Text = ""
    
41.    Next
    
42. End Sub
    
43. 
    
44. Private Sub CommandButton3_Click()
    
45.     UserForm1.Hide
    
46. End Sub
    
47. 
    
48. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
49.     If CloseMode <> 1 Then Cancel = True
    
50. End Sub
    

复制代码

以上为窗体代码 ，那么工作薄代码如下：

1. Sub Picture1_Click()
   
2.     For i = 3 To 1 Step -1
   
3.     sr = InputBox("请输入密码")
   
4.     If sr = "123" Then
   
5.     Sheets("基础数据库").Visible = True
   
6.     Sheets("基础数据库").Activate
   
7.     Exit For
   
8.     Else
   
9.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
   
10.     End If
    
11.     Next
    
12. End Sub
    
13. 
    
14. Sub 组合1_Click()
    
15.     For i = 3 To 1 Step -1
    
16.     sr = InputBox("请输入密码")
    
17.     If sr = "123" Then
    
18.     Sheets("合同数据库").Visible = True
    
19.     Sheets("合同数据库").Activate
    
20.     Exit For
    
21.     Else
    
22.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
    
23.     End If
    
24.     Next
    
25. End Sub
    
26. 
    
27. 
    
28. Sub 组合2_Click()
    
29.     For i = 3 To 1 Step -1
    
30.     sr = InputBox("请输入密码")
    
31.     If sr = "123" Then
    
32.     Sheets("薪酬数据库").Visible = True
    
33.     Sheets("薪酬数据库").Activate
    
34.     Exit For
    
35.     Else
    
36.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
    
37.     End If
    
38.     Next
    
39. End Sub
    
40. 
    
41. Sub 组合3_Click()
    
42.     For i = 3 To 1 Step -1
    
43.     sr = InputBox("请输入密码")
    
44.     If sr = "123" Then
    
45.     Sheets("员工培训数据库").Visible = True
    
46.     Sheets("员工培训数据库").Activate
    
47.     Exit For
    
48.     Else
    
49.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
    
50.     End If
    
51.     Next
    
52. End Sub
    
53. 
    
54. Sub 组合5_Click()
    
55.     For i = 3 To 1 Step -1
    
56.     sr = InputBox("请输入密码")
    
57.     If sr = "123" Then
    
58.     Sheets("绩效福利数据库").Visible = True
    
59.     Sheets("绩效福利数据库").Activate
    
60.     Exit For
    
61.     Else
    
62.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
    
63.     End If
    
64.     Next
    
65. End Sub
    
66. 
    
67. Sub 组合6_Click()
    
68.     For i = 3 To 1 Step -1
    
69.     sr = InputBox("请输入密码")
    
70.     If sr = "123" Then
    
71.     Sheets("员工关系数据库").Visible = True
    
72.     Sheets("员工关系数据库").Activate
    
73.     Exit For
    
74.     Else
    
75.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
    
76.     End If
    
77.     Next
    
78. End Sub
    

复制代码

基础数据库工作表代码如下：

1. Private Sub Worksheet_Deactivate()
   
2. Sheets("基础数据库").Visible = False
   
3. End Sub
   

复制代码

随心_201320085

第三大模块是合同管理模块，窗体设计模块代码如下所示：

1. Private Sub CommandButton1_Click()
   
2. Dim rng1 As Range, rng As Range, rng2 As Range
   
3. Sheets("合同数据库").[A:B].NumberFormatLocal = "@"
   
4. Sheets("合同数据库").[e:f].NumberFormatLocal = "@"
   
5. Sheets("合同数据库").[c:d].NumberFormatLocal = "yyyy/M/d"
   
6. Set rng1 = Sheets("合同数据库").Cells(Rows.Count, 2).End(xlUp)(2, 1)
   
7. Set rng = Sheets("合同数据库").[b:b].Find(UserForm2.TextBox1.Text, , , xlWhole)
   
8. Set rng2 = Sheets("基础数据库").[f:f].Find(UserForm2.TextBox1.Text, , , xlWhole)
   
9. If rng2 Is Nothing Then
   
10. MsgBox "基础数据库中没有此人相关信息，请先增加基础信息"
    
11. Exit Sub
    
12. End If
    
13. If rng Is Nothing Then
    
14. rng1(1, 0) = rng2(1, -4).Value
    
15. rng1.Value = UserForm2.TextBox1.Text
    
16. rng1(1, 2) = UserForm2.TextBox2.Text
    
17. rng1(1, 3) = UserForm2.TextBox3.Text
    
18. rng1(1, 4) = UserForm2.TextBox4.Text
    
19. rng1(1, 5) = UserForm2.TextBox5.Text
    
20. MsgBox "保存成功"
    
21. Else
    
22. MsgBox "您新增的信息已存在数据库中"
    
23. End If
    
24. End Sub
    
25. 
    
26. Private Sub CommandButton2_Click()
    
27. For i = 1 To 5
    
28.        UserForm2.Controls("textbox" & i).Text = ""
    
29.    Next
    
30. End Sub
    
31. 
    
32. Private Sub CommandButton3_Click()
    
33. UserForm2.Hide
    
34. End Sub
    
35. 
    
36. Private Sub CommandButton4_Click()
    
37.     Set rng = Sheets("合同数据库").[b:b].Find(UserForm2.TextBox1.Text, , , xlWhole)
    
38.     If Not rng Is Nothing Then
    
39.      rng(1, 2).Value = UserForm2.TextBox2.Text
    
40.      rng(1, 3).Value = UserForm2.TextBox3.Text
    
41.      rng(1, 4).Value = UserForm2.TextBox4.Text
    
42.      rng(1, 5).Value = UserForm2.TextBox5.Text
    
43.      MsgBox "已更改信息"
    
44.      Else
    
45.      MsgBox "此信息库中没有相关信息"
    
46.      End If
    
47. End Sub
    
48. 
    
49. Private Sub CommandButton5_Click()
    
50.      Set rng = Sheets("合同数据库").[b:b].Find(UserForm2.TextBox1.Text, , , xlWhole)
    
51.      If Not rng Is Nothing Then
    
52.             UserForm2.TextBox2.Text = rng(1, 2).Value
    
53.             UserForm2.TextBox3.Text = rng(1, 3).Value
    
54.             UserForm2.TextBox4.Text = rng(1, 4).Value
    
55.             UserForm2.TextBox5.Text = rng(1, 5).Value
    
56.         Else
    
57.         MsgBox "您输入的信息不在数据库，请增加相关信息"
    
58.      End If
    
59. End Sub
    
60. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
61.     If CloseMode <> 1 Then Cancel = True
    
62. End Sub
    

复制代码

合同数据库工作表代码如下所示：

1. Private Sub Worksheet_Deactivate()
   
2. Sheets("合同数据库").Visible = False
   
3. End Sub
   

复制代码

随心_201320085

第四大模块是薪酬模块，窗体代码如下所示：

1. Private Sub CommandButton1_Click()
   
2. Dim rng As Range, rng1 As Range, rng2 As Range
   
3. Sheets("薪酬数据库").[e:f].NumberFormatLocal = "yyyy/M/d"
   
4. Set rng = Sheets("基础数据库").[f:f].Find(UserForm3.TextBox1.Text, , , xlWhole)
   
5. Set rng1 = Sheets("薪酬数据库").Cells(Rows.Count, 2).End(xlUp)(2, 1)
   
6. Set rng2 = Sheets("薪酬数据库").[b:b].Find(UserForm3.TextBox1.Text, , , xlWhole)
   
7. If Not rng2 Is Nothing Then
   
8. MsgBox "此信息已存在"
   
9. Exit Sub
   
10. End If
    
11. If rng Is Nothing Then
    
12. MsgBox "基础数据库中没有此人相关信息，请新增基础信息"
    
13. Else
    
14.   rng1(1, 0) = rng(1, -4)
    
15.   rng1 = UserForm3.TextBox1.Text
    
16.   rng1(1, 2) = UserForm3.TextBox2.Text
    
17.   rng1(1, 3) = UserForm3.TextBox3.Text
    
18.   rng1(1, 4) = UserForm3.TextBox4.Text
    
19.   rng1(1, 5) = UserForm3.TextBox5.Text
    
20.   MsgBox "保存成功"
    
21. End If
    
22. End Sub
    
23. 
    
24. Private Sub CommandButton2_Click()
    
25. For i = 1 To 5
    
26.        UserForm3.Controls("textbox" & i).Text = ""
    
27.    Next
    
28. End Sub
    
29. 
    
30. Private Sub CommandButton3_Click()
    
31. UserForm3.Hide
    
32. End Sub
    
33. 
    
34. Private Sub CommandButton4_Click()
    
35. Set rng = Sheets("薪酬数据库").[b:b].Find(UserForm3.TextBox1.Text, , , xlWhole)
    
36.     If Not rng Is Nothing Then
    
37.      rng(1, 2).Value = UserForm3.TextBox2.Text
    
38.      rng(1, 3).Value = UserForm3.TextBox3.Text
    
39.      rng(1, 4).Value = UserForm3.TextBox4.Text
    
40.      rng(1, 5).Value = UserForm3.TextBox5.Text
    
41.      MsgBox "已更改信息"
    
42.      Else
    
43.      MsgBox "此信息库中没有相关信息"
    
44.      End If
    
45. End Sub
    
46. 
    
47. Private Sub CommandButton5_Click()
    
48. Dim rng As Range
    
49. If UserForm3.TextBox1.Text = "" Then
    
50. MsgBox "请输入身份证号码"
    
51. Exit Sub
    
52. End If
    
53. Set rng = Sheets("薪酬数据库").[b:b].Find(UserForm3.TextBox1.Text, , , xlWhole)
    
54. If rng Is Nothing Then
    
55.    MsgBox "您所查询的数据不存在，请新增后再查询"
    
56.    Else
    
57.    UserForm3.TextBox2.Text = rng(1, 2).Value
    
58.    UserForm3.TextBox3.Text = rng(1, 3).Value
    
59.    UserForm3.TextBox4.Text = rng(1, 4).Value
    
60.    UserForm3.TextBox5.Text = rng(1, 5).Value
    
61.    MsgBox "查询完成"
    
62. End If
    
63. End Sub
    
64. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
65.     If CloseMode <> 1 Then Cancel = True
    
66. End Sub
    

复制代码

薪酬工作表代码如下所示：

1. Private Sub Worksheet_Deactivate()
   
2. Sheets("薪酬数据库").Visible = False
   
3. End Sub
   

复制代码

随心_201320085

第五大模块是员工培训窗体代码如下所示：

1. Private Sub CommandButton1_Click()
   
2.   Dim rng As Range, rng1 As Range
   
3.   Sheets("员工培训数据库").[c:c].NumberFormatLocal = "@"
   
4.   Set rng = Sheets("员工培训数据库").[c:c].Find(UserForm4.TextBox3.Text, , , xlWhole)
   
5.   Set rng1 = Sheets("员工培训数据库").Cells(Rows.Count, 3).End(xlUp)(2, 1)
   
6.   If rng Is Nothing Then
   
7.   If UserForm4.TextBox3 = "" Then
   
8.   MsgBox "请输入正确的书籍ID号"
   
9.   Exit Sub
   
10.   End If
    
11.       If rng Is Nothing Then
    
12.       rng1 = UserForm4.TextBox3.Text
    
13.       rng1(1, 2) = UserForm4.TextBox4.Text
    
14.       rng1(1, 0) = UserForm4.TextBox2.Text
    
15.       rng1(1, -1) = UserForm4.TextBox1.Text
    
16.       MsgBox "新增完成"
    
17.       End If
    
18.       Else
    
19.       MsgBox "此书籍已存在"
    
20.       End If
    
21. End Sub
    
22. 
    
23. Private Sub CommandButton2_Click()
    
24.   For i = 1 To 4
    
25.   UserForm4.Controls("textbox" & i).Text = ""
    
26.   Next
    
27. End Sub
    
28. 
    
29. Private Sub CommandButton3_Click()
    
30. UserForm4.Hide
    
31. End Sub
    
32. 
    
33. Private Sub CommandButton5_Click()
    
34. Set rng = Sheets("员工培训数据库").[c:c].Find(UserForm4.TextBox3.Text, , , xlWhole)
    
35. If Not rng Is Nothing Then
    
36.    UserForm4.TextBox1.Text = rng(1, -1)
    
37.    UserForm4.TextBox2.Text = rng(1, 0)
    
38.    UserForm4.TextBox4.Text = rng(1, 2)
    
39.    MsgBox "查询完成"
    
40. Else
    
41. MsgBox "数据库中没此条记录"
    
42. End If
    
43. End Sub
    
44. 
    
45. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
46.     If CloseMode <> 1 Then Cancel = True
    
47. End Sub
    

复制代码

工作表代码如下所示：

1. Private Sub Worksheet_Deactivate()
   
2. Sheets("员工培训数据库").Visible = False
   
3. End Sub
   

复制代码

第六大模块是绩效福利管理，窗体代码如下所示：

1. Private Sub CommandButton1_Click()
   
2.     Dim rng5 As Range, rng6 As Range, rng7 As Range
   
3.     Set rng5 = Sheets("基础数据库").[f:f].Find(UserForm5.TextBox1.Text, , , xlWhole)
   
4.     Set rng6 = Sheets("绩效福利数据库").Cells(Rows.Count, 2).End(xlUp)(2, 1)
   
5.     Set rng7 = Sheets("绩效福利数据库").[b:b].Find(UserForm5.TextBox1.Text, , , xlWhole)
   
6.     If Not rng7 Is Nothing Then
   
7.        If rng7(1, 0) = UserForm5.ComboBox1.Text Then
   
8.     MsgBox "此条信息已保存在数据库"
   
9.     Exit Sub
   
10.     End If
    
11.     End If
    
12.     If Not rng5 Is Nothing And UserForm5.TextBox1.Text <> "" Then
    
13.         rng6 = UserForm5.TextBox1.Text
    
14.         rng6(1, 0) = UserForm5.ComboBox1.Text
    
15.         rng6(1, 2) = rng5(1, -4)
    
16.         If UserForm5.OptionButton1.Value = "" Then
    
17.         rng6(1, 3) = "否"
    
18.         Else
    
19.         rng6(1, 3) = "是"
    
20.         End If
    
21.         rng6(1, 4) = UserForm5.TextBox2.Text
    
22.       MsgBox "新增信息完成"
    
23.      Else
    
24.      MsgBox "基础数据中不存在此条数据"
    
25.     End If
    
26. End Sub
    
27. 
    
28. Private Sub CommandButton2_Click()
    
29. For i = 1 To 2
    
30. UserForm5.Controls("textbox" & i).Text = ""
    
31. Next
    
32. UserForm5.ComboBox1.Text = "无"
    
33. 
    
34. End Sub
    
35. 
    
36. Private Sub CommandButton5_Click()
    
37. Dim srrr As Range, srr
    
38. srr = UserForm5.ComboBox1.Text & UserForm5.TextBox1.Text
    
39.   Set rng7 = Sheets("绩效福利数据库").[f:f].Find(srr, , , xlWhole)
    
40. If Not rng7 Is Nothing Then
    
41.     UserForm5.ListBox1.AddItem (rng7(1, -2))
    
42.     UserForm5.TextBox2 = rng7(1, 0)
    
43.     If rng7(1, 3) = "是" Then
    
44.     UserForm5.OptionButton2.Value = ""
    
45.     Else
    
46.     UserForm5.OptionButton1.Value = ""
    
47.     End If
    
48.     MsgBox "查询完成"
    
49. Else
    
50. MsgBox "数据库中无此条记录"
    
51. End If
    
52. End Sub
    
53. 
    
54. Private Sub CommandButton3_Click()
    
55. UserForm5.Hide
    
56. End Sub
    
57. 
    
58. Private Sub UserForm_Initialize()
    
59.     Dim srr As Variant
    
60.     Dim sr As Variant
    
61.     srr = Array("无", "1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")
    
62.     For Each sr In srr
    
63.     UserForm5.ComboBox1.AddItem sr
    
64. Next
    
65.     UserForm5.ComboBox1.ListRows = 13
    
66.     UserForm5.ComboBox1.ListIndex = 0
    
67. End Sub
    
68. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
69.     If CloseMode <> 1 Then Cancel = True
    
70. End Sub
    

复制代码

工作表代码如下所示：

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column <= 2 Then
   
3. Cells(Target.Row, "f") = Cells(Target.Row, 1) & Cells(Target.Row, 2)
   
4. End If
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Deactivate()
   
8. Sheets("绩效福利数据库").Visible = False
   
9. End Sub
   

复制代码

第七大模块是员工关系模块，窗体代码如下所示：

1. Private Sub CommandButton1_Click()
   
2. UserForm7.Show
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click()
   
6. UserForm6.ComboBox1 = ""
   
7. UserForm6.TextBox1 = ""
   
8. End Sub
   
9. 
   
10. Private Sub CommandButton3_Click()
    
11. UserForm6.Hide
    
12. End Sub
    
13. 
    
14. Private Sub CommandButton5_Click()
    
15. Dim rng As Range
    
16. Set rng = Sheets("员工关系数据库").[a:a].Find(UserForm6.ComboBox1.Text, , , xlWhole)
    
17. UserForm6.TextBox1.Text = rng(1, 2)
    
18. End Sub
    
19. 
    
20. Private Sub UserForm_Initialize()
    
21. Dim srr As Variant
    
22.     Dim sr As Variant
    
23.     srr = Array("无", "一、劳动关系管理", "二、员工纪律管理", "三、员工人际关系管理", "四、沟通管理", "五、员工绩效管理", "六、员工情况管理", "七、企业文化建设管理", "八、服务与支持管理", "九、员工关系培训管理")
    
24.     For Each sr In srr
    
25.     UserForm6.ComboBox1.AddItem sr
    
26. Next
    
27.     UserForm6.ComboBox1.ListRows = 10
    
28.     UserForm6.ComboBox1.ListIndex = 0
    
29. End Sub
    
30. 
    
31. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
32.     If CloseMode <> 1 Then Cancel = True
    
33. End Sub
    

复制代码

工作表代码如下所示：

1. Private Sub Worksheet_Deactivate()
   
2. Sheets("员工关系数据库").Visible = False
   
3. End Sub
   

复制代码

随心_201320085

具体效果图如下所示：

随心_201320085

最后文件在此！ 人力资源系统1.0.zip (1.7 MB, 下载次数: 2942)

2016-3-5 14:13 上传

点击文件名下载附件

天海贝萱

谢谢楼主分享，学习了

zhengwen123

谢谢楼主的分享，学习了

zhengwen123

谢谢楼主的分享，学习了