使用宏实现自动批改office操作题.doc

使用宏实现自动批改office操作题双击excel文件图标单击中间的启用宏按钮如果出现下面的提示,单击中“是”启用宏之后出现如下内容:按要求完成后,单击评分按钮,会完成评分,如图;注意:如不能自动评分,请把excel另存为的方式保存成一个独立的文件后再执行。参考如下内容,可以自己制作其它自动批改的练习文件。DimXINMING,banjiAsStringDimFENAsIntegerSub宏1()FEN=0XINMING=InputBox("请输入姓名")banji=InputBox("请输入班级,如:92")'设置记录内容的路径Setts=("e:\excel-",ForAppending,1)"DB"'''宏1宏表'user记录的宏2000-1-14'记录工作表换名'oTo20'Sheets("人力资源情况表").Select'Range("E12")="换名0k":FEN=FEN+10:"换名0k"'GoTo30'20:Range("E12")="换名NO":"换名no"'30:'刻录合并单元格'Range("A1:C1").Select'WithSelection'.MergeCells=True'=TrueThenRange("E13")="合并0k":FEN=FEN+10:"合并0k"'=0ThenRange("E13")="合并NO":"合并no"'EndWith'记录设置字体'Range("A17:G19").Select''Range("F13")="字体NO"'="宋体"ThenRange("F13")="字体0k":FEN=FEN+10:"字体0k"'<>"宋体"ThenRange("F13")="字体NO"'.FontStyle="常规"'.Size=14'.Strikethrough=False'.Superscript=False'.Subscript=False'.'OutlineFont=False'.Shadow=False'.Underline=xlUnderlineStyleNone'.ColorIndex=5'EndWith'判断赋值Range("E8")="36541"'IfRange("E4")="0"ThenRange("E10")="赋值0k":FEN=FEN+10:"赋值0k"'Range("E9").Select'使用公式求百分比IfRange("E1")="总分"ThenFEN=FEN+10:"插入成功0k"Range("E2").="=SUM(RC[-3]:RC[-1])"ThenFEN=FEN+10:"1教龄0k"Range("E3").="=SUM(RC[