有请高手相助，工资条问题

martin0903 · 发表于 2004-3-28 20:00

请高手相助，以下表格里，如何用宏自动生成类似表头的工资条，只有一行表头的会，有两行的就不会啦，请多多指教，谢谢

9HF5qW3i.rar (16.57 KB, 下载次数: 541)

martin0903 · 发表于 2004-3-28 21:52

谢谢jack.zhou ,但是如果再按一次按钮不就重复了吗?不可以覆盖相同行吗,而且工资条与工资条之间用虚线分割，该怎么写啊

[此贴子已经被作者于2004-3-28 21:58:28编辑过]

martin0903 · 发表于 2004-3-29 17:10

谢谢jack.zhou ,你真厉害，向你学习

martin0903 · 发表于 2004-3-29 22:47

还想问一下，怎样锁定每一页生成的工资条数啊，例如8条

baohuan · 发表于 2004-4-2 19:56

谢谢，我以前也有用过宏做工资条，但比这个复杂多了，谢了，朋友。

jack.zhou · 发表于 2004-3-28 22:19

你好：请参考： Sub gongzitiao()
Dim i As Integer
Row2 = Sheet2.Range("a65500").End(xlUp).Row
row3 = Sheet1.Range("a65500").End(xlUp).Row
Sheet1.Range("1:" & row3).EntireRow.Delete '先删除已有数据
With Sheet1
For i = 6 To Row2
row1 = Sheet1.Range("a65500").End(xlUp).Row + 3
Sheet2.Range("a3:af5").Copy .Cells(row1, 1)
.Cells(row1 - 1, 1) = Sheet2.Cells(1, 1)
.Range(row1 - 1 & ":" & row1 - 1).Borders(xlEdgeTop).LineStyle = xlDot '画线
Sheet2.Range("a" & i).EntireRow.Copy .Cells(row1 + 3, 1)
Next i
End With
MsgBox "ok"
End Sub

jack.zhou · 发表于 2004-3-28 21:06

martin0903您好，请参考文件：

loPSVUJh.rar (14.92 KB, 下载次数: 571)

[此贴子已经被作者于2004-3-28 21:15:24编辑过]

littlefxa · 发表于 2010-2-10 19:59

太厉害了！

lgcmeli · 发表于 2010-3-4 00:17

推荐一种基础操作的：

http://club.excelhome.net/thread-541410-1-1.html

zhaojia · 发表于 2010-3-4 16:42

不用VBA试试。

		自动登录	找回密码
密码			免费注册

[求助] 有请高手相助，工资条问题

评分