excel 数据自动生成《工资签收条》

同创职校

请坛子里的大神们帮帮忙，每天都有导出数据的，一个个做太麻烦了。用啥方法一键生成表2的工资签收表模板。

lzqlaj

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

同创职校

lzqlaj 发表于 2017-8-31 19:36
http://club.excelhome.net/thread-487664-1-1.html

谢谢，我看看

lzqlaj

复制---粘贴----填数据，一会儿有时间帮你做。

lzqlaj

Sub 工资条()
    Dim hs, k
    hs = sheet1.[A65536].End(xlUp).Row
    Application.ScreenUpdating = False
    For k = 1 To hs - 2
        Range("A1:P4").Copy Range("A" & 5 * k + 1)
        Rows(5 * k + 1).RowHeight = 30
        Rows(5 * k + 2).RowHeight = 21
        Rows(5 * k + 3).RowHeight = 21
        Rows(5 * k + 4).RowHeight = 62.25
    Next k
    For k = 2 To hs
        sheet1.Range("A" & k & ":P" & k).Copy
        Sheet2.Range("A" & 5 * (k - 2) + 3).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    Next k
    Application.ScreenUpdating = True
End Sub

同创职校

lzqlaj 发表于 2017-8-31 21:03
Sub 工资条()
    Dim hs, k
    hs = sheet1.[A65536].End(xlUp).Row

谢谢老师，我试试

lzqlaj

Sub 清空()
    Dim hs1
    hs1 = Sheet2.[A65536].End(xlUp).Row
    Application.ScreenUpdating = False
    Range("A6:P" & hs1).Select
    Selection.MergeCells = False
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.ClearContents
    Application.ScreenUpdating = True
End Sub

lzqlaj

见附件。。。

同创职校

lzqlaj 发表于 2017-8-31 22:11
见附件。。。

太感谢老师的无私帮助。真的好用。

dhslxx

这种需求有通用的解决方案，可以使用”EXCEL集成系统“做一个小的系统，把你的工资签收表模板在系统中定义一下就可以了。