EXCEL人事工资管理系统——操作全过程.docx

EXCEL 人事工资管理系统 EXCEL 人事工资管理系统 —— 操作全过程 PAGE PAGE 10 / 32 最新 EXCEL 人事工资管理系统 ——建立人事工资管理系统工作簿 按照浙江省人事厅的统一部署， 我市于 2007 年 2 月初进行了机关事业单位工资制度改革， 这次工资制度改革是新中国成立以来第四次大的改革，与以往历次工资制度改革相比，也是 情况最复杂、难度最大的一次，具体工改时要根据套改“三要素” （职务或职称、任职年限、套改年限）进行套改。这对于具体负责工资调整的办事人员来说，增加了许多工作，就一所 学校来说，工资调整时都要手工填写好几百张内容差不多的表格，工作量很大，本人经过摸 索，发现用 EXCEL 的 VBA 功能可以轻松地处理调资工作，只要基础工作一次性做好后，调资就变得非常方便，下面简要地介绍一下具体的开发过程。 一、 建立人事工资管理系统工作簿 1、在计算机的磁盘上建立一个名称为“ 2006 人事工资管理系统”的 EXCEL 工作簿文件， 并在此工作簿中建立“封面” 、“欢迎界面”、“事业名册表”、“ 事业审批表”、“事业报批表”、“离退休名册表”、“离退休审批表”、“离退休报批表”等工作表，以及存放用户名和密码的 工作表“用户密码”等组成，这些工作表事先由手工插入并重命名。当系统运行后，一些工作表将被自动隐藏（如“用户密码”工作表） 。 2、“封面”工作表是进入工资管理系统的首页，当打开工作簿和关闭工作簿时系统都将激活“封面”工作表，“封面”工作表的界面如图 1 所示，其设计步骤如下： 图 1 在当前的工作表中插入艺术字“欢迎使用《 XG 人事工资管理系统 V1.0 》”（分两行 输入“欢迎使用”和“ 《XG 人事工资管理系统 V1.0 》” ）。 选取整张工作表，将单元格颜色填充为“蓝 -灰”色。 将第 36 行至 65536 行、第 R 列至 IV 列全部隐藏。 由于用手工隐藏单元格比较麻烦，可在工作簿中的 VBE 窗口中插入一个模块 1，并输入如下代码： Private Sub 隐藏封面单元格 () Sheets(封面 ).Activate Rows(36:65536).Select 选中 36 行至 65536 行Selection.EntireRow.Hidden = True 隐藏选中的单元格 Columns(r:iv).Select 选中第 R 列至 IV 列 Selection.EntireColumn.Hidden = True End Sub 代码说明： 以上代码是对选中的单元格进行隐藏，使系统封面更加美观。 上述代码输入完成后退出并保存，然后在 【工具】 →【宏】菜单中运行“ 隐藏封面单元格”宏，即可实现单元格的隐藏。 执行【工具】→【选项】命令，打开【选项】对话框，单击【视图】选项卡，在“窗口选项中”中保留“水平滚动条”和“垂直滚动条”两个复选框外，取消其他的复选框（如图 2）。 输入密码执行【工具】→【保护】→【保护工作表】 ，打开【保护工作表】对话框，在“允许此工作表的所有用户进行”列表中取消选中的复选框，并输入密码（如图 3）。 输入密码 图 2 图 3 3、“欢迎界面”工作表的设计步骤与“封面”工作表的步骤基本相同，只不过界面中多了一个单位、制作者、操作提示和 【人事管理系统 】菜单（如图 4）。 按此菜单进入系统图 按此菜单 进入系统 要隐藏“欢迎界面”工作表中的单元格，可在工作簿的 VBE 窗口中插入一个模块 2，并输入如下代码如下： Private Sub 隐藏欢迎界面单元格 () Sheets( 欢 迎 界 面 ).Activate Rows(36:65536).Select 选中 36 行至 65536 行 Selection.EntireRow.Hidden = True 隐藏选中的单元格Columns(r:iv).Select 选中第 R 列至 IV 列 Selection.EntireColumn.Hidden = True End Sub 代码说明： 以上代码是对选中的单元格进行隐藏，使欢界面更加美观。 上述代码输入完成后退出并保存，然后在 【工具】 →【宏】菜单中运行“ 隐藏欢迎界面单元格”宏，即可实现“ 欢迎界面”工作表中 单元格的隐藏。 至此人事工资管理系统工作簿建立完成，系统框架也基本形成。 2007 年 3 月 15 日 通讯地址：浙江省诸暨市滨江中路 19 号会计核算中心 许国 办公室电话邮政编码 311800 Email ： 网址： 最新 EXCEL 人事工资管理系统 ——设计系统登录窗口（一） 诸暨市教育局核算中心 许 国诸暨市教育局 郑文建 任何一个应用系统，都应有一个系统登录窗口，以保护应用系统的安全。当打开应用