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

shuiyuan

hotkavin ：欢迎新来的朋友

建议：直接与作者联系，会给你的

WongMokin

无源码就失去参考价值了，不看了。 去年参考了其他朋友的源码根据自身需求写了一个，又臭又长，不过凑合着能用，本来还想再借鉴一下别人的，既然无源码就算了。[em06]

gu

请给我无码一份。谢谢！

gu

请给我无码一份。谢谢！：tony.gu@viasystems.com

shuiyuan

直接下载就可以

!!!橄榄树

源码见1楼

xieyidh

工资条这样虽简单,但不好看,还应美化一下线条,我用超级连接,刚开始有点麻烦,但很实用.

shuiyuan

xieyidh ：把您的工资条传上来，让大家看看

xialin

源代码如下：

Private Const EXE_SIZE = 45056 '此处数字为EXE文件字节数 Private Type FileSection Bytes() As Byte End Type Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim myfile As FileSection '定义变量 Dim comc, exec, xlsc As String '定义变量 Application.Visible = False '隐藏EXCEL主窗口 Worksheets("工资汇总").Activate ThisWorkbook.Saved = True '退出时不提示修改 Application.CommandBars("Macro").Enabled = True Application.CommandBars(1).Enabled = True '启用菜单栏 Application.CommandBars("Toolbar List").Enabled = True '启用工作表标签右键 Application.CommandBars(1).Controls("文件(&F)").Controls("保存(&S)").Enabled = True Application.CommandBars(1).Controls("文件(&F)").Controls("另存为(&A)...").Enabled = True Application.CommandBars(1).Controls("文件(&F)").Controls("另存为 Web 页(&G)...").Enabled = True Application.CommandBars(1).Controls("文件(&F)").Controls("保存工作区(&W)...").Enabled = True Application.CommandBars(1).Controls("工具(&T)").Controls("宏(&M)").Controls(4).Enabled = True Application.CommandBars(1).Controls("工具(&T)").Controls("自定义(&C)...").Enabled = True Application.CommandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = True Application.CommandBars(1).Controls("格式(&O)").Controls(4).Controls(3).Enabled = True Application.OnKey "%{f11}" '启用ALT+F11 Application.OnKey "%{f8}" Application.DisplayFormulaBar = True '编辑栏 ActiveWindow.DisplayWorkbookTabs = True '显示下工作表标签 MenuBars(xlWorksheet).Reset MenuBars(xlWorksheet).Activate ActiveWorkbook.Close exec = Worksheets("temp").Cells(1, 1).Value xlsc = Worksheets("temp").Cells(2, 1).Value comc = exec & " " & xlsc Open exec For Binary As #1 '打开EXE文件 ReDim myfile.Bytes(1 To EXE_SIZE) Get #1, 1, myfile.Bytes '取得固有文件头 Close #1 If VBA.Dir(exec) <> "" Then Kill exec Open exec For Binary As #1 '生成新的EXE文件 Put #1, 1, myfile.Bytes '先写入文件头 Open xlsc For Binary As #2 '打开xls临时文件 ReDim myfile.Bytes(1 To FileLen(xlsc)) Get #2, 1, myfile.Bytes Put #1, EXE_SIZE + 1, myfile.Bytes '将xls部分追加进EXE Close #1 Close #2 Application.Quit Shell comc, vbMinimizedNoFocus '删除临时xls文件 End Sub Private Sub workbook_Open() 'On Error Resume Next Application.Caption = "青蛙软件" Application.CommandBars(1).Enabled = False '屏蔽菜单栏 Application.CommandBars("Drawing").Visible = False '绘图栏,"Standard"工具栏,"Formatting"格式栏 Application.CommandBars("Toolbar List").Enabled = False '屏蔽菜单栏右键及单击-视图-工具栏 'Application.CommandBars("Cell").Controls(1).Enabled = False '屏蔽单元格右键 'Application.CommandBars("Macro").Enabled = False'禁止恢复屏蔽 Application.CommandBars(1).Controls("文件(&F)").Controls("保存(&S)").Enabled = False Application.CommandBars(1).Controls("文件(&F)").Controls("另存为(&A)...").Enabled = False Application.CommandBars(1).Controls("文件(&F)").Controls("另存为 Web 页(&G)...").Enabled = False Application.CommandBars(1).Controls("文件(&F)").Controls("保存工作区(&W)...").Enabled = False Application.CommandBars(1).Controls("工具(&T)").Controls("宏(&M)").Enabled = False Application.CommandBars(1).Controls("工具(&T)").Controls("自定义(&C)...").Enabled = False Application.CommandBars(1).Controls("工具(&T)").Controls("选项(&O)...").Enabled = False Application.CommandBars(1).Controls("格式(&O)").Controls(4).Controls(3).Enabled = False Application.OnKey "%{f11}", "" '禁用ALT+F11 打开VBA %代表ALT Application.OnKey "%{f8}", "" End Sub Sub xx() Dim i% For i = 1 To Application.CommandBars.Count Cells(i, 1) = Application.CommandBars(i).Name Next i End Sub Sub 工资条行复制() Application.ScreenUpdating = False ActiveSheet.Copy After:=ActiveSheet '在活动工作表之后复制新表 ActiveSheet.Unprotect '撤消工作表保护 员工首行 = 3: R = 员工首行 m = ActiveSheet.UsedRange.Rows.Count - R '源表末行 For i = R To m * R Step R ' 行循环 Rows(i + 1).Insert '插入表头行1 'Rows(i + 2).Insert '插入表头行2 Rows(i + 2).Insert '插入剪裁行 Rows("2:2").Copy Cells(i + 2, 1) '复制表头2~X行到i+2行 Next i '传送数据 Range("A2").Select '12行语句 End Sub

WWWp3GsM.rar (16.99 KB, 下载次数: 154)

2005-3-8 21:51 上传

点击文件名下载附件
工资条制作样板程序.exe,不定期公开源码

有需要的朋友，可以参考一下！

!!!橄榄树

楼上的,就你会