Office中国论坛/Access中国论坛

标题: 生成工资条 [打印本页]

作者: george 时间: 2005-11-3 08:26
标题: 生成工资条
我早些年做的一个自动生成工资条的程序,请帮我简化一下,如果能提高它的运算速度就更好了!

谢谢先!VBA的密码是810927

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

作者: xxzyh 时间: 2006-4-12 03:40
good!

作者: iceyes 时间: 2006-11-27 16:33
good

作者: iceyes 时间: 2006-11-27 16:33
+u

作者: likread 时间: 2006-12-27 09:15
多谢

作者: fjzjyan 时间: 2007-1-23 04:51
我已帮你修改代码，1000以内条记录速度应该还可以，你试试。[attach]22766[/attach]

作者: asong2060 时间: 2007-8-8 13:27
标题: 值得！
這裡環境不錯，值得！

作者: chj200054 时间: 2007-8-13 11:31
值得！

:victory:

作者: pureshadow 时间: 2007-8-13 13:00
我有个工资条的代码，狂简单的，抄来的

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
想增加些积分，不过本人确实喜欢这个论坛！

作者: mcy168 时间: 2007-9-5 21:26
标题: 我也来一个哈哈

Private Sub Worksheet_Activate()
Dim i, j, X As Integer
Cells.Delete Shift:=xlUp
Columns("A:A").ColumnWidth = 9.25
X = 2
For j = 5 To Sheet3.Rows.Count
      If (Sheet3.Cells(j, 1).Value <> "") Then
         For i = 1 To 18
            Cells(X - 1, 1).Value = "日期"
            Cells(X, 1).Value = Format(Sheet3.Cells(3, 8), "yyyy年mm月")
            Cells(X - 1, i + 1).Value = Sheet3.Cells(4, i)
            Cells(X, i + 1).Value = Sheet3.Cells(j, i)
            Cells(X + 1, i).Value = "- - - - - "
            Cells(X + 1, i + 1).Value = "- - - - - "
            With Range(Cells(X - 1, "a"), Cells(X, "s")).Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 14
            End With
            Next i
         X = X + 3
      Else
         GoTo ENDSUB
      End If
Next j
ENDSUB:
      MsgBox "工资条生成完毕！", 64, "系统提示"
End Sub

作者: AKACHIKI 时间: 2007-9-20 10:32
太嗲了，好好学学

作者: xujunlz 时间: 2007-11-22 09:17
谢谢啊，先学习了。我是菜鸟来的啊。谢谢版主啊。

作者: Saka 时间: 2007-12-3 11:24
顶

:lol

作者: 孤独的龙 时间: 2007-12-6 18:15
正需要这个,太感谢楼主

作者: 1201 时间: 2008-1-7 14:39
谢谢，下来看看。

作者: juliahzh 时间: 2008-1-24 09:14
呵呵，太强了，好用啊

作者: ywwlo 时间: 2008-1-25 16:59
呵呵，都是高手啊

作者: jingyouxi 时间: 2008-2-28 17:10
都不错呀！

作者: hollinton 时间: 2008-3-31 00:23
thanks very much

作者: csbing 时间: 2008-4-14 14:16
Thanks!!!!

作者: hangguo 时间: 2008-4-15 08:07
先下下来学习，谢谢分享

作者: ntgpf 时间: 2008-4-27 08:56
标题: 回复 1# 的帖子
让我看看

作者: tttc 时间: 2008-6-13 16:03
正需要!!!!!

作者: tgb 时间: 2008-6-22 21:45
还可以

作者: lyons88 时间: 2008-6-23 10:08
我看看吧下载

作者: flyingxp 时间: 2008-7-16 16:18
高人，感谢贡献！

作者: yqi520 时间: 2008-7-20 19:41
好好好

作者: cooky_jun 时间: 2008-7-21 14:45
标题: ddddd
dddddd

作者: frankwrs 时间: 2008-7-25 23:57
[:31]

作者: 青年点 时间: 2008-8-1 23:03
终于找到解决办法了，谢谢

作者: 最后的来临 时间: 2008-8-5 13:53
hao dx

作者: hylyq63 时间: 2008-10-15 11:22
看看[:29]

作者: YANGLAODA 时间: 2008-10-15 11:50
能学点东西

作者: hjj691022 时间: 2008-10-20 21:24
标题: look
look

作者: 星蓝草 时间: 2008-10-22 20:37
look that ,tks.

作者: lsxhoho 时间: 2008-11-17 16:03
下来看看

作者: zqhsky 时间: 2008-12-4 11:01
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

作者: xiaoguguer 时间: 2008-12-5 17:09
dddddd

作者: lhsh 时间: 2008-12-6 10:35
学习学习

作者: gaos1975 时间: 2008-12-13 09:57
好东西，顶一个！

作者: alfryan 时间: 2008-12-20 11:40
看看学学

作者: zjcxqiu 时间: 2008-12-23 18:50
标题: good
good

作者: ecome 时间: 2008-12-26 15:16
很好的东西谢谢分享

作者: HRC11 时间: 2008-12-29 19:45
我要学习

作者: daphy123 时间: 2009-1-8 17:09
HAO DONGXI xiexie

作者: 4wspace 时间: 2009-1-8 17:44
想增加些积分

作者: courageous 时间: 2009-1-18 16:22
[:50] [:31] 牛人真多

作者: taolinmeng 时间: 2009-2-12 09:58
!看看研究一下

作者: yercn 时间: 2009-2-17 17:38
看看,一同学习,一同进步

作者: gb320211 时间: 2009-3-16 20:55
我试试看

作者: znswhx 时间: 2009-3-20 11:39
gdfsgfd

作者: 刘志文 时间: 2009-3-26 16:05
向pureshadow 版学习!!

作者: plmmco 时间: 2009-3-27 17:00
不错，值得保存！！

作者: goto2008 时间: 2009-12-6 01:25
dddddddddd

作者: wen123456 时间: 2010-2-28 21:33
产产产品不

作者: cai918 时间: 2010-3-8 15:47
工资条生成正式目前急需的，下载看看

作者: ljx63426 时间: 2010-3-15 08:56
很好，谢了

作者: 易承正 时间: 2010-3-31 23:35

作者: yutazaaza 时间: 2010-5-14 18:40
xiexie

作者: eluk 时间: 2010-6-10 16:47
俺想学习下。

作者: mugua 时间: 2010-6-11 21:22
谢谢楼主分享

作者: mengqingwen0609 时间: 2010-10-20 13:48
试一下

作者: bo7277081 时间: 2010-11-14 05:55
3868-3038-7544-6696

作者: hikaru803 时间: 2010-11-22 22:39
有用

作者: LUIDAOHONG 时间: 2011-1-14 00:17
好,下来看看

作者: KONGYUAN1 时间: 2011-1-15 15:41
kkk

作者: xlwlz8669 时间: 2011-1-26 22:26
金金金

作者: ali88de888 时间: 2011-1-26 22:42
学习一下

作者: hushibiao 时间: 2011-5-7 08:53

作者: owea 时间: 2011-5-10 21:31
看看

作者: keron911 时间: 2011-8-23 14:15
谢谢老大的分享，支持了！

作者: raffles4729256 时间: 2011-8-25 17:57
123

作者: daxin1 时间: 2011-8-25 18:04
333

作者: 关向齐 时间: 2011-11-3 02:23
学习

作者: 冰心8549 时间: 2011-11-4 13:06
谢谢，学习一下

作者: YXH_YXH 时间: 2013-6-3 17:41
多谢！！！！！

作者: liuxiao701 时间: 2013-6-17 15:03
学习学习。

作者: E-開心 时间: 2013-12-19 11:37

作者: 低调的喧哗 时间: 2016-10-21 11:45
good

作者: 哈哈大师 时间: 2016-11-23 20:15
干货

作者: 刘青梅 时间: 2016-12-4 14:25
确实喜欢这个论坛！

作者: qcq127 时间: 2018-7-15 17:25
下载试用一下

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