11) oCell2.Value = oCell1.Value ' 培训券( 计算机操作员) 证件, "A1:E7" 为定义页面的培训券( 计算机操作员) 范围 Worksheets(" 培训券( 计算机操作员) ").Range("A1:AF25").PrintOut ' 清空 sheet7 中相片单元格中的照片为了避免照片打印重复 Dim x As Integer For x=1 To Sheet7.Shapes.Count If Sheet7.Shapes(x).TopLeftCell.Address = "$W$5" Then ' 绝对引用单元格 W5 是我设置的相片所在的单元格 Sheet7.Shapes(x).Delete ' 删除图片单元格的内容 End If Next x Sheet1.Activate ' 激活当前的工作表为 sheet1 即学员花名册( 计算机操作员) ~ 10 ~ ' 打完一个证件后,询问是否培训券( 计算机操作员)下一个。 If MsgBox(" 继续打印下一人员? ", vbDefaultButton1 + vbYesNo) <> vbYes Then ' 中断培训券( 计算机操作员)打印 Exit Sub End If' 为培训券( 计算机操作员)下一人员做准备 Set oCell1 = Worksheets(strSheet).Cells(iRow + 1, 1) oCell1.Activate Sheet1.Select ' 恢复当前的工作表为 sheet1 即学员花名册( 计算机操作员) Else MsgBox " 当前行不是人员信息,不能打印" Exit Sub End If Loop End Sub 2) 、实验结果完成后按 ALT+F11 进入代码窗口,鼠标点击(或按 F5 )执行宏操作会弹出宏对话框, 如图 5 所示
全文预览
