王文祥，王碩軍，弭寶國(guó)

（唐山師范學(xué)院玉田分校，河北 唐山 064100）

利用Excel VBA制作信息采集程序

王文祥，王碩軍，弭寶國(guó)

（唐山師范學(xué)院玉田分校，河北 唐山 064100）

高效準(zhǔn)確地采集學(xué)生信息是學(xué)生管理人員的一項(xiàng)重要工作，為更有效地開(kāi)展這項(xiàng)工作，作者制作了學(xué)生信息采集程序和匯總程序，大大提高了工作效率。

E x c e l V B A；信息采集

高效準(zhǔn)確地采集學(xué)生信息是學(xué)生管理人員的一項(xiàng)重要工作。如果學(xué)生上交紙介質(zhì)信息，再由專人負(fù)責(zé)錄入電腦，不但任務(wù)量巨大，而且也非常容易出錯(cuò)。我們利用Excel VBA編寫(xiě)了一個(gè)小程序，能夠高效準(zhǔn)確地完成這項(xiàng)工作，省時(shí)省力，受到了使用者的歡迎。

筆者的想法是，學(xué)生信息由學(xué)生自己利用計(jì)算機(jī)房統(tǒng)一錄入，自己核對(duì)，教師負(fù)責(zé)匯總。這樣就需要兩個(gè)程序，一個(gè)是信息采集程序，一個(gè)是信息匯總程序，前者由學(xué)生使用，后者由教師使用。

一、信息采集程序的制作

啟動(dòng)Excel2003，選擇 “工具→宏→安全性”，把“安全級(jí)別”設(shè)置為“中”，關(guān)閉，存盤(pán)。以后啟動(dòng)本程序時(shí)，如果出現(xiàn)“安全警告”對(duì)話框，選擇“啟用宏”。

1.界面的設(shè)計(jì)

設(shè)計(jì)好的程序界面如圖1所示。啟動(dòng)Excel后，單擊“行標(biāo)”上面的“全選”按鈕，選擇所有單元格，填充灰色-25%，再合并B2:F2，輸入“信息采集系統(tǒng)”，設(shè)置適當(dāng)?shù)摹白煮w”格式和“填充”顏色；合并B3:F3，把“行高”設(shè)置小一些，并填充“淺綠色”。在B4到B14單元格中，分別輸入“班級(jí)、學(xué)號(hào)、姓名、性別、身份證號(hào)、家庭住址、聯(lián)系電話、父親手機(jī)、固定電話、母親手機(jī)、采集地址”等內(nèi)容并設(shè)置格式；合并D4:F4、D5:F5、D6:F6、D7:F7，并輸入相應(yīng)的說(shuō)明，設(shè)置其格式。 C4、C5、C6、C7填充白色，合并 C8:D8、C9:E9、C10:D10、C11:D11、C12:D12、C13:D13并填充白色。白色區(qū)域是學(xué)生輸入信息的地方。選中所有白色區(qū)域，設(shè)置單元格格式為文本，以避免輸入12位以上數(shù)字時(shí)以科學(xué)計(jì)數(shù)法顯示。單擊C7，選擇 “數(shù)據(jù)→有效性”，在“設(shè)置”標(biāo)簽的“允許”中選擇“序列”，在“來(lái)源”中輸入“男,女”，注意，男女之間的逗號(hào)是英文半角的。在C14中輸入教師機(jī)的IP地址，格式如圖1所示。合并C19:F19，并在其中輸入：“注意，在單擊一個(gè)按鈕之前一定要先敲回車鍵！”目的是退出單元格的編輯狀態(tài)。界面設(shè)計(jì)基本完畢，兩個(gè)按鈕以后再添加。

2.代碼的編輯

按住Alt+F11，進(jìn)入VBA編輯窗口，執(zhí)行“插入→模塊”命令，插入模塊1，在右側(cè)的編輯窗口中輸入如下代碼：

返回到工作表界面，顯示控件工具箱，拖出兩個(gè)按鈕來(lái)，分別是“清除信息（commandbutton1）、提交信息（commandbutton2）”，雙擊各按鈕，在其屬性窗口中設(shè)置其“Caption”屬性值為相應(yīng)的顯示文字。

雙擊左側(cè)的Sheet1工作表，在右側(cè)輸入如下代碼：

至此，信息采集程序的代碼編輯完畢，以“信息采集程序.xls”為文件名存盤(pán)。

二、信息匯總程序的制作

啟動(dòng)Excel，在第一行中分別輸入列標(biāo)題，如圖2所示。Alt+F11進(jìn)入VBA編輯窗口，執(zhí)行“插入→模塊”命令，插入模塊1，在其中輸入如下代碼：

回到工作表界面，在其中拖出一個(gè)按鈕來(lái)，雙擊該按鈕，在左側(cè)設(shè)置其Caption屬性為“匯總信息”，在右側(cè)的代碼編輯窗口中輸入如下代碼（第一行和第三行是自動(dòng)出現(xiàn)的）：

至此，信息匯總程序制作完畢，以“信息匯總程序.xls”為文件名存盤(pán)。

三、使用方法

首先，在教師機(jī)上新建一個(gè)文件夾，命名為000，并設(shè)置為完全共享（有讀寫(xiě)權(quán)限）。

然后，打開(kāi)“信息采集程序”，查看其中的“采集地址”是否與該教室教師機(jī)的IP地址一致，不一致的要更改，撤銷工作表保護(hù)密碼是123456，存盤(pán)退出。

第三步，讓學(xué)生啟動(dòng)學(xué)生機(jī)的Excel，選擇 “工具→宏→安全性”，把安全級(jí)別設(shè)置為“低”，退出。

第四步，把“信息采集程序.xls”文件分發(fā)給每一個(gè)學(xué)生，讓學(xué)生按要求填寫(xiě)，然后提交信息就行了。學(xué)生信息會(huì)以學(xué)號(hào)為文件名存放到教師機(jī)的000文件夾內(nèi)，整個(gè)過(guò)程大約需要5分鐘。

最后一步，學(xué)生提交完畢后，教師啟動(dòng)“信息匯總程序”，單擊“匯總信息”按鈕，按提示打開(kāi)學(xué)生上交的所有文件，程序會(huì)自動(dòng)匯總學(xué)生信息。大約需要5秒鐘。

利用本程序，50人的一個(gè)班總共用時(shí)不到6分鐘，非常快捷、方便、準(zhǔn)確。本程序要在微機(jī)房使用，要求學(xué)生會(huì)使用計(jì)算機(jī)輸入文字，要求學(xué)生機(jī)要有D分區(qū)。

（編輯：魯利瑞）

G434

B

1673-8454（2011）10-0067-04