设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: george
打印 上一主题 下一主题

[行业] 生成工资条

[复制链接]
31#
发表于 2008-8-1 23:03:01 | 只看该作者
终于找到解决办法了,谢谢
32#
发表于 2008-8-5 13:53:05 | 只看该作者
hao dx
33#
发表于 2008-10-15 11:22:14 | 只看该作者
看看[:29]
34#
发表于 2008-10-15 11:50:21 | 只看该作者
能学点东西
35#
发表于 2008-10-20 21:24:22 | 只看该作者

look

look
36#
发表于 2008-10-22 20:37:29 | 只看该作者
look that ,tks.
37#
发表于 2008-11-17 16:03:32 | 只看该作者
下来看看
38#
发表于 2008-12-4 11:01:58 | 只看该作者
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
39#
发表于 2008-12-5 17:09:17 | 只看该作者
dddddd
40#
发表于 2008-12-6 10:35:16 | 只看该作者
学习学习
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-19 18:54 , Processed in 0.082855 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表