请老师编写程序，把各单位的奖金在下面空白行小计一下并列在H、I、J列处（见H、I、J列

zhjg5961

六列奖金的：
奖金小计（六列奖金的）.rar (25.41 KB, 下载次数: 13)

2014-4-13 14:45 上传

点击文件名下载附件

zhjg5961

jbjbzjb 发表于 2014-4-11 20:44
你现在上的附件跟早先附件表格框架根本不一样！！！！

评：不规范的表格，早先上的附件就要列出各种可 ...

老师你好，你编写的程序测试成功，我想如果哪天做的奖金有六列，这个程序就不能使用了，想再麻烦老师编写一个合计六列的程序（见下面附件）。
奖金小计（六列奖金的）.rar (25.41 KB, 下载次数: 8)

2014-4-13 17:34 上传

点击文件名下载附件

jbjbzjb

zhjg5961 发表于 2014-4-13 17:36
老师你好，你编写的程序测试成功，我想如果哪天做的奖金有六列，这个程序就不能使用了，想再麻烦老师编写 ...

一直冷眼旁观，终于去看昨晚就发的短消息了！

zhjg5961

jbjbzjb 发表于 2014-4-13 17:59
一直冷眼旁观，终于去看昨晚就发的短消息了！

还是老师考虑的周全，请老师对32楼的附件再次编写一个程序。先谢谢了！

jbjbzjb

zhjg5961 发表于 2014-4-13 18:06
还是老师考虑的周全，请老师对32楼的附件再次编写一个程序。先谢谢了！

原15楼附件已更新。

提示：
1.懒得再下32楼附件，故附件中数据仍然是老数据；
2.手动确定统计列时，不一定以列标来选定；
3.代码未以严格检验。

chxw68

6列奖金统计的修改好了，但其中还是有统计错误。建议楼主没必要在这个程序上下这么大功夫，今天针对这样的表格费了很大劲刚把所有问题解决了，下次上报报表的人一个小动作，就会导致这个程序不能使用了，所以不解决报表格式问题，所有一切劳动都是徒劳的。

zhjg5961

chxw68 发表于 2014-4-14 08:51
6列奖金统计的修改好了，但其中还是有统计错误。建议楼主没必要在这个程序上下这么大功夫，今天针对这样的表 ...

只要把报来的表格稍微做一点修改就可以用（这样工作中会省很多事），另外还要麻烦老师再加一个清除功能。
再次感谢老师!

chxw68

修改好了。

chxw68

1. Sub 整理表格()
   
2.   Dim r%, i%
   
3.   Dim arr
   
4.   Dim rng As Range
   
5.   tm = Array("序号", "姓名", "工号", "体系", "效果", "四季度体系建设", "体系", "效果", "四季度体系建设", "储蓄帐号")
   
6.   With Worksheets("sheet1")
   
7.     r = .UsedRange.Find(what:="*", lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
   
8.     For i = r To 1 Step -1
   
9.       If Not IsNumeric(.Cells(i, 1)) Or Len(.Cells(i, 1)) = 0 Or Application.Sum(.Cells(i, 4).Resize(1, 6)) = 0 Then
   
10.         If rng Is Nothing Then
    
11.           Set rng = .Rows(i)
    
12.         Else
    
13.           Set rng = Union(rng, .Rows(i))
    
14.         End If
    
15.       End If
    
16.     Next
    
17.     If Not rng Is Nothing Then
    
18.       rng.Delete
    
19.     End If
    
20.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
21.     .Cells(1, 1) = 1
    
22.     For i = 2 To r
    
23.       If .Cells(i, 1) <> 1 Then
    
24.         .Cells(i, 1) = .Cells(i - 1, 1) + 1
    
25.       End If
    
26.     Next
    
27.     With .UsedRange
    
28.       .Font.Name = "宋体"
    
29.       .Font.Size = 10
    
30.       .Font.Bold = False
    
31.       .Borders.LineStyle = xlNone
    
32.       .HorizontalAlignment = xlGeneral
    
33.       .VerticalAlignment = xlCenter
    
34.     End With
    
35.     r0 = r + 1
    
36.     For i = r To 1 Step -1
    
37.       If .Cells(i, 1) = 1 Then
    
38.         .Rows(i & ":" & i + 4).Insert
    
39.         With .Cells(i + 3, 1)
    
40.           .Value = "单    位："
    
41.           .Font.Bold = True
    
42.         End With
    
43.         With .Cells(i + 4, 1).Resize(1, UBound(tm) + 1)
    
44.           .Value = tm
    
45.           .HorizontalAlignment = xlCenter
    
46.           .Font.Bold = True
    
47.         End With
    
48.         With .Cells(r0 + 5, 1)
    
49.           .Value = "合  计"
    
50.           .HorizontalAlignment = xlCenter
    
51.           .Font.Bold = True
    
52.         End With
    
53.         With .Cells(r0 + 6, 1)
    
54.           .Value = "单位负责人："
    
55.           .Font.Bold = True
    
56.         End With
    
57.         With .Cells(r0 + 6, 9)
    
58.           .Value = "制表人："
    
59.           .Font.Bold = True
    
60.         End With
    
61.         .Range(.Cells(i + 4, 1), .Cells(r0 + 5, 10)).Borders.LineStyle = xlContinuous
    
62.         .Range(.Cells(r0 + 5, 4), .Cells(r0 + 5, 9)).FormulaR1C1 = "=SUM(R[" & i - r0 & "]C:R[-1]C)"
    
63.         r0 = i
    
64.       End If
    
65.     Next
    
66.     .Rows("1:3").Delete
    
67.     .Columns("a:j").AutoFit
    
68.   End With
    
69. End Sub
    

复制代码

chxw68

楼主的表格很不规范，受楼主手工整理表格的启发，编写了一段自动整理表格的程序，包括奖金合计都是自动计算的，整理后就是填报单位、单位负责人、制表人等信息都没有了，我想楼主手工填这点内容很容易，这段代码楼主如果能用则用，不能用则弃之。