|
楼主 |
发表于 2014-2-3 22:33
|
显示全部楼层
KCFONG 发表于 2014-2-3 22:25
Forgot all things
Give me example and tell me what you want again
版主,这是您给的
Sub TEST()
店 = Sheets("主页").Range("C3")
人员名字 = Sheets("主页").Range("C4")
月份 = Sheets("主页").Range("C5")
If 月份 = "1月" Or 月份 = "*" Then
Sheets("工资表").Select
Rows("3:65536").ClearContents
With Workbooks("工资总表.xls")
For Each S In .Sheets
If S.Name Like "*" & 月份 And S.Name <> "表" Then
ER = S.[D65536].End(xlUp).Row
For R = 3 To ER
If S.Cells(R, 2).MergeArea.Cells(1, 1) = 店 And S.Cells(R, 4) = 人员名字 Then
tr = ThisWorkbook.Sheets("工资表").[D65536].End(xlUp).Row + 1
S.Range("D" & R & ":AA" & R).Copy ThisWorkbook.Sheets("工资表").Range("D" & tr)
ThisWorkbook.Sheets("工资表").Range("A" & tr) = S.Name
End If
Next R
End If
Next S
End With
Else
tr = Replace(月份, "月", "") + 2
Sheets("工资表2").Select
Rows("3:65536").ClearContents
With Workbooks("工资总表.xls")
For Each S In .Sheets
If S.Name Like "*" & 月份 And S.Name <> "表" Then
ER = S.[D65536].End(xlUp).Row
For R = 3 To ER
If S.Cells(R, 2).MergeArea.Cells(1, 1) = 店 And S.Cells(R, 4) = 人员名字 Then
S.Range("D" & R & ":AA" & R).Copy
ThisWorkbook.Sheets("工资表2").Range("D" & tr).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
ThisWorkbook.Sheets("工资表2").Range("A" & tr) = S.Name
End If
Next R
End If
Next S
End With
End If
ActiveSheet.PrintOut
End Sub
的代码,可是我需求的是头个月打印整个表格,不是一定要一月份打印整个表格,比如李二是二月份进公司的,那他打印的时候就二月份整个表格,跟我上传的附件的A店工作簿一样。而我之前还有个问题就分表,就是按照总表自动分出以店名为名的工作簿,如A店工资工作簿,在A店工资工作簿里是这整个A店的员工的分表,如李二和张三这些表
|
|