用VBA制作Excel成绩条

Microsoftoffice提供了应用程序之间协同工作的功能，让我们可以在WORD文档中使用【...



Microsoft office提供了应用程序之间协同工作的功能，让我们可以在WORD文档中使用【邮件合并】功能，引用EXCEL工作簿的数据，制作学生个人成绩条。

一、如图使用邮件合并功能，制作1次考试成绩条（详细操作过程自行百度）。从图中可以看出，这个成绩条包含了1次考试的5项内容（姓名和4个成绩），在邮件合并的过程当中，我们需要执行1*5次插入域命令，就是图中带有域符号的部分（那可不是书名号哦）。熟悉邮件合并功能的人便知道：操作过程中每次插入域，需要打开插入域窗口，插入相应的域，然后关闭窗口。随着考试次数和成绩条项目的增加，执行插入域命令的次数会陡然攀升。比如3次考试，每次考试6个科目，那么执行插入域命令的次数就是3X6=18次。如果再加上各科成绩的排名，就是3X12=36次。如果再加上学生的个人信息，就真的令人烦躁，甚至反感了。



还有，使用邮件合并之前，需事先将多次成绩合并到一张工作表中，就是上回所讲的内容。工作量之大，令我至今不敢一试。

另外，合并之后也会碰到跨页的情况。

二、三年前，我编写了一段VBA代码，用于制作学生个人成绩条。

您需要做的工作：

1、将每次考试成绩单独保存在一张工作表中，以考试名称来命名工作表

2、保证每次考试的科目内容一致，就是每一列的内容要一致。（其实每次从阅卷系统导出的成绩模板都一样）



3、在《参数设置》工作表中A列按顺序填写考试名称，B列填写学生姓名（或者学号作为索引，若出现重名可以用张三1、张三2区分。最后使用学号，就可以避免麻烦）



4、添加一张名为《制作成绩条》的工作表，然后执行一次代码，便OK了。



5、不管多少位学生、多少次考试、多少科成绩，你要做的都只是这么多。

三、最后想说的话

很多人还在犹豫，犹豫自己对vba代码一窍不通不会使用。请放心，您的担忧，微软和我都考虑到了。以上功能都是鼠标一键单击完成的。

本福利，现正发售，20块一份，物超所值，支付宝账号8485738@qq.com。我在支付宝那头等着你哟。关注，转发集32个赞,截图发给我，五折优惠。

    关注 MicrosoftOffice自动化办公服务