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

hrpotter

yty773436272 发表于 2012-2-18 20:09
朋友，这个统计没有问题啦，谢谢你，麻烦你帮我写“sheet9”命令一下，谢谢你

试试看，sheet9直接选条件就能统计，写在工作表事件里了！
工作表.rar (132.38 KB, 下载次数: 8)

2012-2-18 21:48 上传

点击文件名下载附件

yty773436272

hrpotter 发表于 2012-2-18 21:48
试试看，sheet9直接选条件就能统计，写在工作表事件里了！

朋友，麻烦你帮我看看“sheet9”表里，当我选择12月时，此时提出数应该是没有的，但是上面显示17条，麻烦你帮我再改改

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 .[b65536].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

复制代码

前面的代码修改好了，sheet9有点难度，太复杂了！

hrpotter

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

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

2012-2-18 23:15 上传

点击文件名下载附件

sd3000

学习了。。。。。

yty773436272

hrpotter 发表于 2012-2-18 23:16
那是因为你有的表序号填了，后面的各项没填，重新改了判断条件了！

麻烦高手对七张表的数据进行汇总,这个表是你原来做好的，现在只是变了一下格式，麻烦朋友帮我解决一下，因为你编的改起比较容易，谢谢朋友啦