ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 27895|回复: 95

[原创] 人力资源系统1.0

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2016-3-5 13:35 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:模板和开源系统
本帖最后由 随心_201320085 于 2016-3-5 15:15 编辑

一直以来想开发一个小系统,却一直没有行动。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.                 size="large"
  11.                 image="img1"
  12.                 onAction="ts"/>
  13.         </group>
  14.         <group id="g2" label="             劳动合同             ">
  15.           <button id="but2"
  16.                 label="                                                     合同管理               

  17. "
  18.                 size="large"
  19.                 image="img2"
  20.                 onAction="ts"/>
  21.         </group>
  22.         <group id="g3" label="             薪酬管理             ">
  23.           <button id="but3"
  24.                 label="                                                     薪酬管理               

  25. "
  26.                 size="large"
  27.                 image="img3"
  28.                 onAction="ts"/>
  29.         </group>
  30.         <group id="g4" label="             培训管理             ">
  31.           <button id="but4"
  32.                 label="                                                     员工培训               

  33. "
  34.                 size="large"
  35.                 image="img4"
  36.                 onAction="ts"/>
  37.         </group>
  38.         <group id="g5" label="             绩效管理             ">
  39.           <button id="but5"
  40.                 label="                                                    绩效福利管理           "
  41.                 size="large"
  42.                 image="img5"
  43.                 onAction="ts"/>
  44.         </group>
  45.         <group id="g6" label="             员工关系管理         ">
  46.           <button id="but6"
  47.                 label="                                                       员工关系管理         

  48. "
  49.                 size="large"
  50.                 image="img6"
  51.                 onAction="ts"/>
  52.         </group>
  53.       </tab>
  54.     </tabs>
  55.   </ribbon>
  56. </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>
复制代码
经过以上步骤,那么初步的功能界面已经完成!
界面效果如下图所示:
界面.jpg
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, 下载次数: 1269)   OfficeCustomUIEditorSetup工具
第二模块是基础数据界面设计及代码编写:
1000.jpg
界面是零零散散的手工画的,有点简单。

评分

7

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-6 17:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
有坛友反应有工程密码,非常抱歉,忘记取消了,工程密码是6个6!

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 13:44 | 显示全部楼层
基础功能的相关代码如下所示:
  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. Private Sub CommandButton2_Click()
  38.    For i = 1 To 38
  39.        UserForm1.Controls("textbox" & i).Text = ""
  40.    Next
  41. End Sub

  42. Private Sub CommandButton3_Click()
  43.     UserForm1.Hide
  44. End Sub

  45. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  46.     If CloseMode <> 1 Then Cancel = True
  47. 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. Sub 组合1_Click()
  14.     For i = 3 To 1 Step -1
  15.     sr = InputBox("请输入密码")
  16.     If sr = "123" Then
  17.     Sheets("合同数据库").Visible = True
  18.     Sheets("合同数据库").Activate
  19.     Exit For
  20.     Else
  21.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
  22.     End If
  23.     Next
  24. End Sub


  25. Sub 组合2_Click()
  26.     For i = 3 To 1 Step -1
  27.     sr = InputBox("请输入密码")
  28.     If sr = "123" Then
  29.     Sheets("薪酬数据库").Visible = True
  30.     Sheets("薪酬数据库").Activate
  31.     Exit For
  32.     Else
  33.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
  34.     End If
  35.     Next
  36. End Sub

  37. Sub 组合3_Click()
  38.     For i = 3 To 1 Step -1
  39.     sr = InputBox("请输入密码")
  40.     If sr = "123" Then
  41.     Sheets("员工培训数据库").Visible = True
  42.     Sheets("员工培训数据库").Activate
  43.     Exit For
  44.     Else
  45.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
  46.     End If
  47.     Next
  48. End Sub

  49. Sub 组合5_Click()
  50.     For i = 3 To 1 Step -1
  51.     sr = InputBox("请输入密码")
  52.     If sr = "123" Then
  53.     Sheets("绩效福利数据库").Visible = True
  54.     Sheets("绩效福利数据库").Activate
  55.     Exit For
  56.     Else
  57.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
  58.     End If
  59.     Next
  60. End Sub

  61. Sub 组合6_Click()
  62.     For i = 3 To 1 Step -1
  63.     sr = InputBox("请输入密码")
  64.     If sr = "123" Then
  65.     Sheets("员工关系数据库").Visible = True
  66.     Sheets("员工关系数据库").Activate
  67.     Exit For
  68.     Else
  69.     MsgBox "您输入的密码不正确,请重新输入密码" & Chr(13) & "您还可以输入" & i - 1 & "次密码"
  70.     End If
  71.     Next
  72. End Sub
复制代码

基础数据库工作表代码如下:
  1. Private Sub Worksheet_Deactivate()
  2. Sheets("基础数据库").Visible = False
  3. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 13:47 | 显示全部楼层
第三大模块是合同管理模块,窗体设计模块代码如下所示:
  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. Private Sub CommandButton2_Click()
  26. For i = 1 To 5
  27.        UserForm2.Controls("textbox" & i).Text = ""
  28.    Next
  29. End Sub

  30. Private Sub CommandButton3_Click()
  31. UserForm2.Hide
  32. End Sub

  33. Private Sub CommandButton4_Click()
  34.     Set rng = Sheets("合同数据库").[b:b].Find(UserForm2.TextBox1.Text, , , xlWhole)
  35.     If Not rng Is Nothing Then
  36.      rng(1, 2).Value = UserForm2.TextBox2.Text
  37.      rng(1, 3).Value = UserForm2.TextBox3.Text
  38.      rng(1, 4).Value = UserForm2.TextBox4.Text
  39.      rng(1, 5).Value = UserForm2.TextBox5.Text
  40.      MsgBox "已更改信息"
  41.      Else
  42.      MsgBox "此信息库中没有相关信息"
  43.      End If
  44. End Sub

  45. Private Sub CommandButton5_Click()
  46.      Set rng = Sheets("合同数据库").[b:b].Find(UserForm2.TextBox1.Text, , , xlWhole)
  47.      If Not rng Is Nothing Then
  48.             UserForm2.TextBox2.Text = rng(1, 2).Value
  49.             UserForm2.TextBox3.Text = rng(1, 3).Value
  50.             UserForm2.TextBox4.Text = rng(1, 4).Value
  51.             UserForm2.TextBox5.Text = rng(1, 5).Value
  52.         Else
  53.         MsgBox "您输入的信息不在数据库,请增加相关信息"
  54.      End If
  55. End Sub
  56. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  57.     If CloseMode <> 1 Then Cancel = True
  58. End Sub
复制代码

合同数据库工作表代码如下所示:
  1. Private Sub Worksheet_Deactivate()
  2. Sheets("合同数据库").Visible = False
  3. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 13:48 | 显示全部楼层
第四大模块是薪酬模块,窗体代码如下所示:
  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. Private Sub CommandButton2_Click()
  24. For i = 1 To 5
  25.        UserForm3.Controls("textbox" & i).Text = ""
  26.    Next
  27. End Sub

  28. Private Sub CommandButton3_Click()
  29. UserForm3.Hide
  30. End Sub

  31. Private Sub CommandButton4_Click()
  32. Set rng = Sheets("薪酬数据库").[b:b].Find(UserForm3.TextBox1.Text, , , xlWhole)
  33.     If Not rng Is Nothing Then
  34.      rng(1, 2).Value = UserForm3.TextBox2.Text
  35.      rng(1, 3).Value = UserForm3.TextBox3.Text
  36.      rng(1, 4).Value = UserForm3.TextBox4.Text
  37.      rng(1, 5).Value = UserForm3.TextBox5.Text
  38.      MsgBox "已更改信息"
  39.      Else
  40.      MsgBox "此信息库中没有相关信息"
  41.      End If
  42. End Sub

  43. Private Sub CommandButton5_Click()
  44. Dim rng As Range
  45. If UserForm3.TextBox1.Text = "" Then
  46. MsgBox "请输入身份证号码"
  47. Exit Sub
  48. End If
  49. Set rng = Sheets("薪酬数据库").[b:b].Find(UserForm3.TextBox1.Text, , , xlWhole)
  50. If rng Is Nothing Then
  51.    MsgBox "您所查询的数据不存在,请新增后再查询"
  52.    Else
  53.    UserForm3.TextBox2.Text = rng(1, 2).Value
  54.    UserForm3.TextBox3.Text = rng(1, 3).Value
  55.    UserForm3.TextBox4.Text = rng(1, 4).Value
  56.    UserForm3.TextBox5.Text = rng(1, 5).Value
  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
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 13:52 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
第五大模块是员工培训窗体代码如下所示:
  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. Private Sub CommandButton2_Click()
  23.   For i = 1 To 4
  24.   UserForm4.Controls("textbox" & i).Text = ""
  25.   Next
  26. End Sub

  27. Private Sub CommandButton3_Click()
  28. UserForm4.Hide
  29. End Sub

  30. Private Sub CommandButton5_Click()
  31. Set rng = Sheets("员工培训数据库").[c:c].Find(UserForm4.TextBox3.Text, , , xlWhole)
  32. If Not rng Is Nothing Then
  33.    UserForm4.TextBox1.Text = rng(1, -1)
  34.    UserForm4.TextBox2.Text = rng(1, 0)
  35.    UserForm4.TextBox4.Text = rng(1, 2)
  36.    MsgBox "查询完成"
  37. Else
  38. MsgBox "数据库中没此条记录"
  39. End If
  40. End Sub

  41. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  42.     If CloseMode <> 1 Then Cancel = True
  43. 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. Private Sub CommandButton2_Click()
  28. For i = 1 To 2
  29. UserForm5.Controls("textbox" & i).Text = ""
  30. Next
  31. UserForm5.ComboBox1.Text = "无"

  32. End Sub

  33. Private Sub CommandButton5_Click()
  34. Dim srrr As Range, srr
  35. srr = UserForm5.ComboBox1.Text & UserForm5.TextBox1.Text
  36.   Set rng7 = Sheets("绩效福利数据库").[f:f].Find(srr, , , xlWhole)
  37. If Not rng7 Is Nothing Then
  38.     UserForm5.ListBox1.AddItem (rng7(1, -2))
  39.     UserForm5.TextBox2 = rng7(1, 0)
  40.     If rng7(1, 3) = "是" Then
  41.     UserForm5.OptionButton2.Value = ""
  42.     Else
  43.     UserForm5.OptionButton1.Value = ""
  44.     End If
  45.     MsgBox "查询完成"
  46. Else
  47. MsgBox "数据库中无此条记录"
  48. End If
  49. End Sub

  50. Private Sub CommandButton3_Click()
  51. UserForm5.Hide
  52. End Sub

  53. Private Sub UserForm_Initialize()
  54.     Dim srr As Variant
  55.     Dim sr As Variant
  56.     srr = Array("无", "1月", "2月", "3月", "4月", "5月", "6月", "7月", "8月", "9月", "10月", "11月", "12月")
  57.     For Each sr In srr
  58.     UserForm5.ComboBox1.AddItem sr
  59. Next
  60.     UserForm5.ComboBox1.ListRows = 13
  61.     UserForm5.ComboBox1.ListIndex = 0
  62. End Sub
  63. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  64.     If CloseMode <> 1 Then Cancel = True
  65. 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. Private Sub Worksheet_Deactivate()
  7. Sheets("绩效福利数据库").Visible = False
  8. End Sub
复制代码

第七大模块是员工关系模块,窗体代码如下所示:
  1. Private Sub CommandButton1_Click()
  2. UserForm7.Show
  3. End Sub

  4. Private Sub CommandButton2_Click()
  5. UserForm6.ComboBox1 = ""
  6. UserForm6.TextBox1 = ""
  7. End Sub

  8. Private Sub CommandButton3_Click()
  9. UserForm6.Hide
  10. End Sub

  11. Private Sub CommandButton5_Click()
  12. Dim rng As Range
  13. Set rng = Sheets("员工关系数据库").[a:a].Find(UserForm6.ComboBox1.Text, , , xlWhole)
  14. UserForm6.TextBox1.Text = rng(1, 2)
  15. End Sub

  16. Private Sub UserForm_Initialize()
  17. Dim srr As Variant
  18.     Dim sr As Variant
  19.     srr = Array("无", "一、劳动关系管理", "二、员工纪律管理", "三、员工人际关系管理", "四、沟通管理", "五、员工绩效管理", "六、员工情况管理", "七、企业文化建设管理", "八、服务与支持管理", "九、员工关系培训管理")
  20.     For Each sr In srr
  21.     UserForm6.ComboBox1.AddItem sr
  22. Next
  23.     UserForm6.ComboBox1.ListRows = 10
  24.     UserForm6.ComboBox1.ListIndex = 0
  25. End Sub

  26. Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  27.     If CloseMode <> 1 Then Cancel = True
  28. End Sub
复制代码

工作表代码如下所示:
  1. Private Sub Worksheet_Deactivate()
  2. Sheets("员工关系数据库").Visible = False
  3. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 14:12 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-3-5 14:13 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-3-5 16:49 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-3-5 19:28 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-3-5 19:29 来自手机 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢楼主的分享,学习了
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:28 , Processed in 0.062872 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表