畢克書(shū)

［摘要］ 機(jī)關(guān)事業(yè)單位干部信息的統(tǒng)計(jì)和管理工作，任務(wù)重，數(shù)據(jù)量大。本文針對(duì)這一問(wèn)題，利用Excel VBA設(shè)計(jì)開(kāi)發(fā)干部管理系統(tǒng)，并結(jié)合點(diǎn)聚公司開(kāi)發(fā)的Web Office，實(shí)現(xiàn)局域網(wǎng)查看、修改、保存，大大地提高了工作效率，方便快捷地進(jìn)行干部管理工作。

［關(guān)鍵詞］ Excel； VBA； Web Office； 干部管理

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

［中圖分類(lèi)號(hào)］F272.92；TP393［文獻(xiàn)標(biāo)識(shí)碼］A［文章編號(hào)］1673 - 0194（2012）05- 0051- 02

１前言

隨著干部規(guī)模的不斷擴(kuò)大，干部的信息量也不斷增加，需要開(kāi)發(fā)有效的干部管理系統(tǒng)來(lái)提高干部管理工作的效率。以往各單位普遍采用的是人工管理形式，這種方式存在許多缺點(diǎn)，如效率低，統(tǒng)計(jì)煩瑣，容易出錯(cuò)。因此如何利用較為先進(jìn)的技術(shù)開(kāi)發(fā)高效、安全、數(shù)據(jù)共享的信息化平臺(tái)，也就是設(shè)計(jì)出穩(wěn)定、全面、有效、操作簡(jiǎn)便的信息系統(tǒng)，就顯得尤為重要。通過(guò)這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢(xún)，從而減少管理方面的工作量。

２Ｅｘｃｅｌ ＶＢＡ簡(jiǎn)介

Ｅｘｃｅｌ 是微軟辦公套裝軟件的一個(gè)重要組成部分，它可以進(jìn)行各種數(shù)據(jù)的處理、統(tǒng)計(jì)分析和輔助決策操作，廣泛地應(yīng)用于管理、統(tǒng)計(jì)、財(cái)經(jīng)、金融等眾多領(lǐng)域。在實(shí)際工作中，Ｅxcel被大量應(yīng)用，其特點(diǎn)是簡(jiǎn)單易用，操作靈活。但是，Ｅxcel處理數(shù)據(jù)的缺點(diǎn)是，每一步都要由人工操作和控制，對(duì)重復(fù)性的工作，每次都要重復(fù)去做。

Ｅxcel ＶＢＡ能夠?qū)⒅貜?fù)的工作編寫(xiě)成程序，這樣就能夠提高效率和避免人為操作的錯(cuò)誤。

ＶＢＡ（Ｖｉｓｕａｌ Ｂａｓｉｃ fｏｒ Ａｐｐｌｉｃａｔｉｏｎｓ）是微軟開(kāi)發(fā)出來(lái)在其桌面應(yīng)用程序中執(zhí)行通用的自動(dòng)化（ＯＬＥ）任務(wù)的編程語(yǔ)言。在Ｅxcel中，使用ＶＢＡ可以實(shí)現(xiàn)的功能主要包括：

（１） 創(chuàng)建報(bào)表。

（２） 對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析。

（３） 使重復(fù)的工作自動(dòng)化。

（４） 自定義Ｅxcel工具欄、菜單和界面。

（５） 自定義Ｅxcel，使其成為開(kāi)發(fā)平臺(tái)。

３系統(tǒng)主要功能設(shè)計(jì)

系統(tǒng)由4個(gè)Sｈｅｅｔ表組成：干部數(shù)據(jù)庫(kù)、干部基本信息表、干部任免審批表、干部信息統(tǒng)計(jì)。主要實(shí)現(xiàn)了3個(gè)方面的功能：干部數(shù)據(jù)的錄入、干部任免審批表的輸出和干部數(shù)據(jù)的統(tǒng)計(jì)。

（１） 干部數(shù)據(jù)的錄入。干部數(shù)據(jù)的錄入主要實(shí)現(xiàn)了干部數(shù)據(jù)由干部基本信息表錄入到干部數(shù)據(jù)庫(kù)當(dāng)中。

（２） 干部任免審批表輸出。在干部數(shù)據(jù)庫(kù)中，選擇要輸出的信息行右擊后，點(diǎn)擊干部任免審批表實(shí)現(xiàn)數(shù)據(jù)輸出到干部任免審批表當(dāng)中。

（３） 干部數(shù)據(jù)的統(tǒng)計(jì)。按級(jí)別、學(xué)歷、年齡統(tǒng)計(jì)干部數(shù)據(jù)。

４部分關(guān)鍵代碼

４．１干部基本信息表錄入數(shù)據(jù)

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

Ｄｉｍ Ｉ， ｘ

ｘ ＝ ２

Ｄｏ Ｗｈｉｌｅ Ｎｏｔ （ＩｓＥｍｐｔｙ（Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ４）．Ｖａｌｕｅ））

ｘ ＝ ｘ ＋ １

Ｌｏｏｐ

ｆｌａｇ ＝ ０

Ｆｏｒ Ｉ ＝ １ Ｔｏ ｘ

Ｉｆ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ４） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（Ｉ， ４） Ａｎｄ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（Ｉ， ２） Ｔｈｅｎ

ｆｌａｇ ＝ ９

Ｅｘｉｔ Ｆｏｒ

Ｅｎｄ Ｉｆ

Ｎｅｘｔ

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

ｘ ＝ Ｉ

Ｅｎｄ Ｉｆ

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

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

Ｅｌｓｅ

Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ２） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ２）＇單位

Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ４） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ４）＇名字

Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ３） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（３， ５）＇身份證號(hào)

Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ５） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（４， ６）＇性別

Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， １５） ＝ Ｓｈｅｅｔｓ（＂干部基本信息表＂）．Ｃｅｌｌｓ（５， ２） ＇出生年月

以下省略

Ｅｎｄ Ｉｆ

Ｅｎｄ Ｓｕｂ

４．２干部任免審批表輸出

Ｓｕｂ ｙｊｃｘ（）

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

Ｄｉｍ ｘ

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

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

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（１， ２） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ２）

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（１， １０） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ３）

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（３， ２） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ４）

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（３， ４） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ５）＇性別

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（４， ２） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ６）＇民族

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（４， ４） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ２０）＇籍貫

Ｓｈｅｅｔｓ（＂干部任免審批表＂）．Ｃｅｌｌｓ（４， ６） ＝ Ｓｈｅｅｔｓ（＂干部數(shù)據(jù)庫(kù)＂）．Ｃｅｌｌｓ（ｘ， ２２）＇出生地

以下省略

Ｅｎｄ ｉｆ

Ｅｎｄ ｓｕｂ

４．３右鍵查詢(xún)功能

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

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

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

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

．ＦａｃｅＩｄ ＝ ３５２

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

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

Ｅｎｄ Ｗｉｔｈ

Ｅｎｄ Ｓｕｂ

４．４統(tǒng)計(jì)函數(shù)

利用Sｕｍｐｒｏｄｕｃｔ、Cｏｕｎｔｉｆ函數(shù)對(duì)干部數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析。

４．５裝載入點(diǎn)聚Wｅｂ Oｆｆｉｃｅ

在操作系統(tǒng)中架設(shè)IIS服務(wù)，將點(diǎn)聚Wｅｂ Oｆｆｉｃｅ中ASP實(shí)例設(shè)為網(wǎng)站主目錄，輸入設(shè)置好的局域網(wǎng)網(wǎng)址，進(jìn)入Wｅｂ Oｆｆｉｃｅ，新建一個(gè)Eｘｃｅｌ文件，將以上的代碼復(fù)制進(jìn)去，即可以實(shí)現(xiàn)局域網(wǎng)訪(fǎng)問(wèn)修改。

５結(jié)束語(yǔ)

本系統(tǒng)根據(jù)機(jī)關(guān)事業(yè)單位的實(shí)際需求進(jìn)行設(shè)計(jì)和開(kāi)發(fā)，切合實(shí)際。系統(tǒng)通用性能好，實(shí)用性強(qiáng)，易于推廣。此系統(tǒng)可以對(duì)干部數(shù)據(jù)等進(jìn)行高效的管理，以便全面地掌握干部的整體情況，提高管理者的工作效率，減少管理過(guò)程中漏洞的出現(xiàn)。