工资表一键生成工资条集成2种方案（智能型）

想想247

跪求共享代码，VBA的密码。。。。

verywondful

verywondful 发表于 2015-3-24 12:13
工资表一键生成工资条集成2种方案（智能型）

补充内容 (2015-5-9 22:33):

看来大家都念旧！偶尔也要尝鲜喔！

verywondful

verywondful 发表于 2015-3-24 12:13
工资表一键生成工资条集成2种方案（智能型）

补充内容 (2015-5-9 22:33):

工资表一键生成工资条最后改进极速版


补充内容 (2015-6-15 22:23):
第四版增加裁剪线方便裁剪，精简部分代码

verywondful

breaking1234 发表于 2015-3-28 10:06
我下载下来怎么不行呢？点击清空工资条没反应啊？这是怎么回事？

打开表格的时候，请执行以下操作：
A、工具》宏》安全性》中；
B、关闭文档；
C、重新打开文档，选择“启用宏”

薄雾中的刀锋

不怎么好用诶

verywondful

verywondful 发表于 2015-5-26 09:53
工资表一键生成工资条最后改进极速版

第四版增加裁剪线方便裁剪，精简部分代码

verywondful

已补充说明各版本区别，方便需要下载！多提宝贵意见！

verywondful

verywondful 发表于 2015-3-24 12:13
工资表一键生成工资条集成2种方案（智能型）

补充内容 (2015-5-9 22:33):

Sub 生成有空白行的工资条()
'
' 生成有空白行的工资条

    Sheets("工资表").Select
    Range("A1:Z194").Select
    Selection.Copy
    Sheets("工资条").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A2").Select
Dim endrow As Integer
Dim i As Integer
  endrow = Sheet1.Range("a65536").End(xlUp).Row - 1

  For i = 4 To endrow
  
    ActiveCell.Range("A1:Z2").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.LargeScroll ToRight:=-1
    ActiveCell.Offset(3, 0).Range("A1").Select
    Selection.Insert Shift:=xlDown
   
  Next i

End Sub

verywondful

verywondful 发表于 2015-6-30 12:50
Sub 生成有空白行的工资条()
'
' 生成有空白行的工资条

分享第一版代码

隱遁紅塵

学习一下，谢谢呢