基于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ｘｃｅｌ文件，將以上的代碼復制進去，即可以實現局域網訪問修改。

５結束語

本系統根據機關事業單位的實際需求進行設計和開發，切合實際。系統通用性能好，實用性強，易于推廣。此系統可以對干部數據等進行高效的管理，以便全面地掌握干部的整體情況，提高管理者的工作效率，減少管理過程中漏洞的出現。