利用vba将成绩表中每一行学生成绩插入标题打印出成绩条.docxVIP

利用VBA将成绩表中每一行学生成绩插入标题打印出成绩条 尤其是开家长会时要给在学校里经常会遇到学生考试后老师要将考试成绩下发给学生, 尤其是开家长会时要给 家长发成绩条，但往往是老师都会把成绩做成班级或年级的成绩总表，如图 1所示: A E C D E F G H 1 J K L M N 0 P 1 总分 数学 语文 英语 2 年级 诳级 分数 年级 班级 分数 年级 班级 分数 年级 班级 分数 年级 诳级 分数 3 张三丄 30 1 346 30 5 80 2 8 90 50 1.： 96 10 4 80 4 菲三E 78 2 34 31 4 81 3 9 91 51 9 95 11 5 81 5 砥三3 76 3 350 32 3 82 4 10 92 □2 S 94 12 6 82 6 张三4 74 4 352 33 2 83 5 11 93 □3 7 03 13 7 83 7 张三弓 12 5 354 r 34 1 r 84 6 12 94 54 6 r 92 14 3 S4 8 70 6 3c 6 35 ~s 85 ~7 13 95 55 5 ~91 疋 9 3? 9 张三7 68 7 358 36 ? 86 8 14 96 56 4 90 16 10 86 10 张三8 66 S 360 37 3 37 9 15 97 □7 3 39 17 11 87 11 张三g 64 362 38 g 10 16 98 58 2 8S 18 12 88 12 张三丄0 62 10 364 39 10 11 17 99 59 1 87 19 13 39 1 O 图1 （表格说明：年级指年级名次，班级指班级名次 ） 要打印成成绩条发给学生或者家长， 就要打印成绩条，所以，表格要修改成每一条学生成绩 都要有对应的标题，然后，打印出来再裁剪成成绩条发给学生，所以要把表格修改成如图 2 所示的样式: A e C D E F G 卜 1 J K L M N a p 11 总分 数学 语文 英语 物逵 2 早级 班圾 片数 廿数 年毁 班级 年级 年级 3 8C 1 102 5 BC 2 =■ 50 10 36 12 4 so 4 语文 英语 物理 5 年级 班飯 分数 年纭 班级 年级 班级 年级 分数 年级 班级 6 70 2 4 P1 A A1 51 A 11 $ fli 7 教学 语文 英逵 8 年级 分数 社级 年级 廿敎 年级 9 张三3 76 3 97 32 3 82 4 10 92 52 8 34 12 6 82 10 总分 语立 物瑾 11 年级 班纸 弁数 3 弁数 年级 班级 分較 年级 班级 分数 年级 筑级 分数 12 张三4 74 4 86 33 2 83 5 11 93 53 7 93 13 7 83 13 总分 数学 物廷 14 年级 班皴 分數 年錢 班级 孙数 年预 分数 年级 分数 年皴 班纽 分数 15 张三弓 72 5 85 34 1 S4 6 12 94 54 6 32 14 S4 16 总廿 数学 语文 物逵 17 班级 斥数 年级 班级 弁数 分教 年级 分教 年级 班级 1S 张三E 70 6 84 35 6 8￡ 7 13 95 55 5 31 15 g 85 图2 （注：红色框表示将会才成的成绩条 ） 因此，我们需要VBA的支持来快速解决大量学生成绩条的打印问题。 首先，我们打开学生成绩单，修改成如图 1所示的样式【注意标题行（1、2行）必须放 在最上方1、2行的位置，如果不是那就要修改程序了】 ，然后选择 View（视图）选项卡，点 击Macros（宏）按钮，如图3 所示 Excel Datj Rrview = ■ Q Tell me what yuui 谢厲就 to do k Q Q W 3 ° J； 石個 Zoom 100% Zmctito New Arrange FrMie _ . . iwtdi \ Macros Section Window All Pins t Reset WirrdowPosition Window \ = Zcon WiiidoiAr Macros I 丨 J i K LIMINIQIPIOIRISI T 1 U 丨 ￥ I W 在弹出的对话框中创建宏，在 Macro name （宏名称）中输入宏的名字，然后点击 Create（创 建）按钮，如图4 所示 然后，会打开宏编辑模式，进入 VBA编辑窗口，在代码窗口中会出现默认的代码块 Sub report。 End Sub 然后，我们将下面的代码粘贴到上面的代码块中: Con stRstep = 3 Dim R As Integer, Startselect As Integer, Endselect