亚洲免费av电影一区二区三区,日韩爱爱视频,51精品视频一区二区三区,91视频爱爱,日韩欧美在线播放视频,中文字幕少妇AV,亚洲电影中文字幕,久久久久亚洲av成人网址,久久综合视频网站,国产在线不卡免费播放

        ?

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

        2011-10-20 05:16:12王文祥王碩軍弭寶國(guó)
        中國(guó)教育信息化 2011年10期
        關(guān)鍵詞:匯總單元格代碼

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

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

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

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

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

        高效準(zhǔn)確地采集學(xué)生信息是學(xué)生管理人員的一項(xiàng)重要工作,為更有效地開展這項(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編寫了一個(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)閉,存盤。以后啟動(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)的說明,設(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)簽的“允許”中選擇“序列”,在“來源”中輸入“男,女”,注意,男女之間的逗號(hào)是英文半角的。在C14中輸入教師機(jī)的IP地址,格式如圖1所示。合并C19:F19,并在其中輸入:“注意,在單擊一個(gè)按鈕之前一定要先敲回車鍵!”目的是退出單元格的編輯狀態(tài)。界面設(shè)計(jì)基本完畢,兩個(gè)按鈕以后再添加。

        2.代碼的編輯

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

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

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

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

        二、信息匯總程序的制作

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

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

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

        三、使用方法

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

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

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

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

        最后一步,學(xué)生提交完畢后,教師啟動(dòng)“信息匯總程序”,單擊“匯總信息”按鈕,按提示打開學(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

        猜你喜歡
        匯總單元格代碼
        常用縮略語匯總
        系統(tǒng)抽樣的非常規(guī)題匯總
        玩轉(zhuǎn)方格
        玩轉(zhuǎn)方格
        創(chuàng)世代碼
        創(chuàng)世代碼
        創(chuàng)世代碼
        創(chuàng)世代碼
        淺談Excel中常見統(tǒng)計(jì)個(gè)數(shù)函數(shù)的用法
        西部皮革(2018年6期)2018-05-07 06:41:07
        供應(yīng)商匯總
        亚洲AV无码国产精品色午夜软件| 亚洲天堂av一区二区| 亚洲成人av一二三四区| 亚洲成av人综合在线观看| 亚洲av片一区二区三区| 99蜜桃在线观看免费视频网站| 国产欧美日韩视频一区二区三区| 国产成人亚洲合集青青草原精品| 激情内射亚洲一区二区| 女女同女同一区二区三区| 在线播放真实国产乱子伦| 精品香蕉久久久爽爽| 久久久久成人精品免费播放| 中文字幕在线亚洲精品一区| 亚洲av中文无码乱人伦在线咪咕| 亚洲精品综合一区二区三| 国内精品久久久久久久亚洲| 男男做h嗯啊高潮涩涩| 免费无码一区二区三区a片百度| 日本老熟欧美老熟妇| 中文国产成人精品久久一区| 久久精品亚洲94久久精品| 精品久久人妻av中文字幕| 中文幕无线码中文字蜜桃| 一区二区三区四区亚洲综合| 亚洲国产av一区二区三区精品| 领导边摸边吃奶边做爽在线观看| 国产无遮挡又黄又爽又色| 久久国产精品免费一区六九堂| 女同恋性吃奶舌吻完整版| 精品欧洲av无码一区二区14| 野花社区视频www官网| 在线观看国产内射视频| 国产人妖在线观看一区二区三区| 国产大片黄在线观看| 少妇厨房愉情理伦片bd在线观看 | 日韩精品人成在线播放| 亚洲熟女综合一区二区三区| 国产丝袜免费精品一区二区| 第一九区另类中文字幕| 激情内射日本一区二区三区|