宏錄制＋ＶＢ編寫(xiě)Ｅｘｃｅｌ操作題目評(píng)分軟件

郭　斌

高中《信息技術(shù)》教學(xué)當(dāng)中編制專(zhuān)門(mén)用于操作題目評(píng)分的軟件十分必要。這樣可以對(duì)學(xué)生所做的操作題目進(jìn)行電腦打分。下面以Excel操作題目為例，介紹評(píng)分軟件的制作方法。

一、操作題目要求

在文件Excel01的Sheet1中完成如下操作：

（1）A1:E1內(nèi)單元格跨列居中，字體設(shè)置為黑體、18磅、藍(lán)色。

（2）按公式：學(xué)期成績(jī)=期中成績(jī)*30%+期末成績(jī)*70%，計(jì)算學(xué)期成績(jī)。

（3）表格數(shù)據(jù)區(qū)域單元格外邊框紅色雙線，內(nèi)邊框藍(lán)色雙線，水平、垂直居中，底紋為黃色。

做Excel操作題目，實(shí)際上是對(duì)Excel文件的某些內(nèi)部屬性值進(jìn)行設(shè)置，如字體、顏色、對(duì)齊方式等。如果能夠通過(guò)某種方法獲取這些屬性的變化情況或變化值，再借助VB編程來(lái)做出判斷就可以為Excel操作題目進(jìn)行評(píng)分了。

二、夯實(shí)宏錄制策略

打開(kāi)Excel做題文件，單擊“工具”菜單→宏→錄制宏→確定，開(kāi)始按照題目要求進(jìn)行操作。操作完畢后保存文件，停止宏錄制。再單擊“工具”菜單→宏→Visual Basic編譯器，展開(kāi)模塊，雙擊模塊項(xiàng)即可得到宏錄制代碼。

三、VB編程完成評(píng)分

1.引用組件，創(chuàng)建Excel應(yīng)用對(duì)象

打開(kāi)VB程序同時(shí)引用組件：Microsoft Excel 9.0 Object Library、Microsoft ActiveX Data Objects 2.0 Library、Microsoft Office 9.0 Object Library。

用以下語(yǔ)句創(chuàng)建應(yīng)用：

Set ep=CreateObject("Excel.App lication")'創(chuàng)建一個(gè)Excel應(yīng)用對(duì)象。

Set ep=GetObject(App.Path+" EXCEL01.XLS")'ep返回指定Excel文件，即ep就是文件EXCEL01.XLS。

2.水平對(duì)齊方式的判斷

用ep.Worksheets("sheet1").Range("A1:E1").HorizontalAlignment來(lái)表示A1至E1范圍的水平對(duì)齊方式值，如果值與xlCenter Across Selection相等就給分，否則不給分，再用一個(gè)變量來(lái)累積分?jǐn)?shù)，一個(gè)變量來(lái)記錄每一步的評(píng)分顯示內(nèi)容。語(yǔ)句如下：

With ep.Worksheets("sheet1")

If .Range("A1:E1").HorizontalAlignment = xlCenterAcrossSelection Then

a = a + "1、跨列居中得分：" + "1分" + Chr(13)'a表示評(píng)分顯示內(nèi)容

f = f + 1'f表示分?jǐn)?shù)

Else

a = a + "1、跨列居中得分：" + "0分" + Chr(13)

End If

End With

3.字體、字號(hào)和顏色設(shè)置的判斷

得出對(duì)齊方式的判斷方法以后，字體、字號(hào)和顏色設(shè)置的判斷就不難得出：

Range("A1:E1").Font.Name = "黑體"

Range("A1:E1").Font.Size = 18

Range("A1:E1").Font.ColorIndex = 5

4.按照公式計(jì)算的判斷

宏錄制代碼中出現(xiàn)了“ActiveCell”關(guān)鍵詞，通過(guò)“對(duì)象瀏覽器”查詢(xún)得知“ActiveCell”返回一個(gè)Range對(duì)象。該對(duì)象代表指定窗口的活動(dòng)單元格， “ActiveCell”就指 “Range("E3")”。又因每個(gè)單元格所用公式是一致的，逐一判斷公式是否正確就可以了。

If(.Range("E3").FormulaR1C1="=RC[-2]*30%+RC[-1]*70%"and.Range("E4").FormulaR1_C1_ = "=RC[-2]*30%+RC[-1]*70%" and …) Then

5.表格邊框設(shè)置及底紋顏色的判斷

表格邊框采用的是左右上下、中間垂直、中間水平分別判斷的方法。整個(gè)表格數(shù)據(jù)的范圍是A2至E9，所以“Selection”指的是“Range("A2:E9")”?！癛ange("A2:E9").Borders(xlEdgeLeft).LineStyle=xlDouble'”指的是A2至E9范圍左邊框的線型是雙線型；“Range("A2:E9").Borders(xlEdgeLeft).ColorIndex=3'”指的是A2至E9范圍左邊框的顏色是紅色。其他位置邊框設(shè)置的判斷采用同樣的辦法來(lái)進(jìn)行。對(duì)齊方式的判斷也是如此。底紋顏色的判斷也非常容易得到：

Range("A2:E9").Interior.ColorIndex = 6

6.完成其余部分的編程

把以上語(yǔ)句綜合起來(lái)，添加到一個(gè)按鈕的“單擊事件”中，再加上如下代碼就可以對(duì)整道題目進(jìn)行評(píng)分，并顯示出評(píng)分結(jié)果了。

MsgBox a + Chr(13) + "最后得分：" + CStr(f) + "分", , "自動(dòng)評(píng)分"

當(dāng)然，還需要一個(gè)“打開(kāi)本題”按鈕來(lái)打開(kāi)Excel文件，代碼如下：

Dim oe As Object

Set oe = CreateObject("Excel.Application")

oe.Visible = True'Excel應(yīng)用可見(jiàn)

oe.Workbooks.Open FileName:=App.Path + "EXCEL01.XLS"'打開(kāi)要操作的文件

Excel自動(dòng)評(píng)分系統(tǒng)的效果圖如下：

總體來(lái)說(shuō)，VB與宏錄制相結(jié)合制作Excel操作題目評(píng)分軟件的核心思想是：利用宏錄制。在宏錄制代碼中得出正確的屬性變化情況或變化值，再用VB編程獲取做題文件相應(yīng)的屬性變化情況或變化值并與正確值進(jìn)行比較，得出評(píng)分結(jié)果。對(duì)于Excel題目其他操作項(xiàng)目的評(píng)分也是如此，可以根據(jù)宏錄制代碼進(jìn)行分析處理，自由發(fā)揮。

除了Excel操作題目可以編寫(xiě)評(píng)分程序外，其他的軟件如Word、PowerPoint操作題目都可以用同樣的辦法來(lái)編寫(xiě)評(píng)分軟件。只是在Word評(píng)分軟件進(jìn)行宏錄制的時(shí)候，不能用鼠標(biāo)操作而只能用鍵盤(pán)操作。

（作者單位：河北豐潤(rùn)車(chē)軸山中學(xué)）