EXCEL人事工资管理系统.doc

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