2010年最牛工资表

tjxy333 · 发表于 2010-3-6 22:10

2010年最牛工资表：这是本人通过excel home各位老师指点，学习制作的工资表，有这么几个好处：
一、在录入表录入数据后，月份修改后点保存会自动生成工资条，自动保存月份，以便备查！
二、录入数据变动大的地方会自动删除数据。
缺点是：个人工资条打印后，需删除“工资数据删除”工资表，以便第二个月使用！

txskxu · 发表于 2010-3-6 22:22

挺好的，谢谢分享

cflood · 发表于 2010-3-6 22:24

既然使用了宏，完全可以自动删除“工资数据删除”

tjxy333 · 发表于 2010-3-6 22:35

请求各位大侠改改！！！

tjxy333 · 发表于 2010-3-6 22:39

删除后，工资条就无法替换数据了！请求老师改改哈！

suwenkai · 发表于 2010-3-6 23:18

加个删除的你看行不行？

Sub Macro1()
'
' Macro1 Macro
' 宏由 xiaoyu 录制，时间: 2009-3-15
'

Call 删除

svname1 = Left([c2], WorksheetFunction.Find("月", [c2]) - 1) & "月"
svname2 = "工资数据删除"
Sheets("录入表").Copy Before:=Sheets(2)
ActiveSheet.Name = svname1
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Sheets("录入表").Copy Before:=Sheets(3)
ActiveSheet.Name = svname2
ActiveSheet.Shapes("Button 1").Select
Selection.Cut
Sheets("个人工资条").Select
ActiveWindow.SmallScroll Down:=-9
Cells.Select
Selection.Replace What:="#REF", Replacement:=svname2, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
Sheets("录入表").Select
ActiveWindow.SmallScroll Down:=-6
Range("E4:J19").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-24
Range("I7").Select
End Sub
Sub 删除()
Dim mysheet
For Each mysheet In Sheets
If mysheet.Name <> "个人工资条" And mysheet.Name <> "录入表" Then
mysheet.Delete
End If
Next

End Sub

tjxy333 · 发表于 2010-3-7 08:57

先谢过，然后我试试哈！

tjxy333 · 发表于 2010-3-7 09:22

老师，我试过，还是不行！你在研究研究如何？谢谢了！

飞云楼主 · 发表于 2010-3-7 09:23

看过，标题有点牛。
不过，楼主辛苦了。

tjxy333 · 发表于 2010-3-7 09:23

拜托各位大侠了！

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

[分享] 2010年最牛工资表

回复 5楼 cflood 的帖子

回复 8楼 suwenkai 的帖子