VBA在學(xué)生成績(jī)登記表中的應(yīng)用

1、黎明職業(yè)大學(xué)學(xué)報(bào)第 1 期 ( 總第 54 期) 2007 年 3 月no . 1journal of l iming voca t ional un iversity mar . 2007 科技研究文章編號(hào) : 1008 8075 ( 2007) 01 0040 04vba 在學(xué)生成績(jī)登記表中的應(yīng)用王 明 東(黎明職業(yè)大學(xué)計(jì)算機(jī)與信息工程系 福建 泉州 362000)摘要 : micro sof t wo rd 是一個(gè)功能強(qiáng)大的文字處理軟件 , 而 vba 是其一個(gè)重要的組件 , 可以使wo rd 繁瑣 、機(jī)械的日常編輯工作自動(dòng)化 。介紹了在 wo rd2003 中使用 “宏”技術(shù)實(shí)現(xiàn)對(duì)成績(jī)

2、登記表 的自動(dòng)計(jì)算 、統(tǒng)計(jì)的算法 。展示了對(duì) wo rd 進(jìn)行功能擴(kuò)展的基本途徑和方法 。關(guān)鍵詞 : vba ; 宏 ; 成績(jī)登記表中圖分類(lèi)號(hào) : tp312文獻(xiàn)標(biāo)識(shí)碼 : b根據(jù)成績(jī)登記表的填寫(xiě)要求 , 本系統(tǒng)應(yīng)具備的功能有 :1) 輸入學(xué)生成績(jī) , 可以輸入數(shù)值 、也可以 輸入 等 級(jí) ( 如 : 平 時(shí) 成 績(jī) 、技 能 成 績(jī) 可 以 是 “優(yōu) 、良 、中 、及 、不及”等) 。2) 計(jì)算學(xué)生學(xué)期綜合成績(jī) (為分?jǐn)?shù)) , 這要求應(yīng)能將等級(jí)成績(jī)轉(zhuǎn)換成數(shù)值進(jìn)行計(jì)算 。3) 對(duì)各項(xiàng)不及格成績(jī) , 成績(jī)?yōu)榧t色 ; 期末 考試成績(jī)小于 50 分 , 期末考試成績(jī)加框 , 綜合 成績(jī)即為期末考試成

3、績(jī) , 不再考慮其他成績(jī) ; 期 末考試缺考 , 期末考試成績(jī) 、綜 合 成 績(jī) 均 填 寫(xiě) “缺 考 ”, 加 框 、加 陰 影 ; 綜 合 成 績(jī) 小 于 40 分 (重修) , 加框 、加陰影 。4) 統(tǒng)計(jì)成績(jī)分布 。1前言填寫(xiě)統(tǒng)計(jì)成績(jī)登記表的一般作法是先填寫(xiě)平時(shí)成績(jī) 、期末考試成績(jī)和技能成績(jī) , 然后再按照三者構(gòu)成課程的綜合成績(jī)的比例進(jìn)行加權(quán)求和 ,求出綜合成績(jī) 。并統(tǒng)計(jì)出各分 數(shù) 段 的 人 數(shù) 、比 例 ; 最高分 、最低分和平均分 。這是一項(xiàng)煩瑣費(fèi) 時(shí)的工作 。雖然這些處理在 excel 或 wo rd 中經(jīng) 過(guò)一系列操作都能完成 , 但是這些操作繁瑣 、費(fèi) 時(shí) 、易出錯(cuò) , 有

4、一定的難度 , 且不是所有的教師都會(huì)用 。所以編寫(xiě)一個(gè)計(jì)算機(jī)成績(jī)統(tǒng)計(jì)系統(tǒng) ,替教師的人工統(tǒng)計(jì) , 就顯得尤為必要 。12 處理要求成績(jī)登記表的模板如圖 1 和圖 2 所示 。代3 設(shè)計(jì)方案在基本不改變成績(jī)登記表原 有 模 板 的 基 礎(chǔ)上 , 利用 vba 、宏 , 設(shè)計(jì)應(yīng)用程序?qū)崿F(xiàn)上述功 能要求 。1) 在原有模板上增加了綜合成績(jī)構(gòu)成比例 說(shuō)明部份 , 如圖 1 所示 。2) 為方便操作 , 建立一自定義工具欄 。建 立過(guò)程如下 :圖 1 成績(jī)登分部份及綜合成績(jī)構(gòu)成比例圖 2 成績(jī)分布情況收稿日期 : 2006 - 09 - 03作者簡(jiǎn)介 : 王明東 ( 1976 - ) ,男 ( 漢) ,

5、福建泉州人 ,黎明職業(yè)大學(xué)計(jì)算機(jī)與信息工程系教師 ,主要從事管理信息系統(tǒng)方面的研究 。首先在 “工具”菜單中的 “宏”子菜單中建立兩 個(gè) 宏 ( 過(guò) 程) , 分 別 命 名 為 cal 和 myhelp ,圖 4 處理后的課程成績(jī)表3 自定義成績(jī)統(tǒng)計(jì)工具并將宏保存在文檔中 。接著使用 wo rd “視圖”菜單中的 “工具欄”子菜單 , 自定義成績(jī)統(tǒng)計(jì)工具 欄 , 并將上面的兩個(gè)宏 , 拖到該工具欄上 , 重命名為 “成績(jī)統(tǒng)計(jì)”和 “幫助”。這樣每次打開(kāi)成 績(jī)登 記 表 , 該 工 具 欄 會(huì) 自 行 打 開(kāi) ( 如 圖 3 所示) 。23) 主要功能劃分如下 :cal 過(guò)程 , 檢查構(gòu)成綜合

6、成績(jī)的各項(xiàng)成績(jī)的 比例之和是否為 100 ; 初始化統(tǒng)計(jì)過(guò)程中使用到的變量 、數(shù)組 ; 對(duì)表中每個(gè)學(xué)生的成績(jī) , 調(diào)用自定義過(guò)程 sco re- handling , 逐個(gè)統(tǒng)計(jì)并作相應(yīng)處 理 ; 統(tǒng)計(jì)成績(jī)分布 。sco re- handling 過(guò) 程 , 處 理 單 個(gè) 學(xué) 生 成 績(jī) ,其參數(shù)為待處理學(xué)生的平時(shí)成績(jī)所處的單元格的 行列號(hào) 。從成績(jī)登記表中取出當(dāng)前處理的學(xué)生平 時(shí)成績(jī) 、末考成績(jī) 、技能成績(jī) , 并調(diào)用 c- int 函 數(shù) , 進(jìn)行數(shù)據(jù)轉(zhuǎn)換 ; 根據(jù)綜合成績(jī)構(gòu)成比例計(jì)算 出綜合成績(jī) ; 對(duì) 4 項(xiàng)成績(jī)按成績(jī)登記表的要求進(jìn)行格式處理 ( 見(jiàn) “2 、處理要求”) ; 根據(jù)綜合

7、成 績(jī)統(tǒng)計(jì)各分?jǐn)?shù)段的人數(shù) , 缺考人數(shù) , 卷面成績(jī)低 于 50 分的人數(shù) 。c- int 函數(shù) , 主要功能是將文本轉(zhuǎn)換成數(shù)值 , 其參數(shù)為待處理單元格中的文本 , 返回值為整型 數(shù)據(jù) 。若單元格中的文本是由數(shù)值組成則直接轉(zhuǎn)為一整數(shù) ; 若單元格中為等級(jí)成績(jī)則按下列規(guī)則 轉(zhuǎn)換 : 優(yōu) = 95 , 良 = 85 , 中 = 75 , 及 = 65 , 不及= 55 。圖 5 處理后的成績(jī)分布5511系統(tǒng)實(shí)現(xiàn)實(shí)現(xiàn)方法主要實(shí)現(xiàn)過(guò)程如圖 6 、圖 7 、圖 8 所示 :操作過(guò)程由于是用宏實(shí)現(xiàn)的 , 因此用時(shí)應(yīng)先將 wo rd的宏安全級(jí)設(shè)置為中或低 (設(shè)置方法 : 工具菜單 選項(xiàng) 安全性 宏安全性

8、, 關(guān)閉 wo rd)2; 進(jìn) 入 wo rd 打開(kāi)成績(jī)登記表 , 輸入綜合成績(jī)構(gòu)成比 例 、輸入學(xué)生各項(xiàng)成績(jī)的分?jǐn)?shù)或等級(jí) , 然后單擊 如圖 3 中的 “成績(jī)統(tǒng)計(jì)”按鈕 , 本系統(tǒng)即會(huì)自動(dòng)4圖 6 成績(jī)統(tǒng)計(jì)流程 42 黎明職業(yè)大學(xué)學(xué)報(bào)2007 年 3 月byval column as integer)dim sco re (3) as single , total as singlewit h thisdocument . tables. item (1)if st rco mp ( trim ( mid ( . cell ( row , column +1 ) . range . text

9、 , 1 , 2 ) ) , ”缺 考 ”, vbbina2ryco mpare) = 0 then 缺考. cell ( row , column + 3) . range . text = ”缺 考”sco re ( 1 )= c- int ( . cell ( row , column ) . range . text)構(gòu)可知 , 一張二維表由若干行組成 , 一行由若干個(gè)單元格組成 。訪(fǎng)問(wèn)某一單元格的方法如下 :thisdocument .tables( index ) .cell( row ,at t ribute3col) .sco re (2)sco re (3) range .

10、text)total = elsesco re ( 1 )range . text) sco re (2) range . text) sco re (3) range . text)= - 1= c- int ( . cell ( row , column + 2) .- 1= c- int ( . cell ( row , column ) .= c- int ( . cell ( row , column+ 1) .= c- int ( . cell ( row , column+ 2) .期末考試成績(jī)小于 50 分 ,綜合成績(jī)?yōu)槠谀┛荚嚦煽?jī)total = i if ( sco re (

11、2) 50 , sco re (2) , ro und( ( sco re (1) 3 ratio (1)sco re (3) 3 ratio (3) ) /+ sco re (2) 3 ratio (2) +100 , 0) ) 綜合成績(jī)圖 7 處理單個(gè)學(xué)生成績(jī)流程. cell ( row , column + 3) . range . text= to2tal= to2if max- sco re total then min- sco re = totaltotal- sco re = total- sco re + totalend if各項(xiàng)成績(jī)小于 60 分 ,字體為紅色. cell

12、 ( row , column ) . range . fo nt . colo r =i if ( sco re (1) = 0 and sco re ( 1) = - 1 and sco re ( 2 ) = 0 and sco re ( 3) = - 1 and total = - 1 and sco re (2) = 0 and sco re (2) = - 1 and total = - 1 andtotal = 90 優(yōu)秀sco re- analyse (1 , 1) = sco re- analyse (1 , 1) + 1case is = 80 良好sco re- analyse (1 , 2) = sco re- analyse (1 , 2) + 1case is = 70 中等sco re- analyse (1 , 3) = sco re- analyse (1 , 3) + 1case is = 60 及格sco re- analyse (1 , 4) = sco re- analyse (1 , 4) + 1case is = 0 不及格本系統(tǒng)易于 使 用 , 程 序 具 有 一 定 的 健 壯 性 。應(yīng)用該系統(tǒng)可