Office中国论坛/Access中国论坛

标题: 应用在我公司打工资条的代码 [打印本页]

作者: ququ 时间: 2004-6-25 17:11
标题: 应用在我公司打工资条的代码
Sub XINZI2()

Rows("3:3").Select

Selection.Copy

Rows("5:5").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("7:7").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=-3

Application.CutCopyMode = False

Selection.Copy

Rows("9:9").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("11:11").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("13:13").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("15:15").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=3

Application.CutCopyMode = False

Selection.Copy

Rows("17:17").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("19:19").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("21:21").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=3

Application.CutCopyMode = False

Selection.Copy

Rows("23:23").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("25:25").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("27:27").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("29:29").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=3

Application.CutCopyMode = False

Selection.Copy

Rows("31:31").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("33:33").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("35:35").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("37:37").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("39:39").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=3

Application.CutCopyMode = False

Selection.Copy

Rows("41:41").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("43:43").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("45:45").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("47:47").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=3

Application.CutCopyMode = False

Selection.Copy

Rows("49:49").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("51:51").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("53:53").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("55:55").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("57:57").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("59:59").Select

Selection.Insert SHIFT:=xlDown

ActiveWindow.SmallScroll DOWN:=6

Application.CutCopyMode = False

Selection.Copy

Rows("61:61").Select

Selection.Insert SHIFT:=xlDown

Application.CutCopyMode = False

Selection.Copy

Rows("63:63").Select

Selection.Insert SHIFT:=xlDown

作者: wuyuanhui 时间: 2004-6-25 19:37
ququ：你的代码看来很复杂，到底怎样利用能搞个例子就更好！

作者: test2008 时间: 2004-6-25 21:22
没有注释,看不太明白

作者: hzg7818 时间: 2004-6-26 05:03
代码比较冗长，过多重复的部分，而且先使用Select然后操作，速度很慢，代码有很多需要优化的地方

作者: tmtony 时间: 2004-6-26 08:40
ququ,不用贴代码，就把你的工资条贴上来，大家就都明白了：）

作者: doapmoty 时间: 2004-9-3 04:42
用循环会比较好就算有select，代码可以少到。。。。。。。。。程度最多就7、8行代码

作者: xxzyh 时间: 2006-4-12 03:32
我有几百人，你这代码不是要复制多两倍长？[em06]

作者: betaii 时间: 2006-4-17 18:53
晕，太复杂了，循环！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)