生成工资条

george · 发表于 2005-11-3 08:26:00

我早些年做的一个自动生成工资条的程序,请帮我简化一下,如果能提高它的运算速度就更好了!

谢谢先!VBA的密码是810927

游客，如果您要查看本帖隐藏内容请回复

[此贴子已经被作者于2005-11-3 8:29:20编辑过]

xxzyh · 发表于 2006-4-12 03:40:00

good!

iceyes · 发表于 2006-11-27 16:33:00

good

iceyes · 发表于 2006-11-27 16:33:00

likread · 发表于 2006-12-27 09:15:00

多谢

fjzjyan · 发表于 2007-1-23 04:51:00

我已帮你修改代码，1000以内条记录速度应该还可以，你试试。

asong2060 · 发表于 2007-8-8 13:27:47

這裡環境不錯，值得！

chj200054 · 发表于 2007-8-13 11:31:29

值得！

:victory:

pureshadow · 发表于 2007-8-13 13:00:11

我有个工资条的代码，狂简单的，抄来的

Dim f As Integer
f = Cells(65536, 1).End(xlUp).Row
i = 1
For m = 1 To f
Range("A1:ai1").Copy Destination:=Range("an" & i & ":bv" & i)
i = i + 1
Range("A" & m + 2 & ":ai" & m + 2).Copy Destination:=Range("an" & i & ":bv" & i)
i = i + 2
Next

3990060 · 发表于 2007-9-5 20:47:54

想增加些积分，不过本人确实喜欢这个论坛！

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[行业] 生成工资条

本帖子中包含更多资源

本帖子中包含更多资源

值得！

群介绍
主题无相 (随机显示版	同地区群块其他地区)