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

yiqv0805

还不错.支持一下.

shaowu459

你的三种方法是全了，也提供一个vba的

鼠标左键选中标题行的第一个单元格（A2)，然后按住shift选择最右下角合计单元格上面的一个单元格，S列的，然后确定即可

Cold_Sunny

shaowu459 发表于 2012-4-24 13:12
你的三种方法是全了，也提供一个vba的

鼠标左键选中标题行的第一个单元格（A2)，然后按住shift选择最右下 ...

宏被损坏了

shaowu459

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

复制代码

后面大部分代码是设置虚线格式的

Cold_Sunny

shaowu459 发表于 2012-4-24 14:02
后面大部分代码是设置虚线格式的

好的 我试下 谢谢

Cold_Sunny

shaowu459 发表于 2012-4-24 14:02
后面大部分代码是设置虚线格式的

工资发放表(自动生成工资条).zip (25.69 KB, 下载次数: 13)

2012-4-24 14:11 上传

点击文件名下载附件

你好 这个选定区域是 怎么选中呢？我这边生成的 有点问题 请看下

xbc_gjz

下来学习一下 哈哈

shaowu459

Cold_Sunny 发表于 2012-4-24 14:12
你好 这个选定区域是 怎么选中呢？我这边生成的 有点问题 请看下

我选的表头是第二行，没有包括最上面合并单元格的那个，也就是选择区域是从A2到S多少

Cold_Sunny

shaowu459 发表于 2012-4-24 15:15
我选的表头是第二行，没有包括最上面合并单元格的那个，也就是选择区域是从A2到S多少

哦 好的 我知道 我试下

Cold_Sunny

shaowu459 发表于 2012-4-24 15:15
我选的表头是第二行，没有包括最上面合并单元格的那个，也就是选择区域是从A2到S多少

可以了 我挂到首页，谢谢哦