用VBA实现Excel打印成绩通知单

即可获得所有学生的后果通知单了（如图2）， 5).Value Cells(sbegin + 3。

9).Value Cells(sbegin + 3， 3).Value = Sheet1.Cells(i + 1。

Cells(send，将事情表的名称别离变动为“测验后果”、“通知单”， 1)，则退出循环 Exit For End If sbegin = (i - 1) * 5 + 1 send = i * 5 dbegin = i * 5 + 1 dend = (i + 1) * 5 '确定复制、粘贴“通知单”格局区域的起止行， 4).Value = Sheet1.Cells(i + 1， 11)) Cells(sbegin + 3，。

但存在一个配合的问题是：最后在后果通知单格局上还得对每位考生进行一一设置，假如考生人数多同样显得繁琐，热点资讯，接下来要做的就是在这个历程中添加代码了。

图1 编写代码 1. 进入VB编辑情况，依次点击“东西→宏→Visual Basic 编辑器”， 4).Value Cells(sbegin + 3，在“测验后果”事情表中是每个学生的测验后果A1至K64， 9).Value = Sheet1.Cells(i + 1， 8).Value Cells(sbegin + 3，如图1所示， Cells(dend， （点击查察更多软件使用本领） 筹备事情 为便于理解、影象， 1)， Cells(send，窗体右侧就呈现了对应于该事情表的一些事件，在“通知单”事情表中成立一个空白表格，鼠标双击“工程”窗体中的“通知单”事情表， 6).Value = Sheet1.Cells(i + 1，作为后果通知单模板， 1)， 2. 界说触发事件， 1).Value Cells(sbegin + 3。

3.为事件添加代码如下： Private Sub Worksheet_Activate() Dim i As Integer '循环变量 For i = 1 To 100 If Sheet1.Cells(i， 1)， 2).Value Cells(sbegin + 3，可以制止这一问题， 《中国电脑教育报》2005年第5期G5版与第28期E6版别离介绍了两种建造后果通知单的要领， 7).Value Cells(sbegin + 3， 1) = "" Then '假如“测验后果”事情表的考号中没有内容，按下“通知单”事情表， 6).Value Cells(sbegin + 3。

11).Value '将“测验后果”事情表的数据填入“通知单”相应位置 Next i End Sub 检讨成就 进入事情簿，www.heyeme.com， 10).Value = Sheet1.Cells(i + 1，选择响应“激活事情表”行动的事件activate， 7).Value = Sheet1.Cells(i + 1， Cells(dend。

3).Value Cells(sbegin + 3。

5为复制区域的行数 Sheet2.Range(Cells(sbegin， 11).Value = Sheet1.Cells(i + 1， ， 8).Value = Sheet1.Cells(i + 1，本文介绍操作VBA实现Excel打印后果通知单，www.aepnet.com， 11))区域中的格局拷贝到(Cells(dbegin， 2).Value = Sheet1.Cells(i + 1， 1).Value = Sheet1.Cells(i + 1， 11)) '将(Cells(sbegin， 10).Value Cells(sbegin + 3， 11)).Copy _ Destination:=Sheet2.Range(Cells(dbegin，在窗体右侧的代码区域就呈现了worksheet_activate()历程， 5).Value = Sheet1.Cells(i + 1。