求助平均值

83607370

请看附件，谢谢

mjzxlmg

1、最后三天，五天的指的是什么，有数据的后三天还是最后一天之前二个日期（不知是不是每都有数据）？
2、最大值、最小值指的是什么？
3、合计总重量如何计算？表中根本没有重量一说
4、平均值指的什么项目的平均值？

真是糊涂之极

83607370

mjzxlmg 发表于 2018-8-21 11:13
1、最后三天，五天的指的是什么，有数据的后三天还是最后一天之前二个日期（不知是不是每都有数据）？
2、 ...

1.有数据的后三天
2.最大值和最小值是指提取数据H列中的最大值和最小值
3.合计重量同样是合计提取数据部分，同样是表1的H列
4.平均值是提取数据部分的平均值
谢谢

蓝桥玄霜

请见代码。

83607370

蓝桥玄霜 发表于 2018-8-21 16:29
请见代码。

感谢版主的帮助，但在使用过程中，在工作表1存在数据的，但他提示没有数据，再麻烦你一下，帮我看看，谢谢

蓝桥玄霜

附件中数据太少，不超过3个的没有计算平均值。
代码测试正常。

83607370

蓝桥玄霜 发表于 2018-8-22 10:37
附件中数据太少，不超过3个的没有计算平均值。
代码测试正常。

数据已超出3个，但他提示没有找到

lsdongjh

1. 
   
2. Sub Test()
   
3.     Dim strShName As String, shSource As Worksheet, shResult As Worksheet
   
4.     Dim lngRows As Long, strTemp As String, strDate As String
   
5.     Dim Conn As Object, Rst As Object, strPath As String
   
6.     Dim strConn As String, strBasicSql As String, strCondition As String, strSQL As String
   
7.     Dim arrResult(1 To 9, 1 To 1) As Double
   
8. 
   
9.     strShName = "1"
   
10.     Set shSource = Sheets(strShName)
    
11.     Set shResult = Sheets("2")
    
12.    
    
13.     lngRows = shSource.Range("A" & Rows.Count).End(xlUp).Row
    
14.     If lngRows < 4 Then lngRows = 4
    
15.    
    
16.     strTemp = shResult.Range("O1").Value
    
17.     If Trim(strTemp) = "" Or Not IsDate(strTemp) Then
    
18.         MsgBox "请输入【开始日期】"
    
19.         shResult.Range("O1").Select
    
20.         Exit Sub
    
21.     End If
    
22.    
    
23.     strTemp = shResult.Range("O2").Value
    
24.     If Trim(strTemp) = "" Or Not IsDate(strTemp) Then
    
25.         MsgBox "请输入【结束日期】"
    
26.         shResult.Range("O2").Select
    
27.         Exit Sub
    
28.     End If
    
29.    strDate = strTemp
    
30.    
    
31.     strCondition = "AND 日期 Between #" & shResult.Range("O1").Value & "# AND #" & shResult.Range("O2").Value & "# "
    
32.     strTemp = shResult.Range("O3").Value
    
33.     If Trim(strTemp) <> "" Then strCondition = strCondition & " AND 编号='" & Trim(strTemp) & "'"
    
34.     strTemp = shResult.Range("O4").Value
    
35.     If Trim(strTemp) <> "" Then strCondition = strCondition & " AND 名称='" & Trim(strTemp) & "'"
    
36.     strTemp = shResult.Range("O5").Value
    
37.     If Trim(strTemp) <> "" Then strCondition = strCondition & " AND 时间段='" & Trim(strTemp) & "'"
    
38.    
    
39.     Set Conn = CreateObject("ADODB.Connection")
    
40.     Set Rst = CreateObject("ADODB.Recordset")
    
41.     strPath = ThisWorkbook.FullName
    
42.     Select Case Application.Version * 1
    
43.         Case Is <= 11
    
44.             strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & strPath
    
45.         Case Is >= 12
    
46.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
47.     End Select
    
48.     Conn.Open strConn
    
49.    
    
50.     strBasicSql = "SELECT Sum(使用数量) AS 数量合计, Sum(合计金额) AS 金额合计, Min(合计金额) AS 最小金额, Max(合计金额) AS 最大金额 " & _
    
51.                  "FROM [" & strShName & "$A3:M" & lngRows & "]" & _
    
52.                  "WHERE 1=1 "
    
53.     strSQL = strBasicSql & strCondition
    
54.    
    
55.     If Rst.State = 1 Then Rst.Close
    
56.     Rst.Open strSQL, Conn, 3, 1
    
57.     Rst.movefirst
    
58.     arrResult(6, 1) = IIf(IsNull(Rst("最小金额")), 0, Rst("最小金额"))
    
59.     arrResult(7, 1) = IIf(IsNull(Rst("最大金额")), 0, Rst("最大金额"))
    
60.     arrResult(8, 1) = IIf(IsNull(Rst("数量合计")), 0, Rst("数量合计"))
    
61.     arrResult(9, 1) = IIf(IsNull(Rst("金额合计")), 0, Rst("金额合计"))
    
62.    
    
63.     strBasicSql = "SELECT SUM(金额) AS 合计金额 " & _
    
64.                 "FROM (SELECT 日期, Sum(合计金额) AS 金额 " & _
    
65.                 "FROM  [" & strShName & "$A3:M" & lngRows & "]" & _
    
66.                 "WHERE (1=1 @Condition) " & _
    
67.                 "GROUP BY 日期 ) " & _
    
68.                 "WHERE 日期>=#@Date#"
    
69.     strBasicSql = Replace(strBasicSql, "@Condition", strCondition)
    
70.    
    
71.     strTemp = DateAdd("d", -2, strDate)
    
72.     strSQL = Replace(strBasicSql, "@Date", strTemp)
    
73.     If Rst.State = 1 Then Rst.Close
    
74.     Rst.Open strSQL, Conn, 3, 1
    
75.     arrResult(1, 1) = IIf(IsNull(Rst("合计金额")), 0, Rst("合计金额") / 3)
    
76.    
    
77.     strTemp = DateAdd("d", -4, strDate)
    
78.     strSQL = Replace(strBasicSql, "@Date", strTemp)
    
79.     If Rst.State = 1 Then Rst.Close
    
80.     Rst.Open strSQL, Conn, 3, 1
    
81.     arrResult(2, 1) = IIf(IsNull(Rst("合计金额")), 0, Rst("合计金额") / 5)
    
82.    
    
83.     strTemp = DateAdd("d", -9, strDate)
    
84.     strSQL = Replace(strBasicSql, "@Date", strTemp)
    
85.     If Rst.State = 1 Then Rst.Close
    
86.     Rst.Open strSQL, Conn, 3, 1
    
87.     arrResult(3, 1) = IIf(IsNull(Rst("合计金额")), 0, Rst("合计金额") / 10)
    
88.    
    
89.     strTemp = DateAdd("d", -14, strDate)
    
90.     strSQL = Replace(strBasicSql, "@Date", strTemp)
    
91.     If Rst.State = 1 Then Rst.Close
    
92.     Rst.Open strSQL, Conn, 3, 1
    
93.     arrResult(4, 1) = IIf(IsNull(Rst("合计金额")), 0, Rst("合计金额") / 15)
    
94.    
    
95.     strTemp = DateAdd("d", -29, strDate)
    
96.     strSQL = Replace(strBasicSql, "@Date", strTemp)
    
97.     If Rst.State = 1 Then Rst.Close
    
98.     Rst.Open strSQL, Conn, 3, 1
    
99.     arrResult(5, 1) = IIf(IsNull(Rst("合计金额")), 0, Rst("合计金额") / 30)
    
100.    
     
101.     shResult.Range("O7:O15") = arrResult
     
102.     Set Rst = Nothing
     
103.     Set Conn = Nothing
     
104. End Sub
     
105. 
     

复制代码

83607370

蓝桥玄霜 发表于 2018-8-22 10:37
附件中数据太少，不超过3个的没有计算平均值。
代码测试正常。

您好，我测试了，都是提示没有找到数据，你可以把附件发上来吗？

83607370

lsdongjh 发表于 2018-8-22 13:14

平均值哪里是有数据的最后3、5、10/15/30天，不是O3日期的最后三天，