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

王文祥，王碩軍，弭寶國

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

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

王文祥，王碩軍，弭寶國

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

高效準確地采集學生信息是學生管理人員的一項重要工作，為更有效地開展這項工作，作者制作了學生信息采集程序和匯總程序，大大提高了工作效率。

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

高效準確地采集學生信息是學生管理人員的一項重要工作。如果學生上交紙介質信息，再由專人負責錄入電腦，不但任務量巨大，而且也非常容易出錯。我們利用Excel VBA編寫了一個小程序，能夠高效準確地完成這項工作，省時省力，受到了使用者的歡迎。

筆者的想法是，學生信息由學生自己利用計算機房統一錄入，自己核對，教師負責匯總。這樣就需要兩個程序，一個是信息采集程序，一個是信息匯總程序，前者由學生使用，后者由教師使用。

一、信息采集程序的制作

啟動Excel2003，選擇 “工具→宏→安全性”，把“安全級別”設置為“中”，關閉，存盤。以后啟動本程序時，如果出現“安全警告”對話框，選擇“啟用宏”。

1.界面的設計

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

2.代碼的編輯

按住Alt+F11，進入VBA編輯窗口，執行“插入→模塊”命令，插入模塊1，在右側的編輯窗口中輸入如下代碼：

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

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

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

二、信息匯總程序的制作

啟動Excel，在第一行中分別輸入列標題，如圖2所示。Alt+F11進入VBA編輯窗口，執行“插入→模塊”命令，插入模塊1，在其中輸入如下代碼：

回到工作表界面，在其中拖出一個按鈕來，雙擊該按鈕，在左側設置其Caption屬性為“匯總信息”，在右側的代碼編輯窗口中輸入如下代碼（第一行和第三行是自動出現的）：

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

三、使用方法

首先，在教師機上新建一個文件夾，命名為000，并設置為完全共享（有讀寫權限）。

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

第三步，讓學生啟動學生機的Excel，選擇 “工具→宏→安全性”，把安全級別設置為“低”，退出。

第四步，把“信息采集程序.xls”文件分發給每一個學生，讓學生按要求填寫，然后提交信息就行了。學生信息會以學號為文件名存放到教師機的000文件夾內，整個過程大約需要5分鐘。

最后一步，學生提交完畢后，教師啟動“信息匯總程序”，單擊“匯總信息”按鈕，按提示打開學生上交的所有文件，程序會自動匯總學生信息。大約需要5秒鐘。

利用本程序，50人的一個班總共用時不到6分鐘，非?？旖荨⒎奖?、準確。本程序要在微機房使用，要求學生會使用計算機輸入文字，要求學生機要有D分區。

（編輯：魯利瑞）

G434

B

1673-8454（2011）10-0067-04