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

heet_activate()过程。接下来要做的就是在这个过程中添加代码了。

　　3.为事件添加代码如下：

　　Private Sub Worksheet_Activate()
　　Dim i As Integer ’循环变量
　　For i = 1 To 100
　　If Sheet1.Cells(i, 1) = ““ Then
　　’如果“考试成绩”工作表的考号中没有内容，则退出循环
　　Exit For
　　End If
　　sbegin = (i - 1) * 5 + 1
　　sen

页码：[1] [2] [3] [4] [5] [6] 第2页、共6页

设为首页 | 加入收藏 | 广告服务 | 友情链接 | 版权申明