生成工资条

george

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

谢谢先!VBA的密码是810927

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

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

xxzyh

good!

iceyes

good

iceyes

+u

likread

多谢

fjzjyan

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

asong2060

這裡環境不錯，值得！

chj200054

值得！
:victory:

pureshadow

我有个工资条的代码，狂简单的，抄来的
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

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