[已解决]怎样统计各报告单位卡片的及时性?

gwfzh

怎样统计各单位报告卡片的及时性.zip (83.12 KB, 下载次数: 15)

2011-12-8 17:19 上传

点击文件名下载附件



各位老师：怎样将sheet1表的原始数据按sheet2表的要求统计各报告单位卡片的及时性？具体要求见附件！

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-8 19:04

1. Sub JustTest()
   
2.     Dim D As New Dictionary, Ar1, Ar2, Ar3, Mr&, i&, ArrR(), K&
   
3.     With Sheets(1)
   
4.         Mr = .Cells(.Rows.Count, "r").End(3).Row
   
5.         Ar1 = .Range("r2:r" & Mr).Value
   
6.         Ar2 = .Range("z2:z" & Mr).Value
   
7.         Ar3 = .Range("aj2:aj" & Mr).Value
   
8.     End With
   
9.     For i = 1 To UBound(Ar1)
   
10.         If Not D.Exists(Ar3(i, 1)) Then
    
11.             K = K + 1: D.Add Ar3(i, 1), K
    
12.             ReDim Preserve ArrR(1 To 4, 1 To K)
    
13.             ArrR(1, K) = Ar3(i, 1)
    
14.         End If
    
15.         ArrR(2, D(Ar3(i, 1))) = ArrR(2, D(Ar3(i, 1))) + 1
    
16.         If Ar2(i, 1) - Ar1(i, 1) > 1 Then
    
17.             ArrR(4, D(Ar3(i, 1))) = ArrR(4, D(Ar3(i, 1))) + 1
    
18.         Else
    
19.             ArrR(3, D(Ar3(i, 1))) = ArrR(3, D(Ar3(i, 1))) + 1
    
20.         End If
    
21.     Next i
    
22.     Range("a4:e" & Rows.Count).Clear
    
23.     If K > 0 Then
    
24.         Range("a5").Resize(K, 4) = Application.Transpose(ArrR)
    
25.         [a4] = "合计": [b4:d4].Formula = "=sum(r[1]c:r[" & K & "]c)"
    
26.         [e4] = [c4] / [b4]
    
27.         Range("e5").Resize(K, 1).Formula = "=rc[-2]/rc[-3]"
    
28.         Range("e:e").NumberFormatLocal = "0.00%"
    
29.         Range("a4").Resize(K + 1, 5).Borders.LineStyle = 1
    
30.     End If
    
31. End Sub
    

复制代码

有些报告日期比诊断日期还早。。。。？附件中的数据没有超过24小时的，是不是举例有误，还是说明有误。
怎样统计各单位报告卡片的及时性.rar (76.27 KB, 下载次数: 6)

2011-12-8 19:04 上传

点击文件名下载附件

跳转到最佳答案楼层

liuguansky

1. Sub JustTest()
   
2.     Dim D As New Dictionary, Ar1, Ar2, Ar3, Mr&, i&, ArrR(), K&
   
3.     With Sheets(1)
   
4.         Mr = .Cells(.Rows.Count, "r").End(3).Row
   
5.         Ar1 = .Range("r2:r" & Mr).Value
   
6.         Ar2 = .Range("z2:z" & Mr).Value
   
7.         Ar3 = .Range("aj2:aj" & Mr).Value
   
8.     End With
   
9.     For i = 1 To UBound(Ar1)
   
10.         If Not D.Exists(Ar3(i, 1)) Then
    
11.             K = K + 1: D.Add Ar3(i, 1), K
    
12.             ReDim Preserve ArrR(1 To 4, 1 To K)
    
13.             ArrR(1, K) = Ar3(i, 1)
    
14.         End If
    
15.         ArrR(2, D(Ar3(i, 1))) = ArrR(2, D(Ar3(i, 1))) + 1
    
16.         If Ar2(i, 1) - Ar1(i, 1) > 1 Then
    
17.             ArrR(4, D(Ar3(i, 1))) = ArrR(4, D(Ar3(i, 1))) + 1
    
18.         Else
    
19.             ArrR(3, D(Ar3(i, 1))) = ArrR(3, D(Ar3(i, 1))) + 1
    
20.         End If
    
21.     Next i
    
22.     Range("a4:e" & Rows.Count).Clear
    
23.     If K > 0 Then
    
24.         Range("a5").Resize(K, 4) = Application.Transpose(ArrR)
    
25.         [a4] = "合计": [b4:d4].Formula = "=sum(r[1]c:r[" & K & "]c)"
    
26.         [e4] = [c4] / [b4]
    
27.         Range("e5").Resize(K, 1).Formula = "=rc[-2]/rc[-3]"
    
28.         Range("e:e").NumberFormatLocal = "0.00%"
    
29.         Range("a4").Resize(K + 1, 5).Borders.LineStyle = 1
    
30.     End If
    
31. End Sub
    

复制代码

有些报告日期比诊断日期还早。。。。？附件中的数据没有超过24小时的，是不是举例有误，还是说明有误。
怎样统计各单位报告卡片的及时性.rar (76.27 KB, 下载次数: 6)

2011-12-8 19:04 上传

点击文件名下载附件