基于Excel VBA 开发干部管理信息系统

毕克书

［摘要］ 机关事业单位干部信息的统计和管理工作，任务重，数据量大。本文针对这一问题，利用Excel VBA设计开发干部管理系统，并结合点聚公司开发的Web Office，实现局域网查看、修改、保存，大大地提高了工作效率，方便快捷地进行干部管理工作。

［关键词］ Excel； VBA； Web Office； 干部管理

doi : 10 . 3969 / j . issn . 1673 - 0194 . 2012 . 05. 027

［中图分类号］F272.92；TP393［文献标识码］A［文章编号］1673 - 0194（2012）05- 0051- 02

１前言

随着干部规模的不断扩大，干部的信息量也不断增加，需要开发有效的干部管理系统来提高干部管理工作的效率。以往各单位普遍采用的是人工管理形式，这种方式存在许多缺点，如效率低，统计烦琐，容易出错。因此如何利用较为先进的技术开发高效、安全、数据共享的信息化平台，也就是设计出稳定、全面、有效、操作简便的信息系统，就显得尤为重要。通过这样的系统可以做到信息的规范管理、科学统计和快速查询，从而减少管理方面的工作量。

２Ｅｘｃｅｌ ＶＢＡ简介

Ｅｘｃｅｌ 是微软办公套装软件的一个重要组成部分，它可以进行各种数据的处理、统计分析和辅助决策操作，广泛地应用于管理、统计、财经、金融等众多领域。在实际工作中，Ｅxcel被大量应用，其特点是简单易用，操作灵活。但是，Ｅxcel处理数据的缺点是，每一步都要由人工操作和控制，对重复性的工作，每次都要重复去做。

Ｅxcel ＶＢＡ能够将重复的工作编写成程序，这样就能够提高效率和避免人为操作的错误。

ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ fｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ）是微软开发出来在其桌面应用程序中执行通用的自动化（ＯＬＥ）任务的编程语言。在Ｅxcel中，使用ＶＢＡ可以实现的功能主要包括：

（１） 创建报表。

（２） 对数据进行复杂的操作和分析。

（３） 使重复的工作自动化。

（４） 自定义Ｅxcel工具栏、菜单和界面。

（５） 自定义Ｅxcel，使其成为开发平台。

３系统主要功能设计

系统由4个Sｈｅｅｔ表组成：干部数据库、干部基本信息表、干部任免审批表、干部信息统计。主要实现了3个方面的功能：干部数据的录入、干部任免审批表的输出和干部数据的统计。

（１） 干部数据的录入。干部数据的录入主要实现了干部数据由干部基本信息表录入到干部数据库当中。

（２） 干部任免审批表输出。在干部数据库中，选择要输出的信息行右击后，点击干部任免审批表实现数据输出到干部任免审批表当中。

（３） 干部数据的统计。按级别、学历、年龄统计干部数据。

４部分关键代码

４．１干部基本信息表录入数据

Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ

Ｄｉｍ Ｉ， ｘ

ｘ ＝ ２

Ｄｏ Ｗｈｉｌｅ Ｎｏｔ （ＩｓＥｍｐｔｙ（Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ４）．Ｖａｌｕｅ））

ｘ ＝ ｘ ＋ １

Ｌｏｏｐ

ｆｌａｇ ＝ ０

Ｆｏｒ Ｉ ＝ １ Ｔｏ ｘ

Ｉｆ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ４） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（Ｉ， ４） Ａｎｄ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（Ｉ， ２） Ｔｈｅｎ

ｆｌａｇ ＝ ９

Ｅｘｉｔ Ｆｏｒ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

Ｉｆ ｆｌａｇ ＝ ９ Ｔｈｅｎ

ｘ ＝ Ｉ

Ｅｎｄ Ｉｆ

Ｉｆ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２） ＝ ＂＂ Ｔｈｅｎ

Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２） ＝ ＂＂

Ｅｌｓｅ

Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ２） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２）＇单位

Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ４） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ４）＇名字

Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ３） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ５）＇身份证号

Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ５） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ６）＇性别

Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， １５） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（５， ２） ＇出生年月

以下省略

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２干部任免审批表输出

Ｓｕｂ ｙｊｃｘ（）

Ａｐｐｌｉｃａｔｉｏｎ．ＳｃｒｅｅｎＵｐｄａｔｉｎｇ ＝ Ｆａｌｓｅ

Ｄｉｍ ｘ

ｘ ＝ ＡｃｔｉｖｅＣｅｌｌ．Ｒｏｗ

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ａｃｔｉｖａｔｅ

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（１， ２） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ２）

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（１， １０） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ３）

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（３， ２） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ４）

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（３， ４） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ５）＇性别

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（４， ２） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ６）＇民族

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（４， ４） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ２０）＇籍贯

Ｓｈｅｅｔｓ（＂干部任免审批表＂）．Ｃｅｌｌｓ（４， ６） ＝ Ｓｈｅｅｔｓ（＂干部数据库＂）．Ｃｅｌｌｓ（ｘ， ２２）＇出生地

以下省略

Ｅｎｄ ｉｆ

Ｅｎｄ ｓｕｂ

４．３右键查询功能

Ｐｒｉｖａｔｅ Ｓｕｂ ｗｏｒｋｂｏｏｋ＿ｏｐｅｎ（）

Ｄｉｍ ｍｙｃｏｎｔｒｏｌ Ａｓ ＣｏｍｍａｎｄＢａｒＣｏｎｔｒｏｌ

Ｓｅｔ ｍｙｃｏｎｔｒｏｌ ＝ Ａｐｐｌｉｃａｔｉｏｎ．ＣｏｍｍａｎｄＢａｒｓ（＂ｃｅｌｌ＂）．Ｃｏｎｔｒｏｌｓ．Ａｄｄ

Ｗｉｔｈ ｍｙｃｏｎｔｒｏｌ

．ＦａｃｅＩｄ ＝ ３５２

．Ｃａｐｔｉｏｎ ＝ ＂干部任免审批表＂

．ＯｎＡｃｔｉｏｎ ＝ ＂ｙｊｃｘ＂

Ｅｎｄ Ｗｉｔｈ

Ｅｎｄ Ｓｕｂ

４．４统计函数

利用Sｕｍｐｒｏｄｕｃｔ、Cｏｕｎｔｉｆ函数对干部数据进行统计分析。

４．５装载入点聚Wｅｂ Oｆｆｉｃｅ

在操作系统中架设IIS服务，将点聚Wｅｂ Oｆｆｉｃｅ中ASP实例设为网站主目录，输入设置好的局域网网址，进入Wｅｂ Oｆｆｉｃｅ，新建一个Eｘｃｅｌ文件，将以上的代码复制进去，即可以实现局域网访问修改。

５结束语

本系统根据机关事业单位的实际需求进行设计和开发，切合实际。系统通用性能好，实用性强，易于推广。此系统可以对干部数据等进行高效的管理，以便全面地掌握干部的整体情况，提高管理者的工作效率，减少管理过程中漏洞的出现。