Office中国论坛/Access中国论坛

标题: [原创]单行标题工资条打印 [打印本页]

作者: fjzjyan 时间: 2007-1-23 05:01
标题: [原创]单行标题工资条打印
在工资表工作表中加一个ActiveX命令按钮双击后编写如下代码

Private Sub CommandButton1_Click()

Dim n As Integer

Dim i As Integer

n = Sheets("工资表").[a1].CurrentRegion.Rows.Count

Sheets("工资表").[a1].CurrentRegion.Copy Sheets("工资条").[a1]

For i = 3 To (n - 2) * 2

If Sheets("工资条").Cells(i, 1) <> "" Then

Sheets("工资条").Rows(i + 1).Insert

End If

If Sheets("工资条").Cells(i, 1) = "" Then

Sheets("工资条").[A2:I2].Copy Sheets("工资条").Cells(i, 1)

End If

Next i

End Sub

备注：此源码来自本人自行编写《EXCEL VBA+Access开发》课程教学讲义。[attach]22768[/attach]

[此贴子已经被作者于2007-5-17 11:19:12编辑过]

作者: xjws212 时间: 2008-4-16 11:40
我也来看看呢。。。。。。。。。

作者: justnow 时间: 2008-9-1 22:12
看看呢

作者: lsxhoho 时间: 2008-11-17 16:24
顶一下再下.

作者: 刘志文 时间: 2008-12-15 15:39
很好,支持一下!![:50] [:50]

作者: charlie001 时间: 2009-12-13 20:32
谢谢分享~~

作者: lkkl66 时间: 2015-9-11 23:47
学习学习

作者: 无所事事 时间: 2016-6-6 08:07
这个功能比较实用，学习下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)