工资条的四种做法【综合】

可宜

学习了，VBA麻烦，用公式的

Cold_Sunny

可宜 发表于 2012-6-8 11:24
学习了，VBA麻烦，用公式的

VBA的 主要 针对 表头 是多行的 例如 要打公司名字的 或者其他的 呵呵 各有各的用处的 呵呵

若离111

学习了，谢谢分享

guaguahero

学习了，谢谢分享

caimh

VB版2的方法能不能让生成工资条之间用分页符隔开？如下图：

shaowu459

caimh 发表于 2012-6-16 15:12
VB版2的方法能不能让生成工资条之间用分页符隔开？如下图：

1. Sub Macro1()
   
2. 
   
3.     Dim Datasource
   
4.     Dim i, n, m, col As Integer
   
5.     Sheets("工资条").Select
   
6.     Cells.Clear
   
7.     ActiveWindow.View = xlNormalView
   
8.     Sheets("工资表").Select
   
9.     Set Datasource = Application.InputBox(prompt:="请选择要生成工资条的区域：", Type:=8)
   
10. 
    
11.     Application.ScreenUpdating = False
    
12. 
    
13.     col = Datasource.Columns.Count
    
14.     AddressAll = Datasource.Address
    
15. 
    
16.     ActiveWorkbook.ActiveSheet.Range(AddressAll).Select
    
17.     Selection.Copy
    
18. 
    
19.     Sheets("工资条").Select
    
20.     Range("A1").Select
    
21.     ActiveSheet.Paste
    
22. 
    
23.     n = ActiveSheet.Range("A65535").End(xlUp).Row
    
24.     For i = n To 3 Step -1
    
25.         ActiveCell.Rows("1:1").EntireRow.Select
    
26.         Selection.Copy
    
27.         ActiveSheet.Rows(i & ":" & i).EntireRow.Select
    
28.         Selection.Insert Shift:=xlDown
    
29.     Next i
    
30.     n = ActiveSheet.Range("A65535").End(xlUp).Row
    
31.     For i = n To 2 Step -2
    
32.         ActiveSheet.Rows(i - 1 & ":" & i).EntireRow.Select
    
33.         Selection.Insert Shift:=xlDown
    
34.         Selection.ClearFormats
    
35.     Next i
    
36.     n = ActiveSheet.Range("A65535").End(xlUp).Row
    
37. 
    
38.     ActiveWindow.View = xlPageBreakPreview
    
39.     For i = 1 To n / 4
    
40.         ActiveSheet.Range(Cells(i * 4 - 1, 1), Cells(i * 4, col)).Select
    
41.         With Selection.Borders(xlEdgeLeft)
    
42.             .LineStyle = xlContinuous
    
43.             .Weight = xlMedium
    
44.         End With
    
45.         With Selection.Borders(xlEdgeTop)
    
46.             .LineStyle = xlContinuous
    
47.             .Weight = xlMedium
    
48.         End With
    
49.         With Selection.Borders(xlEdgeBottom)
    
50.             .LineStyle = xlContinuous
    
51.             .Weight = xlMedium
    
52.         End With
    
53.         With Selection.Borders(xlEdgeRight)
    
54.             .LineStyle = xlContinuous
    
55.             .Weight = xlMedium
    
56.         End With
    
57.         With Selection.Borders(xlInsideVertical)
    
58.             .LineStyle = xlDash
    
59.             .Weight = xlThin
    
60.         End With
    
61.         With Selection.Borders(xlInsideHorizontal)
    
62.             .LineStyle = xlDash
    
63.             .Weight = xlThin
    
64.         End With
    
65. 
    
66.         Cells(i * 4 + 1, 1).EntireRow.Select
    
67.         ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    
68.     Next i
    
69.     'ActiveSheet.Rows("1:1").Delete
    
70.     Application.ScreenUpdating = True
    
71. End Sub
    

复制代码

KARLOER1025

好方法！补充一个=IF(MOD(ROW(A1),3)=0,"－－－－",IF(MOD(ROW(A1),3)=1,丁一工资表!A$1,INDEX(丁一工资表!$A$2:$W$99,(ROW($A1)+1)/3,COLUMN(A1))))

caimh

shaowu459 发表于 2012-6-16 18:08

以上代码不能实现65楼的效果，请版主上传附件看看，谢谢！

caimh

shaowu459 发表于 2012-6-16 18:08

还有代码运行速度感觉有点慢，能否再提升呢？

shaowu459

caimh 发表于 2012-6-18 15:07
以上代码不能实现65楼的效果，请版主上传附件看看，谢谢！

我上传了附件你打开是错误。我在我这里运行是出正确结果的