搜索
实验二：职工退休到龄提醒表一、实验背景按照国家现行的规定，男性慢60周岁，女性干部慢55周岁，女性工人满50周岁即达到正式退休年龄。在实际工作中，在员工到龄办理退休手续之前，人力资源部还有许多工作要完成，如工作的交接、可定保险缴费、照片准备、保险手册签字等工作，因此人力资源部门需要提前了解哪些员工快要到龄，从而提前做好各种准备工作。下面介绍的案例将借助VBA实现职工退休到龄提醒功能。最终效果展示【实验步骤】创建职工退休到龄提醒表Step1：创建工作簿启动Excel2010自动建立一个工作簿，然后保存并命名为“职工退休到龄提醒表。”Step2：重命名工作表双击工作表标签“Sheet1”进入标签重命名状态，输入“人事数据表”，按Enter键确定。Step3：输入表格标题在A1：M2单元格区域的各个单元格里分别输入表格标题Step4输入员工相关信息除了“入职时间”项之外，在A3:M12单元格区域输入员工的相关信息Step5：编制计算员工入职时间公式现在需要计算员工的入职时间。1.单击H3单元格，输入以下公式：=DATEDIF(F3，TODAY(),”Y”)，按Enter键确认，此时H3单元格输出结果“41”。2.单击H3单元格，移动光标到该单元格右下角，当光标变成“+”形状时，按住左键不放向下拖动至H12单元格，然后松开左键，这时就将公式复制到了H3：H12单元格区域，结果如下图所示。编制VBA来提示到龄员工下面编制VBA，借助窗体提示人力资源部有哪些员工即将退休。因为要用到宏，所以要预先降低宏的安全性。读者可以依次单击菜单“选项”→“信任中心”→“宏设置”，在弹出“信任中心”对话框中将安全性调整为“启用所有宏”。最后单击“确定”按钮即可。Step1：启动VBA按Alt+F11组合键启动VBA.Step2：插入窗体依次单击菜单“插入”→“用户窗体”Step3修改窗体属性此时，系统将添加一个窗体“UserForm1”1.单击屏幕左下角“属性”窗口中的“（名称）”文本框“UserForm1”,然后将其修改为“UsfRtRmnd”，按Enter键确认。2.依照操作方法，将“Caption”文本框里的“UserForm1”修改为“退休提醒”。3.连续单击“属性”窗口里的下箭头按钮，纸质窗口显示“Height”，然后修改该文本框的数据为“147.75”。4.按此操作方法，近“Weight”里的数据修改为“436.5”，至此新添加的窗体的属性设置完成，结果如下图所示。Step4:添加控件标签单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“标签”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新标签框。Step5修改标签控件属性1.单击“属性”窗口里的“（名称）”文本框里的“Label1”，然后修改为“IbIRtRmnd”，按Enter键确认。2.按此操作方法，将“Caption”文本框里的“Label1”修改为“下列人员即将到达退休期：”。3.连续单击“属性”窗口里的下键头按钮，直至窗口里显示“Height”，然后修改该文本框里的数据为“9”。4.按此操作方法，将“Left”文本框里的数据修改为“6”，将“Top”文本框里的数据修改为“6”，将“Width”文本框里数据修改为“117.5”。Step6添加列表框控件单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“列表框”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新列表框。Step7修改列表框控件属性1.按step5的方法，将命令“（名称）”文本框里的“ListBox1”修改为“IstRtRmnd”。2.然后将“Height”，然后修改该文本框里的数据为“65.9”，将“Left”文本框里的数据修改为“6”，将“Top”文本框里的数据修改为“24”，将“Width”文本框里数据修改为“422.3”。ColumnCount为列表框的列数，用来显示符合条件人员的工号、姓名、隶属部门、学历、生日、性别、入职时间、职称、职务、身份、退休时间等，因此需要对其进行修改。3.将“ColumnCount”文本框里的数据“1”修改为“11”。4.在“ColumnWidth”文本框里输入如下数据：“24.95；40；4.；30；53；24.95；24.95；40；40；24.95；49.95”。Step8添加命令控件单击窗体的任意位置调出“工具箱”，然后单击“工具箱”里的“命令按钮”按钮，接着移动鼠标单击窗体的任意位置，此时就可以添加一个新命令按钮。Step9修改命令控件属性1.按step5的方法，将命令“（名称）”文本框里的“CommandButton1”修改为“cork”，将“Caption”文本框里的“CommandButton1”修改为“关闭”。2.将“Height”，然后修改该文本框里的数据为“24”，将“Left”文本框里的数据修改为“342”，将“Top”文本框里的数据修改为“96”，将“Width”文本框里数据修改为“54”。Step10输入命令按钮控件代码双击窗体里的“关闭”按钮，弹出如图所示的窗口，然后输入如下代码PrivateSubcmdOk_Click()UnloadMeEndSubStep11输入工作簿代码1.双击屏幕左侧“工程”窗口里的“ThisWorkbook”弹出如下图所示的窗口。2.单击代码区，输入如下代码。Step12运行VBA1.单击“保存”按钮，然后关闭整个工作簿。2.重新启动该工作簿，此时会弹出警告框，然后单击“启用宏”按钮。随即工作簿被打开，同时会显示如下图所示的提示框，该框里包含了即将退休的员工信息。【实验心得】通过本次实验，我们学会了如何制作职工退休到龄提醒表，怎样运用DATEDTF函数来计算员工的入职时间，如何编制VBA来提醒到龄员工。学会了这样一个操作流程，给我们的工作和生活带来了便利。