简易通用工资模板

xgrc_xgrc · 发表于 2004-1-1 17:19

应朋友之约将此模板改成活动列，使其具有通用功能。在52列内可随意增减（应该够用）
具有部门汇总、部门明细、生成工资条及生成个人所得税计算公式等功能

6Wp2k36w.rar (50.38 KB, 下载次数: 996)

[此贴子已经被作者于2005-3-22 16:49:57编辑过]

ck96baiwu · 发表于 2004-1-2 02:01

顶一下，很好的，这里能不能学到VBA呀？

tzdavid · 发表于 2004-1-2 14:56

xgrc_xgrc · 发表于 2004-1-2 23:33

以下是引用ck96baiwu在2004-1-2 2:01:00的发言：
顶一下，很好的，这里能不能学到VBA呀？

我就是在ExcelHome学的VBA！

EdgeOfCity · 发表于 2004-1-5 18:25

不错，实用。不过加工资条的程序可以简化一些：
1。前后加上Application.ScreenUpdating = False和true 的开关。
2。诸如：Range(Cells(hh2, k), Cells(hh2, k)).Select
   ActiveCell.FormulaR1C1 ="=......"
可以改为cells(hh2,k)="......"。
3。加边框的程序可简化为：
For i = 1 To 4
      With Range(Cells(hh2 - 1, 1), Cells(hh2, 11)).Borders(i)
         .LineStyle = xlContinuous
      End With
Next i

做工资条的程序论坛上已有很多。这里只对简化程序给个建议。

xgrc_xgrc · 发表于 2004-1-5 20:52

以下是引用EdgeOfCity在2004-1-5 18:25:00的发言：
不错，实用。不过加工资条的程序可以简化一些：
1。前后加上Application.ScreenUpdating = False和true 的开关。
2。诸如：Range(Cells(hh2, k), Cells(hh2, k)).Select
   ActiveCell.FormulaR1C1 ="=......"
可以改为cells(hh2,k)="......"。
3。加边框的程序可简化为：
   For i = 1 To 4
      With Range(Cells(hh2 - 1, 1), Cells(hh2, 11)).Borders(i)
         .LineStyle = xlContinuous
      End With
   Next i

做工资条的程序论坛上已有很多。这里只对简化程序给个建议。

因对格式VBA格式了解不多，录制宏后只简单加了循环处理，显得过于粗糙。按你的建议进行修改后，速度快了很多，诚至谢意！重新贴上

1JmxRiyv.rar (25.71 KB, 下载次数: 341)

EdgeOfCity · 发表于 2004-1-5 21:07

呵，我的第一条建议还是没采纳。

xgrc_xgrc · 发表于 2004-1-5 21:23

关闭屏幕更新速度更快，朋友们自己加吧

hzattn · 发表于 2004-1-6 09:13

学习就有进步！不错！

weijiang · 发表于 2004-1-6 18:09

very good

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

[原创] 简易通用工资模板