工资发放、分栏排版、固定资产折旧(公开部分源码)

Fennyhao · 发表于 2005-2-3 09:24

不错，谢谢楼主！！！

cn_blaze · 发表于 2005-2-3 09:33

好样的！

xialin · 发表于 2005-2-3 11:08

这样不是更简单： Sub MakeSalaryList() Dim i As Integer Dim endrow As Integer endrow = Sheet1.Range("a65536").End(xlUp).Row - 1 Worksheets(1).Range("1:1").Copy (Worksheets(2).Cells(1, 1)) For i = 3 To endrow Worksheets(1).Range("2:2").Copy (Worksheets(2).Cells(3 * i - 7, 1)) Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i - 6, 1)) Next i End Sub

bRhqwXZq.zip (10.58 KB, 下载次数: 145)

!!!橄榄树 · 发表于 2005-2-3 14:29

11楼的问题,增加人员用复制粘贴的办法,不存在问题。15楼的程序简单,但工资条的格式改变了工资汇总表的格式,不美观且打印费纸。

!!!橄榄树 · 发表于 2005-2-4 11:28

源码公开没有人再提建议了,因此删除了源码,抱歉~~~,若有需要者,贴上你的邮箱。

nhjshyj · 发表于 2005-2-4 13:18

给我一份好吗，我的邮箱是nhjshyj@163.com,那EXE文件是怎样制作出来的可否告知?谢谢。

doyyi · 发表于 2005-2-5 13:47

不错哦

FENGJUN · 发表于 2005-2-5 14:15

以下是引用!!!橄榄树在2005-2-1 23:45:00的发言：
。。。删除了源码,抱歉~~~,若有需要者,贴上你的邮箱。

平生最厌恶这种故弄玄虚的伎俩

[此贴子已经被作者于2005-2-5 14:16:15编辑过]

qqusv · 发表于 2005-2-5 21:01

好好啊!

不知我何时才有这本领

xialin · 发表于 2005-2-5 22:30

以下是引用FENGJUN在2005-2-5 14:15:00的发言：

平生最厌恶这种故弄玄虚的伎俩

支持fengjun兄，其实论坛上有很多慷慨的高手，不仅公开源代码，而且热情帮助别人，不要说楼主的几行简单代码，就算是非常有价值的代码，也没有必要如此卖弄。

有点受不了。[em14]

		自动登录	找回密码
密码			免费注册