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

fjzjyan · 发表于 2007-1-23 05:01:00

在工资表工作表中加一个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开发》课程教学讲义。

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

xjws212 · 发表于 2008-4-16 11:40:02

我也来看看呢。。。。。。。。。

justnow · 发表于 2008-9-1 22:12:05

看看呢

lsxhoho · 发表于 2008-11-17 16:24:16

顶一下再下.

刘志文 · 发表于 2008-12-15 15:39:12

很好,支持一下!![:50] [:50]

charlie001 · 发表于 2009-12-13 20:32:38

谢谢分享~~

lkkl66 · 发表于 2015-9-11 23:47:42

学习学习

无所事事 · 发表于 2016-6-6 08:07:10

这个功能比较实用，学习下

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

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

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)