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

想想247 · 发表于 2015-5-15 12:29

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

verywondful · 发表于 2015-5-23 13:42

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

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

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

verywondful · 发表于 2015-5-26 09:53

本帖最后由 verywondful 于 2015-5-26 12:34 编辑

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

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

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

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

verywondful · 发表于 2015-6-10 13:59

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

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

薄雾中的刀锋 · 发表于 2015-6-10 23:24

不怎么好用诶

verywondful · 发表于 2015-6-15 13:21

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

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

verywondful · 发表于 2015-6-15 13:41

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

verywondful · 发表于 2015-6-30 12:50

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 · 发表于 2015-6-30 12:57

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

分享第一版代码

隱遁紅塵 · 发表于 2015-7-1 13:40

学习一下，谢谢呢

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

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

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