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

1、使用宏实现自动批改office操作题双击excel文件图标 单击中间的启用宏按钮如果出现下面的提示，单击中“是”启用宏之后出现如下内容：按要求完成后，单击评分按钮，会完成评分，如图;注意：如不能自动评分，请把excel另存为的方式保存成一个独立的文件后再执行。参考如下内容，可以自己制作其它自动批改的练习文件。Dim XINMING, banji As StringDim FEN As IntegerSub 宏1()FEN = 0XINMING = InputBox("请输入姓名")banji = InputBox("请输入班级，如：92") Dim fi

2、leso As New Scripting.FileSystemObjectDim 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(&

3、quot;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 = Tru

4、e 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(&q

5、uot;F13") = "字体NO" ' If .Name = "宋体" Then Range("F13") = "字体0k": FEN = FEN + 10: ts.Write " 字体0k " ' If .Name <> "宋体" Then Range("F13") = "字体NO" '.FontStyle = "常规" ' .Size = 14 '

6、.Strikethrough = False ' .Superscript = False '.Subscript = False ' .'OutlineFont = False ' .Shadow = False ' .Underline = xlUnderlineStyleNone ' .ColorIndex = 5 'End With '判断赋值Range("E8") = "36541" ' If Range("E4") = "0"

7、; 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 = "=SU

8、M(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 =

9、 FEN + 10: ts.Write " 13教龄0kk " Range("E5").Select If ActiveCell.FormulaR1C1 = "=SUM(RC-3:RC-1)" Then FEN = FEN + 10: ts.Write " 4教龄0k " Range("E6").Select If ActiveCell.FormulaR1C1 = "=SUM(RC-3:RC-1)" Then FEN = FEN + 10: ts.Write "51

10、教龄0kk " Range("E7").Select If ActiveCell.FormulaR1C1 = "=SUM(RC-3:RC-1)" Then FEN = FEN + 10: ts.Write " 6教龄0k " '设置格式' Range("C3:C6").Select ' If Selection.NumberFormatLocal = "0.0%" Then FEN = FEN + 10: ts.Write " 4设置格式0k &quo

11、t;'求和 Range("B8").Select If ActiveCell.FormulaR1C1 = "=AVERAGE(R-6C:R-1C)" Then FEN = FEN + 10 ': ts.Write "求和0k " Range("c8").Select If ActiveCell.FormulaR1C1 = "=AVERAGE(R-6C:R-1C)" Then FEN = FEN + 10 ': ts.Write "求和0k " Rang

12、e("d8").Select If ActiveCell.FormulaR1C1 = "=AVERAGE(R-6C:R-1C)" Then FEN = FEN + 10 ': ts.Write "求和0k " Range("e8").Select If ActiveCell.FormulaR1C1 = "=AVERAGE(R-6C:R-1C)" Then FEN = FEN + 10 ': ts.Write "求和0k " ''记录姓名、班级、

13、分数ts.WriteLinets.Write XINMING'ts.Write " "ts.Write banji'ts.Write " "ts.Write FENMsgBox ("祝贺" & XINMING & "你得了：" & FEN - 10 & "分！")ts.Write " stu"ts.WriteLinets.WriteLine'Set ts = fileso.OpenTextFile("teacher考试$excel-fen.txt", ForAppending, 1)ts.Write "DB "'ts.Write ActiveCell.FormulaR1C1ts.WriteLine'ts.Write Range("E9")ts.Write XINMING'ts.Write " "ts.Write banji