多条件求和-统计某时间段内的数据

huntgb

根据设置的时间段内，统计各线别的数量，原来是用SUMPRODUCT函数做的   卡的不要不要的。请大哥哥帮我用vba实现一下，谢谢。

excel玉米

可以用数据透视表做吧

A1233515

附件供参考

huntgb

A1233515 发表于 2021-7-24 17:20
附件供参考

大哥哥神速啊   这个是按照机种统计的吧     我想要的是按照线别统计   黄色区域输入机种和站别  查询到绿色部分就统计出来   和SUMPRODUCT函数一样的功能

huntgb

excel玉米 发表于 2021-7-24 17:18
可以用数据透视表做吧

数据分析出来做图表的  所以不方便

huntgb

A1233515 发表于 2021-7-24 17:20
附件供参考

大哥哥这个是根据机种统计的吧   想要通过线别-机种-站别3个条件查询出绿色部分的数据   3个条件可以是且也可以是或   （实际应该是4个条件，还有个时间段）  

3190496160

huntgb 发表于 2021-7-24 17:40
大哥哥这个是根据机种统计的吧   想要通过线别-机种-站别3个条件查询出绿色部分的数据   3个条件可以是且 ...

3个条件可以是且也可以是或
要么是且，要么是或

huntgb

3190496160 发表于 2021-7-24 18:15
3个条件可以是且也可以是或
要么是且，要么是或

如果是或怎么处理？

excel玉米

huntgb 发表于 2021-7-26 09:16
如果是或怎么处理？

之前说用数据透视表，没有仔细看，有点草率了。细细研究了一下，采用SQL查询语言，应该可以达到楼主的要求。对表格做了改动，说明如下：
1.建立了基础数据表格，将站别/机种/不良项目都提取出来，以便在代码中利用上。站别已经去重复处理。
   站别和机种是为了在黄色查询框内建立数据有效性，以免查询过程中输入看似相似但却不一样的词语。
   不良项目是为了SQL查询语言中用for ...next 加入查询词组。
2.因为数量不知道是要哪个数量，所以我取的是同线别同机种同站别的数量合计。如果不符合楼主之意，楼主可以自行修改。
3.不知道楼主在时间/机种/站别三个条件都没有时需不需要查询数据，我取的是时间/机种/站别三个条件都没有时，按线别进行汇总。

1. Option Explicit
   
2. Public Function cnn() As Object
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     If Application.Version < 12 Then
   
5.         cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
6.     Else
   
7.         cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
8.     End If
   
9. End Function
   
10. 
    
11. Sub GetData()
    
12. Application.ScreenUpdating = False
    
13. Dim rs As New ADODB.Recordset, SQL$
    
14. Dim i%, JCSJR%,  StrM$, StrMm$, TJ$, TJR$
    
15. Dim TJRQ1, TJRQ2
    
16. TJRQ1 = Sheet3.Range("e2"): TJRQ2 = Sheet3.Range("m2")     '日期条件
    
17. '###################################################################################
    
18. JCSJR = Sheet1.Range("C65536").End(3).Row                  '基础数据要进行SQL查询的不良项目
    
19. For i = JCSJR To 2 Step -1
    
20.   StrM = Sheet1.Range("c" & i)
    
21.    If InStr(StrM, "/") > 0 Then
    
22.      StrM = "[" & StrM & "]"                 '当SQL查询中有特珠字符/时，要用中括号括起
    
23.    End If
    
24.   StrM = ",sum(" & StrM & ")"
    
25.   StrMm = StrM & StrMm
    
26. Next
    
27. '###################################################################################
    
28. For i = 4 To 13                                           '有机种有站别则形成查询条件
    
29.    TJ = ""
    
30.    If Len(Sheet3.Range("b" & i)) > 0 And Len(Sheet3.Range("c" & i)) > 0 Then
    
31.      TJ = "线别=" & Sheet3.Range("A" & i) & " AND 机种='" & Sheet3.Range("b" & i) & "' AND 站别='" & Sheet3.Range("C" & i) & "'"
    
32.    ElseIf Len(Sheet3.Range("b" & i)) > 0 And Len(Sheet3.Range("c" & i)) <= 0 Then
    
33.      TJ = "线别=" & Sheet3.Range("A" & i) & " AND 机种='" & Sheet3.Range("b" & i) & "'"
    
34.    ElseIf Len(Sheet3.Range("b" & i)) <= 0 And Len(Sheet3.Range("c" & i)) > 0 Then
    
35.      TJ = "线别=" & Sheet3.Range("A" & i) & " AND  站别='" & Sheet3.Range("C" & i) & "'"
    
36.    End If
    
37.    If Len(TJ) <= 0 Then TJ = "线别=" & Sheet3.Range("A" & i) & ""   '当没有条件时设置条件为线别
    
38.    If Len(TJRQ1) <= 0 And Len(TJRQ2) <= 0 Then
    
39.      SQL = "select sum(数量)" & StrMm & " from [品质报表$] where " & TJ & " "
    
40.    ElseIf Len(TJRQ1) > 0 And Len(TJRQ2) <= 0 Then
    
41.      SQL = "select sum(数量)" & StrMm & " from [品质报表$] where " & TJ & " and (日期 between #" & Format(TJRQ1, "yyyy-mm-dd") & "# and #" & Format(Date, "yyyy-mm-dd") & "#)"
    
42.    ElseIf Len(TJRQ1) <= 0 And Len(TJRQ2) > 0 Then
    
43.      SQL = "select sum(数量)" & StrMm & " from [品质报表$] where " & TJ & " and (日期 >= #" & Format(TJRQ1, "yyyy-mm-dd") & ""
    
44.    ElseIf Len(TJRQ1) > 0 And Len(TJRQ2) > 0 Then
    
45.      SQL = "select sum(数量)" & StrMm & " from [品质报表$] where " & TJ & " and (日期 between #" & Format(TJRQ1, "yyyy-mm-dd") & "# and #" & Format(TJRQ2, "yyyy-mm-dd") & "#)"
    
46.    End If
    
47.          rs.Open SQL, cnn, 1, 3
    
48.      If rs.EOF Then
    
49.        MsgBox "未查找到记录"
    
50.      Else
    
51.         Sheet3.Range("d" & i).CopyFromRecordset rs
    
52.         rs.Close
    
53.      End If
    
54. Next
    
55.    Set rs = Nothing
    
56.     Application.ScreenUpdating = True
    
57. End Sub
    

复制代码

excel玉米

excel玉米 发表于 2021-7-26 11:07
之前说用数据透视表，没有仔细看，有点草率了。细细研究了一下，采用SQL查询语言，应该可以达到楼主的要 ...

数据正确与否请自行验证。