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

肥臀肥雪

先下来看看。

shaowu459

caimh 发表于 2012-6-18 22:07
版主，可能是我意思没表达清楚，我不是要分页的效果，而是要在两个人的中间划一虚线隔开。

就是个线啊，那好弄。那你就应该直接说加虚线，而不是分页。明天开电脑改一下。你自己录制一个宏应该加进去就可以

caimh

shaowu459 发表于 2012-6-18 22:37
就是个线啊，那好弄。那你就应该直接说加虚线，而不是分页。明天开电脑改一下。你自己录制一个宏应该加进 ...

我是VB菜鸟，恳请版主再帮帮忙。。

shaowu459

caimh 发表于 2012-6-18 22:07
版主，可能是我意思没表达清楚，我不是要分页的效果，而是要在两个人的中间划一虚线隔开。

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

复制代码

shaowu459

楼上代码的附件，参考。

caimh

shaowu459 发表于 2012-6-19 10:25

代码运行错误：438，对象不支持该属性或方法。错误语句：.TintAndShade = 0

caimh

shaowu459 发表于 2012-6-19 10:26
楼上代码的附件，参考。

另外，打印预览格式也有问题，截图发下：


1、为什么会出现头两行是空白行？
2、两个人工资条中间那两行的单元格都有边框，而不是只有中间只划一虚线呢？

shaowu459

caimh 发表于 2012-6-19 11:17
另外，打印预览格式也有问题，截图发下：

你把你想要的结果手动做一个文件上来，若不是上传图片。至少做5行数据及格式。

caimh

shaowu459 发表于 2012-6-19 12:31
你把你想要的结果手动做一个文件上来，若不是上传图片。至少做5行数据及格式。

以6个人的工资条数据为例，附图和附件如下：



工资条效果.rar (22.89 KB, 下载次数: 8)

2012-6-19 14:23 上传

点击文件名下载附件

shaowu459

caimh 发表于 2012-6-19 14:23
以6个人的工资条数据为例，附图和附件如下：

这样可以了吧。