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

使用宏实现自动批改office操作题 双击excel文件图标 单击中间的启用宏按钮 如果出现下面的提示，单击中“是”启用宏 之后出现如下内容： 按要求完成后，单击评分按钮，会完成评分，如图; 注意：如不能自动评分，请把excel另存为的方式保存成一个独立的文件后再执行。 参考如下内容，可以自己制作其它自动批改的练习文件。 Dim XINMING, banji As String Dim FEN As Integer Sub 宏1() FEN = 0 XINMING = InputBox(请输入姓名) banji = InputBox(请输入班级，如：92) Dim fileso As New Scripting.FileSystemObject Dim ts As TextStream 设置记录内容的路径 Set ts = fileso.OpenTextFile(e:\excel-fen.txt, ForAppending, 1) ts.Write DB 宏1 宏表 user记录的宏2000-1-14 记录工作表换名 On Error GoTo 20 Sheets(人力资源情况表).Select Range(E12) = 换名0k: FEN = FEN + 10: ts.Write 换名0k GoTo 30 20: Range(E12) = 换名NO: ts.Write 换名no 30: 刻录合并单元格 Range(A1:C1).Select With Selection .MergeCells = True If .MergeCells = True Then Range(E13) = 合并0k: FEN = FEN + 10: ts.Write 合并0k If .MergeCells = 0 Then Range(E13) = 合并NO: ts.Write 合并no End With 记录设置字体 Range(A17:G19).Select With Selection.Font Range(F13) = 字体NO If .Name = 宋体 Then Range(F13) = 字体0k: FEN = FEN + 10: ts.Write 字体0k If .Name 宋体 Then Range(F13) = 字体NO .FontStyle = 常规 .Size = 14 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 5 End With 判断赋值Range(E8) = 36541 If Range(E4) = 0 Then Range(E10) = 赋值0k: FEN = FEN + 10: ts.Write 赋值0k Range(E9).Select 使用公式求百分比 If Range(E1) = 总分 Then FEN = FEN + 10: ts.Write 插入成功0k Range(E2).Select If ActiveCell.FormulaR1C1 = =SUM(RC[-3]:RC[-1]) Then FEN = FEN + 10: ts.Write 1教龄0k Range(E3).Select If ActiveCell.FormulaR1C1 = =SUM(RC[-3]:RC[-1]) Then FEN = FEN + 10: ts.Write 21教龄0k Range(E4).Select If ActiveCell.FormulaR1C1 = =SUM(RC[-3]:RC[-1]) Then FEN = FEN + 10: ts.Write 13教