亚洲免费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)重要工作,為更有效地開(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

        猜你喜歡
        匯總單元格代碼
        常用縮略語(yǔ)匯總
        系統(tǒng)抽樣的非常規(guī)題匯總
        玩轉(zhuǎn)方格
        玩轉(zhuǎn)方格
        創(chuàng)世代碼
        創(chuàng)世代碼
        創(chuàng)世代碼
        創(chuàng)世代碼
        淺談Excel中常見(jiàn)統(tǒng)計(jì)個(gè)數(shù)函數(shù)的用法
        西部皮革(2018年6期)2018-05-07 06:41:07
        供應(yīng)商匯總
        亚洲最新精品一区二区| 亚洲a∨天堂男人无码| 99色网站| 91精品国产免费青青碰在线观看 | 三级在线看中文字幕完整版| 久久乐国产精品亚洲综合| 欧美黑人乱大交| 啪啪无码人妻丰满熟妇| 国内精品福利在线视频| 国产亚洲av手机在线观看| 亚洲人妻av综合久久| 免费国产自拍在线观看| 特黄aaaaaaaaa毛片免费视频| 久久精品国产第一区二区三区 | 亚洲欧美v国产蜜芽tv| 日本少妇熟女一区二区| 亚洲成av人片一区二区密柚| 亚洲爆乳精品无码一区二区| 66lu国产在线观看| 欧美综合自拍亚洲综合百度| 99久久国产免费观看精品| 午夜影视免费| 无码人妻精品一区二区三区不卡| 男女扒开双腿猛进入免费看污| 中文无码制服丝袜人妻AV| 亚洲色图专区在线观看| 一区二区三区av波多野结衣| 亚洲成色www久久网站夜月| 美女爽好多水快进来视频| 国产极品嫩模大尺度在线播放| 精品视频手机在线免费观看| 亚洲高清在线免费视频| 成在线人av免费无码高潮喷水| 亚洲国产日韩欧美一区二区三区 | 国产精品亚洲精品日产久久久| 久久五月精品中文字幕| 中文字幕34一区二区| 亚欧中文字幕久久精品无码| h国产视频| 高潮社区51视频在线观看| 操老熟妇老女人一区二区|