[已解决]麻烦高手帮忙对七张表按单位和月份进行汇总，具体要求在附件里，谢谢

yty773436272

工作表.rar (115.54 KB, 下载次数: 35)

2012-2-18 13:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hrpotter

2012-2-18 23:16

yty773436272 发表于 2012-2-18 22:08
朋友，麻烦你帮我看看“sheet9”表里，当我选择12月时，此时提出数应该是没有的，但是上面显示17条，麻烦 ...

那是因为你有的表序号填了，后面的各项没填，重新改了判断条件了！
(, 下载次数: 58)

上传

点击文件名下载附件

跳转到最佳答案楼层

yiguo

用数据透视表啊。

yty773436272

yiguo 发表于 2012-2-18 14:54
用数据透视表啊。

我想用VBA代码，因为所有的工作表都是通过共享填上去的，想自动汇总，，麻烦帮我写几句代码，谢谢

yiguo

yty773436272 发表于 2012-2-18 15:09
我想用VBA代码，因为所有的工作表都是通过共享填上去的，想自动汇总，，麻烦帮我写几句代码，谢谢

代码，VBA刚刚才开始学。不好意思啊。{:412:}

zjcat35

你的实施数以什么判断，完成的+实施中的？

zjcat35

1. Sub a()
   
2.   Sheet8.Range("h4:ae10").ClearContents
   
3.   Dim i As Integer, j As Byte, k As Byte, m As Byte
   
4.     For j = 1 To 7
   
5.       With Sheets(j)
   
6.       For i = 5 To .[a65536].End(3).Row
   
7.         k = Sheet8.Cells(3 + j, Month(.Cells(i, 5)) * 2 + 6)
   
8.         m = Sheet8.Cells(3 + j, Month(.Cells(i, 5)) * 2 + 7)
   
9.           If .Cells(i, "o") <> "" Or .Cells(i, "p") <> "" Then
   
10.             m = m + 1
    
11.           End If
    
12.         k = k + 1
    
13.         Sheet8.Cells(3 + j, Month(.Cells(i, 5)) * 2 + 6) = k
    
14.         Sheet8.Cells(3 + j, Month(.Cells(i, 5)) * 2 + 7) = m
    
15.       Next i
    
16.       End With
    
17.     Next j
    
18. End Sub

复制代码

你试试这代码

yty773436272

zjcat35 发表于 2012-2-18 15:51
你试试这代码

朋友，实施数与合理化建议数不同，实施数是七张表黄色区域中“可实施”项的相加，如果是“不实施”就不能计算在内，麻烦你帮我再改改此命令。
sheet9表也有个想实现的命令，麻烦一下你，谢谢你。

yty773436272

zjcat35 发表于 2012-2-18 15:51
你试试这代码

在七张表里12月没有数据，但用此命令12月份单元格里有数据，麻烦朋友帮我改一下代码

hrpotter

试试这个

1. Sub 统计()
   
2.     Dim ar(1 To 7, 1 To 24)
   
3.     Dim i, j As Byte
   
4.     For j = 1 To 7
   
5.         With Sheets(j)
   
6.             For i = 5 To .[a65536].End(3).Row
   
7.                 If .Cells(i, "N") <> "" Then
   
8.                    ar(j, Month(.Cells(i, 5)) * 2) = ar(j, Month(.Cells(i, 5)) * 2) + 1
   
9.                 End If
   
10.                 If .Cells(i, "M") <> "" Or .Cells(i, "N") <> "" Then
    
11.                     ar(j, Month(.Cells(i, 5)) * 2 - 1) = ar(j, Month(.Cells(i, 5)) * 2 - 1) + 1
    
12.                 End If
    
13.             Next
    
14.         End With
    
15.     Next
    
16.     Sheet8.Range("h4:ae10").ClearContents
    
17.     Sheet8.Range("h4:ae10") = ar
    
18. End Sub

复制代码

yty773436272

hrpotter 发表于 2012-2-18 20:02
试试这个

朋友，这个统计没有问题啦，谢谢你，麻烦你帮我写“sheet9”命令一下，谢谢你