Excel操作题也能自动评分.docVIP

Excel操作题也能自动评分我们分析一下，做Excel操作题目，实际上是对Excel文件的某些内部属性值进行设置，如字体、颜色、对齐方式等。如果能够通过某种方法获取这些属性的变化情况或变化值，再借助VBA编程来做出判断，就可以为Excel操作题目进行评分了。究竟这些属性的变化情况如何获取呢？ 实例：在Sheet1工作表中完成如下操作：（1）A1:E1内单元格跨列居中，字体设置为黑体、18磅、蓝色；（2）按公式：学期成绩=期中成绩*30%+期末成绩*70%，计算学期成绩；（3）表格数据区域单元格外边框红色双线，内边框蓝色双线，水平、垂直居中，底纹为黄色。 要求：在Sheet1工作表中操作题目能够清楚显示，有“交卷评分”按钮，并能自动反馈对答题结果的评价情况及具体分数。 题目及评分结果显示区域设计 这个过程主要完成如何在Sheet1工作表中显示题目、显示评分结果。首先，在Sheet1工作表中插入一个文本框，将操作题的题目输入或粘贴到文本框中。由于插入的文本框无背景而影响显示效果，所以我们可以对文本框的格式进行设置。在文本框的边框处击右键选择“设置文本框格式”，在弹出的“设置文本框格式”窗口中选择“颜色与线条”选项卡，对文本框的边框与填充色根据需要进行设置。同理，我们在这个文本框的下面再插入一个比其高一些的文本框，同样对它进行边框与填充色的设置，并在其中输入“评分结果”，将字体设置大些，颜色为红色。调整好两个文本框与工作表中数据的位置关系（图1）。 “交卷评分”按钮设计 这个过程主要完成如何在Sheet1工作表中插入一个“交卷评分”的按钮。首先，在Sheet1工作表中选择“视图→工具栏→窗体”菜单，在弹出的窗体工具栏中选择“按钮”，鼠标变为“十”，然后在工作表的合适位置按住鼠标左键画出一个按钮。这时，会弹出一个“指定宏”的窗口，这是为按钮指定一个事件，即单击按钮时触发什么事件。由于还没有编辑评分事件，我们可以先选择“取消”按钮。将该按钮的标签改为“交卷评分”，最后在工作表的空白处单击一下即可（图2）。 利用VBA编写评分过程 首先，我们选择“工具→宏→Visual Basic编辑器”菜单，这时就会弹出Microsoft Visual Basic程序窗口，也就是VBA的编辑器，在左侧可以看到“工程”和“属性”面板，右侧则是代码编辑区域。如果没有这些窗口，你可以选择“视图”菜单来调出这些窗口，并且可以拖这些窗口的边框将窗口放大或是缩小。在窗口左边双击Sheet1，这时在窗口右边就会出现代码编辑区域，我们可以尝试着输入图中代码（图3）。 看着这些代码，你有些摸不着头脑了吧？没关系，看了解释，你就会豁然开朗。 在这段代码中用了Sub…End Sub定义一个事件过程，过程的名字是“评分过程（）”。 在代码中首先用了一个名为zf的变量用来记录得分，并把它的初值设置为0。 一个工作簿由若干个工作表构成，一个工作表又由若干个单元格构成，像工作表、单元格等这些都是一个事物的构成元素即对象，每个元素都有它的属性、方法，比如单元格的文字大小、底纹颜色属性。代码中用With…End With来操作一个元素，用“.”表示一个元素所具有的属性。Range（）代表某一单元格、某一行、某一列、某一选定区域。用.Range(“A1:E1”).HorizontalAlignment来表示A1至E1范围单元格的水平对齐方式值，如果值与xlCenter Across Selection相等就给分，否则不给分，并用一个变量（xsh）来记录每一步的评分显示内容。 If （条件） Then…Else…End If这个语句就是用来进行判断的，表示如果条件成立就怎么样，否则就怎么样。代码中的Chr(10)代表换行，也就是在每条评分结果后要换行。代码最后.Shapes(2).TextFrame.Characters.Text表示第二个文本框中的文本内容。 也许你要问怎么知道某个元素的属性是什么，每个属性的代码又是什么呢？不要着急，我教你一个轻松获取元素属性的方法。 用宏录制策略获取VBA代码 这个过程主要教你如何轻松获取元素属性的VBA代码。如果你不知道如何编写判断一个题目做得对错的代码，你可以自己先做一遍正确的并录制下来。这怎么做呢？这就需要用到VBA的神秘助手“录制宏”。 首先，我们打开Excel做题文件，选择“工具→宏→录制宏”菜单，然后开始按照题目要求进行操作。操作完毕后保存文件，停止宏录制。再选择“工具→宏→Visual Basic编译器”菜单，展开模块，双击模块项即可得到宏录制代码。比如我们录制一下设置实例第3题的过程（图4）。 代码中的Range(“A2:E9”)就代表设置的区域，.Borders(