Excel如何批量打印收据

问题描述

精选答案

导入学生的成绩单，命名为“成绩表”，在成绩表中输入各科成绩，任课教师和总分、排名等。

再建立一张评语表，命名为“评语”，在里面有教师对各位学生的评语。在建一张表命名为“通知书”，在里面设计好通知书内容。在“通知书”工作表中新建一个表格输入“序号”，如图所示，同时选择C6单元格输入=OFFSET(成绩表!$A$3,通知书!$M$1*1-1,0)&""，这样可以在C3输入姓名。选择C6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,2,0)，在C6中出现学生的数学成绩，同样在：D6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,3,0)E6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,4,0)F6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,5,0)G6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,6,0)H6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,7,0)I6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,8,0)J6单元格，输入函数=VLOOKUP($C$2,成绩表!$A$3:$I$16,9,0)现在成绩就全部输入了。选择C7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,2,0)在C6中出现学生的数学成绩，同样在：D7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,3,0)E7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,4,0)F7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,5,0)G7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,6,0)H7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,7,0)I7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,8,0)J7单元格，输入函数=VLOOKUP($B$7,成绩表!$A$3:$I$20,9,0)现在任课教师就全部输入了。现在我们来输入评语，在B9单元格中输入=VLOOKUP($C$2,' 评语'!$A$2:$B$15,2,0)，单击回车，就看到教师评语了。现在我们来实现批量打印，在L5中输入“开始序号”，在L6中输入“结束序号 ” ，在M5中输入1，在M6中输入14，单击“开发工具”——插入——命令按钮，在M1中划出按钮。右键按钮，选择查看代码，在代码编辑框中输入：Private Sub 打印通知书_Click()For i = Range("M5") To Range("M6")Range("m1") = iActiveSheet.PrintOutNextEnd Sub关闭代码窗口，点击“设计模式”，退出编辑状态，现在，单击command按钮就可以批量打印了。